4 # Convert GECOS information in password files to alias syntax.
6 # Contributed by Kari E. Hurtta <Kari.Hurtta@ozone.fmi.fi>
9 print "# Generated from passwd by $0\n";
11 while (@a = getpwent) {
12 ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = @a;
14 ($fullname = $gcos) =~ s/,.*$//;
16 if (!-d $dir || !-x $shell) {
17 print "$name: root\n";
20 $fullname =~ s/\.*[ _]+\.*/./g;
21 $fullname =~ tr [åäöÅÄÖé] [aaoAAOe]; # <hakan@af.lu.se> 1997-06-15
22 if ($fullname =~ /^[a-zA-Z][a-zA-Z-]+(\.[a-zA-Z][a-zA-Z-]+)+$/) {
23 # if ($fullname =~ /^[a-zA-Z]+(\.[a-zA-Z]+)+$/) { # Kari E. Hurtta
24 print "$fullname: $name\n";
26 print "# $fullname: $name\n";