add the beginnings of an ARRL log query and updater

[spider.git] / perl / dbtest.pl

diff --git a/perl/dbtest.pl b/perl/dbtest.pl
new file mode 100755 (executable)
index 0000000..51a5c4d
--- /dev/null
+++ b/perl/dbtest.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+# test for independent sql servers
+# search local then perl directories
+
+use vars qw($root);
+
+BEGIN {
+       # root of directory tree for this system
+       $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 DXUtil;
+use DXDebug;
+use ARRL::DX;
+
+
+my $dx = ARRL::DX->new;
+
+exit 0;