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

diff --git a/Changes b/Changes
index 8d90f47d4b0a385ebff81e69033684b3a0261ffd..32d864c187c60f5ac91d498324505200c0dc3f40 100644 (file)
--- 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 c4522146defe2b09443003f1fe6bd64704915976..49982a18c9aafd9e2f54588cb7aad99c1172b7ac 100644 (file)
--- 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};
 }