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;
}
|