X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fdxoldtonew.pl;h=d850ad2e7b9290ff778e3b0304465dae04494fd6;hb=21e7642d216656c60b164d76208633a0c81cf5db;hp=d5cb4c6e6121341534340fdfbb72a545162126ae;hpb=8cc3ac88ee6ba2216a9f19761385c9869a2f91b1;p=spider.git

diff --git a/perl/dxoldtonew.pl b/perl/dxoldtonew.pl
index d5cb4c6e..d850ad2e 100755
--- a/perl/dxoldtonew.pl
+++ b/perl/dxoldtonew.pl
@@ -5,12 +5,13 @@
 #
 
 use Date::Parse;
-use spot;
+use Spot;
 
 sysopen(IN, "../data/DX.DAT", 0) or die "can't open DX.DAT ($!)";
 open(OUT, ">../data/dxcomma") or die "can't open dxcomma ($!)";
 
-spot->init();
+system("rm -rf $Spot::prefix");
+Spot->init();
 
 while (sysread(IN, $buf, 86)) {
   ($freq,$call,$date,$time,$comment,$spotter) = unpack 'A10A13A12A6A31A14', $buf;
@@ -19,7 +20,7 @@ while (sysread(IN, $buf, 86)) {
   $d = str2time("$date $time");
   $comment =~ s/^\s+//o;
   if ($d) {
-    spot->new($freq, $call, $d, $comment, $spotter);
+    Spot->new($freq, $call, $d, $comment, $spotter);
   } else {
     print "$call $freq $date $time\n";
   }