user: myus44 [up]
------------
admin-state enabled
summary "Johnny Cash"
access-level group-defined
group mi-group [up]
user: jar1543 [up]
------------
admin-state enabled
summary "Lara Croft"
access-level group-defined
group jar-head [up]
user: myprivilegeduser [up]
-----------
admin-state enabled
access-level privileged
####
#!/usr/bin/perl -w
while (<>) {
if (/^user:/) {
chomp();
$uid=$_;
$uid=~m/user:\s+(\S+)/;
$uid=$1;
#print "$uid,";
}
if (/summary/) {
chomp();
$summary=$_;
$summary=~m/summary\s+\"(.+)\"/;
$summary=$1;
#print "$summary,";
}
if (/access-level/) {
chomp();
$accesslevel=$_;
$accesslevel=~m/access-level\s+(\S+)/;
$accesslevel=$1;
#print "$accesslevel,";
}
if (/group\s+/) {
chomp ();
$group=$_;
$group=~m/group\s+(\S+)/;
$group=$1;
#print "$group";
}
print "$uid,$summary,$accesslevel,$group\n";
}
##
##
myuser,Johnny Cash,group-defined,migroup
myprivilegeduser,,privileged,,