3 # create a USDB file from a standard raw file (which is GZIPPED BTW)
5 # This will overwrite and remove any existing usdb file, but it will
6 # copy the old one first and update that.
11 # make sure that modules are searched in the order local then perl
13 # root of directory tree for this system
17 $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
19 unshift @INC, "$root/perl"; # this IS the right way round!
20 unshift @INC, "$root/local";
26 die "no input (usdbraw?) files specified\n" unless @ARGV;
28 print "\n", USDB::load(@ARGV), "\n";