#!/usr/local/bin/perl -w
use DB_File;
use IO::File;
use Fcntl;
use strict;
my $sep = ":"; # separator in keyword index
my $cmdname = $0; $cmdname =~ s{.*/}{};
my $usage = "Usage: $cmdname\n";
die $usage unless @ARGV == 0;
my %pwnames = (); # set by load_passwd, used by load_aliases
my @aliases = (load_passwd(), load_aliases());
my %fullname;
tie(%fullname, 'DB_File', "byFullName.db",
O_RDWR|O_CREAT|O_TRUNC, 0660, $DB_HASH);
foreach my $alias (@aliases) {
$fullname{$alias->{fullname}} = $alias->{email};
}
untie %fullname;
|