1 ###############################################################################
4 # create txt file from KAGE/cgi
6 ###############################################################################
8 if($#ARGV != 0 || !(-d $ARGV[0])){
9 print "Usage: perl getpartstxt.pl partsdb_dir\n";
13 $partsdir =~ s/\/?$//; # remove the last slash
18 tie %db, "BerkeleyDB::Hash", -Filename => "$partsdir/partsdb", -Flags => DB_RDONLY
19 or die "An error occured at opening DB file.\n";
22 foreach(sort(keys(%db))){
23 print "$_\t$db{$_}\n";