$out_lineend = "\r\n";
}
$/ = $mynl;
+ $out_lineend = $mynl;
}
# handle incoming messages
$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 $!";
- $sock->binmode(1);
+ 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') {
my @args = split /\s+/, $line;
}
if ($send) {
if ($csort eq 'telnet') {
- local $\ = $out_lineend;
- $sock->print("$send$out_lineend");
+# local $\ = $out_lineend;
+ $sock->print("$send\n");
} elsif ($csort eq 'ax25') {
local $\ = $out_lineend;
$wfh->print("$send");