From 076b94b8ba5b24af929056d5e4c5217427f93b9e Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 28 Mar 2001 22:36:55 +0000
Subject: [PATCH] fix always 'telnet' in a connect script with a client line

---
 Changes        | 1 +
 perl/ExtMsg.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 8d90f47d..32d864c1 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 28Mar01=======================================================================
 1. AGW engine stuff now accepts incoming calls and at least attempts to do
 outgoing ones. YMMV.
+2. fixed 'always' telnet on a client line in a connect script
 27Mar01=======================================================================
 1. add first cut at an AGW Engine. Copy /spider/perl/AGWConnect.pm to 
 /spider/local and edit it appropriately. You shouldn't need a login and passwd
diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index c4522146..49982a18 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -341,7 +341,7 @@ sub _doclient
 	$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};
 }
-- 
2.34.1