]> dxcluster.org Git - spider.git/blob - perl/create_usdb.pl
add cmd and text xml handlers
[spider.git] / perl / create_usdb.pl
1 #!/usr/bin/perl
2 #
3 # create a USDB file from a standard raw file (which is GZIPPED BTW)
4 #
5 # This will overwrite and remove any existing usdb file, but it will 
6 # copy the old one first and update that.
7 #
8
9 use strict;
10
11 # make sure that modules are searched in the order local then perl
12 BEGIN {
13         # root of directory tree for this system
14         use vars qw($root);
15         
16         $root = "/spider"; 
17         $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
18
19         unshift @INC, "$root/perl";     # this IS the right way round!
20         unshift @INC, "$root/local";
21 }
22
23 use vars qw($VERSION $BRANCH);
24 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
25 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
26 $main::build += $VERSION;
27 $main::branch += $BRANCH;
28
29 use DXVars;
30 use USDB;
31
32 die "no input (usdbraw?) files specified\n" unless @ARGV;
33
34 print "\n", USDB::load(@ARGV), "\n";
35 exit(0);
36
37