X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fclient.pl;h=ddf3fd3ba6adba52f6ed6f19ccab464d613dbd05;hb=dc016a0633cdb15d29b9a71fdec2c230fbad201b;hp=f153b589cb455b7eaf3348088697c13daa6f8977;hpb=b73aa9d811a4a1691f4ec2a9aaba0eb51f5ff62d;p=spider.git

diff --git a/perl/client.pl b/perl/client.pl
index f153b589..ddf3fd3b 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -94,6 +94,7 @@ sub setmode
 		$out_lineend = "\r\n";
 	}
 	$/ = $mynl;
+	$out_lineend = $mynl;
 }
 
 # handle incoming messages
@@ -235,6 +236,12 @@ sub doconnect
 		$sock->output_record_separator('');
 		$sock->option_accept(Dont => TELOPT_ECHO, Wont => TELOPT_ECHO);
 		$sock->open($host) or die "Can't connect to $host port $port $!";
+		if ($port == 23) {
+			$sock->telnetmode(1);
+			$sock->option_send(Dont => TELOPT_ECHO, Wont => TELOPT_ECHO) if $port == 23;
+		} else {
+			$sock->telnetmode(0);
+		}
 		$sock->binmode(0);
 		$mode = 3;
 	} elsif ($sort eq 'ax25' || $sort eq 'prog') {