From: djk Date: Tue, 25 May 1999 11:34:56 +0000 (+0000) Subject: tried to sort out last in X-Git-Tag: R_1_28~2 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=fade7a04893b2451b0dce2f51bffcd8b7f669a85;p=spider.git tried to sort out last in fixed problem with client printing out crap if there is an offline message --- diff --git a/Changes b/Changes index b23f4be5..4b6cefaa 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,8 @@ +25May99======================================================================= +1. try to make the lastin value correct even for local users +2. got rid of the stupid bug that failed to print out the offline message +but put a "*main::STDOUTmain" for every line of that message instead. +3. Ported to 5.00503 (well actually just installed it and it just runs). 23May99======================================================================= 1. Got rid of some of the useless error messages on global destruction when quiting a program. diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 0bde0d2c..ce9b13a4 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -326,7 +326,7 @@ sub normal $user = DXUser->new($call) if !$user; $user->homenode($node->call) if !$user->homenode; $user->node($node->call); - $user->lastin($main::systime); + $user->lastin($main::systime) unless DXChannel->get($call); $user->put; } @@ -379,7 +379,7 @@ sub normal $user->homenode($call); $user->node($call); } - $user->lastin($main::systime); + $user->lastin($main::systime) unless DXChannel->get($call); $user->put; } diff --git a/perl/client.pl b/perl/client.pl index 850b81d6..9e948a18 100755 --- a/perl/client.pl +++ b/perl/client.pl @@ -474,7 +474,7 @@ if (! $conn) { open IN, "$data/offline" or die; while () { s/\n/\r/og if $mode == 1; - print $stdout; + print $stdout $_; } close IN; } else {