X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=a62c6bef77de07b90cbf6a41711cc6f58708e6e5;hb=a16379954943ab0ff013fbd26b0421cae92c55d6;hp=fcc30cfe2255ce9b71cf9db3d935b8b50b413e6d;hpb=2712b7f62c605559eba46781d793a63591a7d5d3;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index fcc30cfe..a62c6bef 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -776,9 +776,15 @@ sub send_delayed_pc92
 {
 	my $self = shift;
 	
-	# send out delayed PC92 config for this node if it is external
-	my $line = $main::me->gen_my_pc92_config;
+	# send out new PC92 config to everyone else 
+	my $line = gen_my_pc92_config($main::me);
 	$self->broadcast_route_pc9x($main::mycall, undef, $line, 0);
+
+	# if this is an external node then send out the external config
+	unless ($self->{do_pc92}) {
+		$line = gen_my_pc92_config(Route::Node::get($self->{call}));
+		$self->broadcast_route_pc9x($main::mycall, undef, $line, 0);
+	}
 }
 
 # send local configuration
@@ -881,19 +887,10 @@ sub handle_22
 			$self->disconnect;
 			return;
 		}
-#		my $ref = Route::Node::get($self->{call});
-#		if ($ref) {
-#			$main::me->route_pc92a($main::mycall, undef, $main::routeroot, $ref);
-#		} else {
-#			dbg("PCPROT: disconnecting because pc92 for $self->{call} received") if isdbg('chanerr');
-#			$self->disconnect;
-#			return;
-#		}
-#	} else {
-		$self->send_delayed_pc92;
 	}
 	$self->{lastping} = 0;
 	$self->state('normal');
+	$self->send_delayed_pc92;
 }
 				
 # WWV info