projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tried to make the date parsing more robust
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 0225f2f0c314a54b3d298fc9899a8a20e329d256..ff891427079e0da82419badd01176534a9be815e 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-138,7
+138,7
@@
sub normal
eval {
$pcr = Local::pcprot($self, $pcno, @field);
};
eval {
$pcr = Local::pcprot($self, $pcno, @field);
};
-
dbg('local', "Local::pcprot error $@") if $@;
+
#
dbg('local', "Local::pcprot error $@") if $@;
return if $pcr;
SWITCH: {
return if $pcr;
SWITCH: {
@@
-195,9
+195,9
@@
sub normal
# local processing
my $r;
eval {
# local processing
my $r;
eval {
- $r = Local::spot
1
($self, $freq, $field[2], $d, $text, $spotter, $field[7]);
+ $r = Local::spot($self, $freq, $field[2], $d, $text, $spotter, $field[7]);
};
};
-
dbg('local', "Local::spot1 error $@") if $@;
+
#
dbg('local', "Local::spot1 error $@") if $@;
return if $r;
# send orf to the users
return if $r;
# send orf to the users
@@
-271,7
+271,7
@@
sub normal
for ($i = 2; $i < $#field; $i++) {
my ($call, $confmode, $here) = $field[$i] =~ /^(\S+) (\S) (\d)/o;
for ($i = 2; $i < $#field; $i++) {
my ($call, $confmode, $here) = $field[$i] =~ /^(\S+) (\S) (\d)/o;
- next if length $call < 3 || length $call > 8;
+ next if
!$call ||
length $call < 3 || length $call > 8;
next if !$confmode;
$call = uc $call;
next if DXCluster->get_exact($call); # we already have this (loop?)
next if !$confmode;
$call = uc $call;
next if DXCluster->get_exact($call); # we already have this (loop?)
@@
-390,15
+390,15
@@
sub normal
return;
}
$wwvdup{$dupkey} = $d;
return;
}
$wwvdup{$dupkey} = $d;
- $field[6] =~ s/-\d+$//o # remove spotter's ssid
+ $field[6] =~ s/-\d+$//o
;
# remove spotter's ssid
my $wwv = Geomag::update($d, $field[2], $sfi, $k, $i, @field[6..$#field]);
my $r;
eval {
my $wwv = Geomag::update($d, $field[2], $sfi, $k, $i, @field[6..$#field]);
my $r;
eval {
- $r = Local::wwv
2
($self, $field[1], $field[2], $sfi, $k, $i, @field[6..$#field]);
+ $r = Local::wwv($self, $field[1], $field[2], $sfi, $k, $i, @field[6..$#field]);
};
};
-
dbg('local', "Local::wwv2 error $@") if $@;
+
#
dbg('local', "Local::wwv2 error $@") if $@;
return if $r;
# DON'T be silly and send on PC27s!
return if $r;
# DON'T be silly and send on PC27s!
@@
-545,7
+545,7
@@
sub normal
if ($pcno == 50) { # keep alive/user list
my $ref = DXCluster->get_exact($field[1]);
if ($pcno == 50) { # keep alive/user list
my $ref = DXCluster->get_exact($field[1]);
- $ref->update_users($field[2]) if $ref;
+ $ref->update_users($field[2]) if $ref;
last SWITCH;
}
last SWITCH;
}