projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix callsigns in group field
[spider.git]
/
perl
/
Aranea.pm
diff --git
a/perl/Aranea.pm
b/perl/Aranea.pm
index c04534b73bacf2d2cdb2ea38a1b282275834fee8..08d97ce99cc605ed78323a1ec6a0107e35b7d3d3 100644
(file)
--- a/
perl/Aranea.pm
+++ b/
perl/Aranea.pm
@@
-191,7
+191,7
@@
sub per_minute
# i am special but, currently, still a node
my $thing = Thingy::Rt->new_cf;
$thing->broadcast;
# i am special but, currently, still a node
my $thing = Thingy::Rt->new_cf;
$thing->broadcast;
- $
self
->lastcf($main::systime);
+ $
dxchan
->lastcf($main::systime);
} else {
# i am a pc protocol node connected directly
} else {
# i am a pc protocol node connected directly
@@
-247,7
+247,7
@@
sub disconnect
DXProt::route_pc21($self, $main::mycall, undef, @rout) if @rout;
# remove outstanding pings
DXProt::route_pc21($self, $main::mycall, undef, @rout) if @rout;
# remove outstanding pings
-
# delete $pings{$call}
;
+
Thingy::Ping::forget($call)
;
# I was the last node visited
$self->user->node($main::mycall);
# I was the last node visited
$self->user->node($main::mycall);
@@
-383,7
+383,7
@@
sub input
my ($gp, $tus) = split /:/, $group, 2 if $group;
$err .= "from me," if $origin eq $main::mycall;
my ($gp, $tus) = split /:/, $group, 2 if $group;
$err .= "from me," if $origin eq $main::mycall;
- $err .= "invalid group ($gp)," if $gp && $gp !~ /^[A-Z0-9]{2,}$/;
+ $err .= "invalid group ($gp)," if $gp && $gp !~ /^[
-
A-Z0-9]{2,}$/;
$err .= "invalid tocall ($tus)," if $tus && !is_callsign($tus);
$err .= "invalid fromcall ($user)," if $user && !is_callsign($user);
$err .= "invalid tocall ($tus)," if $tus && !is_callsign($tus);
$err .= "invalid fromcall ($user)," if $user && !is_callsign($user);