X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=6a82cb16dc02d6facf3e7fac7f03e8e836784117;hb=02ab82e5a26f6055cc6379ef2ff1a16fc93be2e9;hp=efe969b44a17222cbb32b5bd087db8a4329c83f0;hpb=0f0ab4da54a368d833269bb816614b2adae97842;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index efe969b4..6a82cb16 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -688,7 +688,7 @@ sub normal
 		if ($pcno == 43) {
 			last SWITCH;
 		}
-		if ($pcno == 37 || $pcno == 44 || $pcno == 45 || $pcno == 46 || $pcno == 47) {
+		if ($pcno == 37 || $pcno == 44 || $pcno == 45 || $pcno == 46 || $pcno == 47 || $pcno == 48) {
 			DXDb::process($self, $line);
 			return;
 		}
@@ -776,7 +776,7 @@ sub process
 		
 		# send a pc50 out on this channel
 		if ($t >= $dxchan->pc50_t + $DXProt::pc50_interval) {
-			$dxchan->send(pc50());
+			$dxchan->send(pc50(scalar DXChannel::get_all_users));
 			$dxchan->pc50_t($t);
 		} 
 
@@ -844,6 +844,9 @@ sub finish
 	# now broadcast to all other ak1a nodes that I have gone
 	broadcast_ak1a(pc21($call, 'Gone.'), $self) unless $self->{isolate};
 
+	# I was the last node visited
+    $self->user->node($main::mycall);
+
 	# send info to all logged in thingies
 	$self->tell_login('logoutn');