From: minima Date: Fri, 2 Mar 2001 23:00:33 +0000 (+0000) Subject: fixed client line so it unconditionally starts a connection even with X-Git-Tag: R_1_47~164 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=838a7345a2540d9707dacf2ff61431b214e4cdac;p=spider.git fixed client line so it unconditionally starts a connection even with buffered up lines. always have an empty outqueue array available. --- diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm index 33c17bfd..58fb619f 100644 --- 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 diff --git a/perl/Msg.pm b/perl/Msg.pm index 774db635..fd6e3b17 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -47,6 +47,7 @@ sub new my $conn = { rproc => $rproc, inqueue => [], + outqueue => [], state => 0, lineend => "\r\n", csort => 'telnet',