X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=6a82cb16dc02d6facf3e7fac7f03e8e836784117;hb=589de1133c9ef2ecc6567473c24cff1717fb604b;hp=61e72661270c41c552c61ae54027accb7879b890;hpb=3784e03cd598b7f540fb849a533b7589867a066a;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 61e72661..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; } @@ -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');