Erzeugung der Indizes III

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

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).
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000