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

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 748506be..fcc30cfe 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -777,13 +777,8 @@ sub send_delayed_pc92
 	my $self = shift;
 	
 	# send out delayed PC92 config for this node if it is external
-	unless ($self->{do_pc92}) {
-		my $node = Route::Node::get($self->{call});
-		if ($node) {
-			my @rout = map {my $r = Route::User::get($_); $r ? ($r) : ()} $node->users;
-			$self->route_pc92c($main::mycall, undef, $node, @rout);
-		} 
-	}
+	my $line = $main::me->gen_my_pc92_config;
+	$self->broadcast_route_pc9x($main::mycall, undef, $line, 0);
 }
 
 # send local configuration
@@ -886,15 +881,15 @@ 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 {
+#		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;