From fade7a04893b2451b0dce2f51bffcd8b7f669a85 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Tue, 25 May 1999 11:34:56 +0000
Subject: [PATCH] tried to sort out last in fixed problem with client printing
 out crap if there is an offline message

---
 Changes        | 5 +++++
 perl/DXProt.pm | 4 ++--
 perl/client.pl | 2 +-
 3 files changed, 8 insertions(+), 3 deletions(-)

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 {
-- 
2.34.1