added ping and rcmd commands

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index 9c4fc0f5088a9b39d76cfe51592a295d5701ccc9..b7bb5452f684becf01bc12273b1e89d37dd0ccef 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -221,7 +221,7 @@ sub dochat
        dbg('connect', "CHAT \"$expect\" -> \"$send\"");
     my $line;
        
-       #       alarm($timeout);
+       alarm($timeout);
        
     if ($expect) {
                if ($csort eq 'telnet') {
@@ -243,7 +243,7 @@ sub dochat
                        $sock->print("$send\n");
                } elsif ($csort eq 'ax25') {
                        local $\ = "\r";
-                       $wfh->print("$send\r");
+                       $wfh->print("$send");
                }
                dbg('connect', "sent \"$send\"");
        }