X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FExtMsg.pm;h=07e740ac6385342d66f4c5a21817cb138fe57092;hb=22709bc68bb04f5ee548053956c88eeca42ad3b4;hp=19380b4463d5007880395790202572a59c6e46de;hpb=fd0a34c34ad4112ee21e0730f7307498ff437e18;p=spider.git

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 19380b44..07e740ac 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -6,9 +6,11 @@
 # and out
 #
 #
-#
 # Copyright (c) 2001 - Dirk Koopman G1TLH
 #
+#	Modified Jan 2006 by John Wiseman G8BPQ to support connections to BPQ32 node,
+#		and fix pattern matching on 'chat' abort handling
+#
 
 package ExtMsg;
 
@@ -151,7 +153,7 @@ sub to_connected
 	delete $conn->{cmd};
 	$conn->{timeout}->del if $conn->{timeout};
 	delete $conn->{timeout};
-	$conn->nolinger;
+	$conn->nolinger unless $conn->isa('AGWMsg');
 	&{$conn->{rproc}}($conn, "$dir$call|$sort");
 	$conn->_send_file("$main::data/connected") unless $conn->{outgoing};
 }
@@ -270,6 +272,10 @@ sub _doconnect
 		# turn it into an AGW object
 		bless $conn, 'AGWMsg';
 		$r = $conn->connect($line);
+	} elsif ($sort eq 'bpq') {
+		# turn it into an BPQ object
+		bless $conn, 'BPQMsg';
+		$r = $conn->connect($line);
 	} elsif ($sort eq 'ax25' || $sort eq 'prog') {
 		$r = $conn->start_program($line, $sort);
 	} else {
@@ -318,7 +324,7 @@ sub _dochat
 	if ($line) {
 		if ($expect) {
 			dbg("connect $conn->{cnum}: expecting: \"$expect\" received: \"$line\"") if isdbg('connect');
-			if ($conn->{abort} && $line =~ /\Q$conn->{abort}/i) {
+			if ($conn->{abort} && $line =~ /$conn->{abort}/i) {
 				dbg("connect $conn->{cnum}: aborted on /$conn->{abort}/") if isdbg('connect');
 				$conn->disconnect;
 				delete $conn->{cmd};