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

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