From: djk <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.org/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 (<IN>) {
 			s/\n/\r/og if $mode == 1;
-			print $stdout;
+			print $stdout $_;
 		}
 		close IN;
 	} else {