From 5f756bad4a3629664e4e3bc4d9cdd60674503583 Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 9 Jun 2001 14:32:46 +0000 Subject: [PATCH] fix problem with outgoing connects also sending connect string --- Changes | 2 ++ perl/ExtMsg.pm | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 40e48b31..994e188d 100644 --- a/Changes +++ b/Changes @@ -3,6 +3,8 @@ 2. add set/debug filter so that you can see why your filters aren't working (for sysops only) 3. add ephemera deduping for all those PC41,24,50 etc etc broadcasts +4. Fix a problem with the connect text being sent on outgoing connections +(this confuses db0fhf amongst other things) 08Jun01======================================================================= 1. first cut with new routing code. Created NEW_ROUTE branch 2. added acc/route and rej/route commands diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm index 4efb3484..be7d0e84 100644 --- a/perl/ExtMsg.pm +++ b/perl/ExtMsg.pm @@ -118,7 +118,7 @@ sub to_connected $conn->{timeout}->del if $conn->{timeout}; delete $conn->{timeout}; &{$conn->{rproc}}($conn, "$dir$call|$sort"); - $conn->_send_file("$main::data/connected"); + $conn->_send_file("$main::data/connected") unless $conn->{outgoing}; } sub new_client { @@ -169,6 +169,7 @@ sub start_connect my $call = shift; my $fn = shift; my $conn = ExtMsg->new(\&main::new_channel); + $conn->{outgoing} = 1; $conn->conns($call); my $f = new IO::File $fn; -- 2.43.0