passwd-to-alias.pl revision 38032
138032Speter#!/bin/perl 2261363Sgshapiro 364562Sgshapiro# 438032Speter# Convert GECOS information in password files to alias syntax. 538032Speter# 638032Speter# Contributed by Kari E. Hurtta <Kari.Hurtta@ozone.fmi.fi> 738032Speter# 838032Speter 938032Speterprint "# Generated from passwd by $0\n"; 1038032Speter 1138032Speterwhile (@a = getpwent) { 1238032Speter ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = @a; 1338032Speter 1464562Sgshapiro ($fullname = $gcos) =~ s/,.*$//; 1538032Speter 16266692Sgshapiro if (!-d $dir || !-x $shell) { 1790792Sgshapiro print "$name: root\n"; 1838032Speter } 1938032Speter 2038032Speter $fullname =~ s/\.*[ _]+\.*/./g; 2138032Speter $fullname =~ tr [�������] [aaoAAOe]; # <hakan@af.lu.se> 1997-06-15 2238032Speter if ($fullname =~ /^[a-zA-Z][a-zA-Z-]+(\.[a-zA-Z][a-zA-Z-]+)+$/) { 2338032Speter# if ($fullname =~ /^[a-zA-Z]+(\.[a-zA-Z]+)+$/) { # Kari E. Hurtta 2438032Speter print "$fullname: $name\n"; 2538032Speter } else { 2638032Speter print "# $fullname: $name\n"; 2738032Speter } 2838032Speter}; 2938032Speter 3038032Speterendpwent; 3138032Speter