From: minima <minima>
Date: Wed, 28 Mar 2001 22:36:55 +0000 (+0000)
Subject: fix always 'telnet' in a connect script with a client line
X-Git-Tag: R_1_47~83
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=076b94b8ba5b24af929056d5e4c5217427f93b9e;p=spider.git

fix always 'telnet' in a connect script with a client line
---

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};
 }