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