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 b23f4be5cb68f79ab38e91f49dbb80820ae7d002..4b6cefaa8b02cdf19cfa1a48e1a64a20933b95e9 100644 (file)
--- 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 0bde0d2cd010623bc34dfd551989a45336369b61..ce9b13a4b077c61cd0c8568784f768061f992081 100644 (file)
--- 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 850b81d6f108da40bf7194e937438aa03e7cf402..9e948a181a64bee603208586c1573d65ddccf327 100755 (executable)
--- 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 {