projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
route external DB Commands and drop any directed locally
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 3bc643cbb668b89c3340acaba70104e108ca655d..75e34c116a7e7e2f11bb21047637eb37dc01ba63 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-52,9
+52,15
@@
sub add
# add the 'dxcc' country on the end for both spotted and spotter, then the cluster call
my @dxcc = Prefix::extract($out[1]);
# add the 'dxcc' country on the end for both spotted and spotter, then the cluster call
my @dxcc = Prefix::extract($out[1]);
- push @out, (@dxcc > 0 ) ? $dxcc[1]->dxcc() : 0;
+ my $spotted_dxcc = (@dxcc > 0 ) ? $dxcc[1]->dxcc() : 0;
+ my $spotted_itu = (@dxcc > 0 ) ? $dxcc[1]->itu() : 0;
+ my $spotted_cq = (@dxcc > 0 ) ? $dxcc[1]->cq() : 0;
+ push @out, $spotted_dxcc;
@dxcc = Prefix::extract($out[4]);
@dxcc = Prefix::extract($out[4]);
- push @out, (@dxcc > 0 ) ? $dxcc[1]->dxcc() : 0;
+ my $spotter_dxcc = (@dxcc > 0 ) ? $dxcc[1]->dxcc() : 0;
+ my $spotter_itu = (@dxcc > 0 ) ? $dxcc[1]->itu() : 0;
+ my $spotter_cq = (@dxcc > 0 ) ? $dxcc[1]->cq() : 0;
+ push @out, $spotter_dxcc;
push @out, $spot[5];
my $buf = join("\^", @out);
push @out, $spot[5];
my $buf = join("\^", @out);
@@
-63,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
$buf
;
+ return
(@out, $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
@@
-77,7
+83,10
@@
sub add
# $f2 = date in unix format
# $f3 = comment
# $f4 = spotter
# $f2 = date in unix format
# $f3 = comment
# $f4 = spotter
-# $f5 = dxcc country
+# $f5 = spotted dxcc country
+# $f6 = spotter dxcc country
+# $f7 = origin
+#
#
# In addition you can specify a range of days, this means that it will start searching
# from <n> days less than today to <m> days less than today
#
# In addition you can specify a range of days, this means that it will start searching
# from <n> days less than today to <m> days less than today