1 ###############################################################################
4 # create DB file for KAGE/cgi from alias.txt
6 ###############################################################################
8 if($#ARGV != 0 || !(-d $ARGV[0])){
9 print "Usage: perl makealiasdb.pl alias_dir\n";
13 $aliasdir =~ s/\/?$//; # remove the last slash
16 print "Remove old aliasdb first.\n";
23 tie %db, "BerkeleyDB::Hash", -Filename => "aliasdb", -Flags => DB_CREATE
24 or die "An error occured at ceating DB file.\n";
27 open(FH, "<$ARGV[0]/alias.txt");
33 $_ =~ m/(.*?)\t(.*)\n/;
37 print "\rcreating ... [$counter] key : $key ";