X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fdbtest.pl;fp=perl%2Fdbtest.pl;h=51a5c4d02f61d17ecec799830d8a00e9dc7db31e;hb=145f379500a27a90895aa3b0fbd8b63425e3c148;hp=0000000000000000000000000000000000000000;hpb=2d1175b409d790f991091e8f2884d26591021b9a;p=spider.git

diff --git a/perl/dbtest.pl b/perl/dbtest.pl
new file mode 100755
index 00000000..51a5c4d0
--- /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;