From: minima <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',