X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=65b666a2fed8a5315e4b641ec1527314bb0e98ef;hb=27b6e9691f9985830388bbb8fc0a04357fa4f11f;hp=35f91fefb301a56d9334dc59b0f2cd4024550757;hpb=c3c15883cf25add24fc49e32eb0d17dce6839a62;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 35f91fef..65b666a2 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1094,6 +1094,9 @@ sub handle_20
 	$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
@@ -1174,6 +1177,9 @@ sub handle_22
 	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