X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=8f16da6603436b57eb6b36831bfc5b19c7085eed;hb=e2e4dadc448747744dacc0eb8d99ee950529a9b3;hp=35f91fefb301a56d9334dc59b0f2cd4024550757;hpb=7f15868bb42d0fd790dd41a886fc14127f4cf41c;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 35f91fef..8f16da66 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(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(user=>$self->{call});
+	my $nref = Route::Node::get($self->{call});
+	$thing->broadcast if $thing->copy_pc16_data($nref);
 }
 				
 # WWV info