projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make disconnects use $conn->eproc
[spider.git]
/
perl
/
ExtMsg.pm
diff --git
a/perl/ExtMsg.pm
b/perl/ExtMsg.pm
index de0c0bcaf4640b5e8b962702510e20fc8632fa45..49982a18c9aafd9e2f54588cb7aad99c1172b7ac 100644
(file)
--- a/
perl/ExtMsg.pm
+++ b/
perl/ExtMsg.pm
@@
-312,7
+312,7
@@
sub _dochat
}
if ($line =~ /\Q$expect/i) {
dbg('connect', "got: \"$expect\" sending: \"$send\"");
}
if ($line =~ /\Q$expect/i) {
dbg('connect', "got: \"$expect\" sending: \"$send\"");
- $conn->send_later(
$send
);
+ $conn->send_later(
"D$conn->{call}|$send"
);
delete $conn->{msg}; # get rid any input if a match
return;
}
delete $conn->{msg}; # get rid any input if a match
return;
}
@@
-341,7
+341,7
@@
sub _doclient
$conn->conns($call);
$conn->{csort} = $f[1] if $f[1];
$conn->{state} = 'C';
$conn->conns($call);
$conn->{csort} = $f[1] if $f[1];
$conn->{state} = 'C';
- &{$conn->{rproc}}($conn, "O$call|
telnet
");
+ &{$conn->{rproc}}($conn, "O$call|
$conn->{csort}
");
delete $conn->{cmd};
$conn->{timeout}->del if $conn->{timeout};
}
delete $conn->{cmd};
$conn->{timeout}->del if $conn->{timeout};
}