fixed client line so it unconditionally starts a connection even with

[spider.git] / perl / ExtMsg.pm

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 33c17bfd44bcc18bef606c60a221453989da6259..58fb619f89925642561631e85dc6867e9b08b3ff 100644 (file)
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -270,6 +270,10 @@ sub _doclient
        my @f = split /\s+/, $line;
        $conn->{call} = uc $f[0] if $f[0];
        $conn->{csort} = $f[1] if $f[1];
+       $conn->{state} = 'C';
+       &{$conn->{rproc}}($conn, "O$conn->{call}|telnet");
+       delete $conn->{cmd};
+       $conn->{timeout}->del_timer if $conn->{timeout};
 }
 
 sub _send_file