31 lines
729 B
Perl
31 lines
729 B
Perl
#!/bin/perl
|
|
|
|
#
|
|
# Convert GECOS information in password files to alias syntax.
|
|
#
|
|
# Contributed by Kari E. Hurtta <Kari.Hurtta@ozone.fmi.fi>
|
|
#
|
|
|
|
print "# Generated from passwd by $0\n";
|
|
|
|
while (@a = getpwent) {
|
|
($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = @a;
|
|
|
|
($fullname = $gcos) =~ s/,.*$//;
|
|
|
|
if (!-d $dir || !-x $shell) {
|
|
print "$name: root\n";
|
|
}
|
|
|
|
$fullname =~ s/\.*[ _]+\.*/./g;
|
|
$fullname =~ tr [åäöÅÄÖé] [aaoAAOe]; # <hakan@af.lu.se> 1997-06-15
|
|
if ($fullname =~ /^[a-zA-Z][a-zA-Z-]+(\.[a-zA-Z][a-zA-Z-]+)+$/) {
|
|
# if ($fullname =~ /^[a-zA-Z]+(\.[a-zA-Z]+)+$/) { # Kari E. Hurtta
|
|
print "$fullname: $name\n";
|
|
} else {
|
|
print "# $fullname: $name\n";
|
|
}
|
|
};
|
|
|
|
endpwent;
|