projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d4074d9
)
modified binmode rather than doing the lineendings manually
author
minima
<minima>
Sat, 24 Feb 2001 11:17:18 +0000
(11:17 +0000)
committer
minima
<minima>
Sat, 24 Feb 2001 11:17:18 +0000
(11:17 +0000)
perl/client.pl
patch
|
blob
|
history
diff --git
a/perl/client.pl
b/perl/client.pl
index 06d4cbc49bf16ab274d4fa926538f35090816b74..f153b589cb455b7eaf3348088697c13daa6f8977 100755
(executable)
--- a/
perl/client.pl
+++ b/
perl/client.pl
@@
-235,7
+235,7
@@
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 $!";
$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
);
+ $sock->binmode(
0
);
$mode = 3;
} elsif ($sort eq 'ax25' || $sort eq 'prog') {
my @args = split /\s+/, $line;
$mode = 3;
} elsif ($sort eq 'ax25' || $sort eq 'prog') {
my @args = split /\s+/, $line;
@@
-316,8
+316,8
@@
sub dochat
}
if ($send) {
if ($csort eq 'telnet') {
}
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");
} elsif ($csort eq 'ax25') {
local $\ = $out_lineend;
$wfh->print("$send");