get it up and running basically on a test file

[spider.git] / perl / dbtest.pl

diff --git a/perl/dbtest.pl b/perl/dbtest.pl
index 51a5c4d02f61d17ecec799830d8a00e9dc7db31e..c4f5ca8e9d259a08cd016ce1530dc3b246654306 100755 (executable)
--- 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;