X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2Fclient.pl;h=b7bb5452f684becf01bc12273b1e89d37dd0ccef;hp=9c4fc0f5088a9b39d76cfe51592a295d5701ccc9;hb=4d3067793942b3f4518615906dde50db5b76464a;hpb=7a356e1acb6d7e513e2004d75c6c39f0c326081a

diff --git a/perl/client.pl b/perl/client.pl
index 9c4fc0f5..b7bb5452 100755
--- 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\"");
 	}