mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
32 lines
659 B
Perl
Executable File
32 lines
659 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# create a USDB file from a standard raw file (which is GZIPPED BTW)
|
|
#
|
|
# This will overwrite and remove any existing usdb file, but it will
|
|
# copy the old one first and update that.
|
|
#
|
|
|
|
use strict;
|
|
|
|
# make sure that modules are searched in the order local then perl
|
|
BEGIN {
|
|
# root of directory tree for this system
|
|
use vars qw($root);
|
|
|
|
$root = "/spider";
|
|
$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
|
|
|
|
unshift @INC, "$root/perl"; # this IS the right way round!
|
|
unshift @INC, "$root/local";
|
|
}
|
|
|
|
use DXVars;
|
|
use USDB;
|
|
|
|
die "no input (usdbraw?) files specified\n" unless @ARGV;
|
|
|
|
print "\n", USDB::load(@ARGV), "\n";
|
|
exit(0);
|
|
|
|
|