projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added routing for PC26/27 and also put the correct callsign on the end
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 6f21535a39c0d17d5db6484982ea73205ac256eb..2e4afe023c2c72ba6b1fa4fa85df875986213c2d 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-69,7
+69,7
@@
sub add
# automagically closes the output file (if any)).
$fp->writeunix($out[2], $buf);
# automagically closes the output file (if any)).
$fp->writeunix($out[2], $buf);
- return (@
spo
t, $spotted_itu, $spotted_cq, $spotter_itu, $spotter_cq);
+ return (@
ou
t, $spotted_itu, $spotted_cq, $spotter_itu, $spotter_cq);
}
# search the spot database for records based on the field no and an expression
}
# search the spot database for records based on the field no and an expression
@@
-140,7
+140,7
@@
sub search
$fp->close; # close any open files
$fp->close; # close any open files
- for ($i =
0; $i < $maxdays; ++$i) {
# look thru $maxdays worth of files only
+ for ($i =
$count = 0; $i < $maxdays; ++$i) {
# look thru $maxdays worth of files only
my @now = Julian::sub(@fromdate, $i); # but you can pick which $maxdays worth
last if Julian::cmp(@now, @todate) <= 0;
my @now = Julian::sub(@fromdate, $i); # but you can pick which $maxdays worth
last if Julian::cmp(@now, @todate) <= 0;