X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=6d3c09de809ddd68f3f745677402bf98ba4693fa;hb=f6d0b05b25a61cb6d3aa671b7a8f5d4a69817b1c;hp=c4344339f16131424117c3e1d36f6f6f9fbe5af4;hpb=1935ba236a7ef4999bceb00b6faf28038f3b052e;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index c4344339..6d3c09de 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -719,6 +719,8 @@ sub handle_18
 sub check_add_node
 {
 	my $call = shift;
+	my $type = shift;
+	
 
 	# add this station to the user database, if required (don't remove SSID from nodes)
 	my $user = DXUser::get_current($call);
@@ -728,7 +730,7 @@ sub check_add_node
 		$user->lockout(1);
 		$user->homenode($call);
 		$user->node($call);
-		$user->sort('A');
+		$user->sort($type || 'A');
 		$user->lastin($main::systime); # this make it last longer than just this invocation
 		$user->put;				# just to make sure it gets written away!!!
 	}
@@ -1560,6 +1562,7 @@ sub _add_thingy
 				}
 			} else {
 				dbg("ROUTE: added user $call to $ncall") if isdbg('routelow');
+				my $user = check_add_node($call, 'U');
 				@rout = $parent->add_user($call, Route::here($here), $ip);
 				$dxchan->tell_buddies('loginb', $call, $ncall) if $dxchan;
 				my $r = Route::User::get($call);