removed unwanted pc21 for isolated nodes

diff --git a/Changes b/Changes
index 17dfc5b2887ff9f05ec950859f3ecbc87bd4c644..3f1ccc506f2b640ccb7f87c7bc8284fd9a7a839c 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+01Jun99=======================================================================
+1. removed a output of an unwanted pc21 for isolated nodes
 31May99=======================================================================
 1. Added checking for PC16,17,19 and 21 to make sure that they come in from
 the channels that they are supposed to.

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index aa848eb72eabca27461d215621a02f46e95db387..f4f56e7dff3e701f190daf5a3a97c605ce9b72b0 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -742,7 +742,7 @@ sub finish
        delete $pings{$call};
        
        # now broadcast to all other ak1a nodes that I have gone
-       broadcast_ak1a(pc21($call, 'Gone.'), $self);
+       broadcast_ak1a(pc21($call, 'Gone.'), $self) unless $self->{isolate};
        
        Log('DXProt', $call . " Disconnected");
        $ref->del() if $ref;

diff --git a/perl/client.pl b/perl/client.pl
index 1a57a1c6e983bb229d283fe4f040ff0aee9e3c2a..8a19719ef54ec26333bc6f140d5af1fb3c11e1b2 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -163,7 +163,9 @@ sub rec_stdin
        #  $prbuf =~ s/\r/\\r/;
        #  $prbuf =~ s/\n/\\n/;
        #  print "sys: $r ($prbuf)\n";
-       if ($r > 0) {
+       if (!defined $r || $r == 0) {
+               cease(1);
+       } elsif ($r > 0) {
                if ($mode) {
                        $buf =~ s/\r/\n/og if $mode == 1;
                        $buf =~ s/\r\n/\n/og if $mode == 2;
@@ -189,9 +191,7 @@ sub rec_stdin
                } else {
                        $conn->send_later("I$call|$buf");
                }
-       } elsif ($r == 0) {
-               cease(1);
-       }
+       } 
        $lasttime = time;
 }