Erzeugung der Indizes IV

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

createmaildb.pl
sub load_aliases {
   my @aliases = ();
   my $aliases = new IO::File "ypcat -k mail.aliases |";
   die "$cmdname: unable to process mail.aliases table: $!"
      unless defined $aliases;
   while(<$aliases>) {
      chomp;
      s/\s*,\s*/,/g;
      my ($key, $list) = split /\s+/;
      next unless $key =~ /\./;
      my @list = split(/,/, $list);
      next unless @list == 1;
      next if defined $pwnames{$list};
      my $name = $key; $name =~ s/\./ /g;
      $name =~ s/(^|[ -])([a-z])/$1\u$2/g;
      my @name = split(/ /, $name);
      my $fullname = join(" ", @name);
      push(@aliases, {
         'fullname' => $fullname, 'email' => $key,
      });
   }
   $aliases->close;
   return @aliases;
}

*load_aliases wertet die Tabelle mail.aliases aus. Im Feld 0 steht die E-Mail-Adresse, im Feld 1 die Adresse, an die entsprechende E-Mails weiterzuleiten sind. Gesucht sind hier Alias-Namen, die einem vollem Namen entsprechen (also mit Punkten separiert sind).
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003