X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fdbtest.pl;h=6951c76dbf041276d93227e3d8b54c390e6bf302;hb=72346862008f655ed4d70067d67a3759bc81de61;hp=51a5c4d02f61d17ecec799830d8a00e9dc7db31e;hpb=145f379500a27a90895aa3b0fbd8b63425e3c148;p=spider.git

diff --git a/perl/dbtest.pl b/perl/dbtest.pl
index 51a5c4d0..6951c76d 100755
--- a/perl/dbtest.pl
+++ b/perl/dbtest.pl
@@ -18,6 +18,18 @@ use DXDebug;
 use ARRL::DX;
 
 
-my $dx = ARRL::DX->new;
+while (@ARGV) {
+	my $fn = shift;
+	if ($fn eq '-d') {
+		ARRL::DX::drop();
+		next;
+	}
+	print "Processing $fn ";
+	my $dx = ARRL::DX->new(file=>$fn);
+	my $c = $dx->process;
+	print "$c paragraphs\n";
+}
+
+ARRL::DX::close();
 
 exit 0;