|
createmaildb.pl |
sub load_passwd { my @aliases = (); my $passwd = new IO::File "ypcat passwd |"; die "$cmdname: unable to process passwd table: $!" unless defined $passwd; while (<$passwd>) { my @entry = split/:/; next unless $entry[2] >= 100; my $email = $entry[0]; my @name = split(/\s+/, $entry[4]); next unless @name >= 2; my $fullname = join(" ", @name); push(@aliases, { 'fullname' => $fullname, 'email' => $email, }); $pwnames{$email} = $fullname; } $passwd->close; return @aliases; } |
load_passwd wertet die passwd-Tabelle aus. Im
Feld 0 steht der Benutzername, der bei uns immer
eine gültige E-Mail-Adresse ist, und in Feld 4 ist
der vollständige natürliche Name zu finden
(jedoch mit Umlauten in Ersatzdarstellung).
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |