projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
well on the way to having a working cluster database
[spider.git]
/
perl
/
dxoldtonew.pl
diff --git
a/perl/dxoldtonew.pl
b/perl/dxoldtonew.pl
index d5cb4c6e6121341534340fdfbb72a545162126ae..d850ad2e7b9290ff778e3b0304465dae04494fd6 100755
(executable)
--- a/
perl/dxoldtonew.pl
+++ b/
perl/dxoldtonew.pl
@@
-5,12
+5,13
@@
#
use Date::Parse;
#
use Date::Parse;
-use
s
pot;
+use
S
pot;
sysopen(IN, "../data/DX.DAT", 0) or die "can't open DX.DAT ($!)";
open(OUT, ">../data/dxcomma") or die "can't open dxcomma ($!)";
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;
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) {
$d = str2time("$date $time");
$comment =~ s/^\s+//o;
if ($d) {
-
s
pot->new($freq, $call, $d, $comment, $spotter);
+
S
pot->new($freq, $call, $d, $comment, $spotter);
} else {
print "$call $freq $date $time\n";
}
} else {
print "$call $freq $date $time\n";
}