From 838a7345a2540d9707dacf2ff61431b214e4cdac Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 2 Mar 2001 23:00:33 +0000 Subject: [PATCH] fixed client line so it unconditionally starts a connection even with buffered up lines. always have an empty outqueue array available. --- perl/ExtMsg.pm | 4 ++++ perl/Msg.pm | 1 + 2 files changed, 5 insertions(+) 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', -- 2.43.0