projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use the correct call 'new_cf' everywhere
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 35f91fefb301a56d9334dc59b0f2cd4024550757..65b666a2fed8a5315e4b641ec1527314bb0e98ef 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1094,6
+1094,9
@@
sub handle_20
$self->send(pc22());
$self->state('normal');
$self->{lastping} = 0;
$self->send(pc22());
$self->state('normal');
$self->{lastping} = 0;
+ my $thing = Thingy::Rt->new_cf(user=>$self->{call});
+ my $nref = Route::Node::get($self->{call});
+ $thing->broadcast if $thing->copy_pc16_data($nref);
}
# delete a cluster from the list
}
# delete a cluster from the list
@@
-1174,6
+1177,9
@@
sub handle_22
my $origin = shift;
$self->state('normal');
$self->{lastping} = 0;
my $origin = shift;
$self->state('normal');
$self->{lastping} = 0;
+ my $thing = Thingy::Rt->new_cf(user=>$self->{call});
+ my $nref = Route::Node::get($self->{call});
+ $thing->broadcast if $thing->copy_pc16_data($nref);
}
# WWV info
}
# WWV info