X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandler.pm;fp=perl%2FDXProtHandler.pm;h=9685243e5e6c7ca6cc5c57764a22f1fef272d5c7;hb=a931b090e0be3329bcbf7deddb7c17c30fa0e74a;hp=726c3447a03693412096cd720ff8cfc69f9262ab;hpb=a1fe338de72800232a8623f592c1a62d1f994fad;p=spider.git

diff --git a/perl/DXProtHandler.pm b/perl/DXProtHandler.pm
index 726c3447..9685243e 100644
--- a/perl/DXProtHandler.pm
+++ b/perl/DXProtHandler.pm
@@ -431,7 +431,7 @@ sub handle_16
 		$user->lastin($main::systime) unless DXChannel->get($call);
 		$user->put;
 	}
-	$self->process_pc59($pcno, 'A', hexstamp(), $main::routeroot, 
+	$self->process_pc59($pcno, 'A', hexstamp(), Route::Node::get($self->{call}), 
 						$node, undef, @rout);
 }
 		
@@ -488,7 +488,7 @@ sub handle_17
 		return;
 	}
 
-	$self->process_pc59($pcno, 'D', hexstamp(), $main::routeroot, $node, undef, $uref);  
+	$self->process_pc59($pcno, 'D', hexstamp(), Route::Node::get($self->{call}), $node, undef, $uref);  
 }
 		
 # link request
@@ -516,7 +516,7 @@ sub handle_18
 		$self->version($_[2] / 100) if $_[2] && $_[2] =~ /^\d+$/;
 		$self->user->version($self->version);
 	}
-	$self->newroute( $_[1] =~ /!NRt/ );
+	$self->newroute( $_[1] =~ /\!NRt/ );
 
 	# first clear out any nodes on this dxchannel
 	my $node = Route::Node::get($self->{call}) ;
@@ -618,7 +618,7 @@ sub handle_19
 	# unshift in the route::node for this interface if isn't present
 	if (@rout) {
 		unshift @rout, $parent unless $rout[0]->call ne $self->{call};
-		$self->process_pc59($pcno, 'A', hexstamp(), $main::routeroot, $parent, undef, @rout);
+		$self->process_pc59($pcno, 'A', hexstamp(), Route::Node::get($self->{call}), $parent, undef, @rout);
 	}
 }
 		
@@ -684,7 +684,7 @@ sub handle_21
 		push @rout, $node;
 	}
 
-	$self->process_pc59($pcno, 'D', hexstamp(), $main::routeroot, $parent, undef, @rout);
+	$self->process_pc59($pcno, 'D', hexstamp(), Route::Node::get($self->{call}), $parent, undef, @rout);
 }