From cc91428ca79b3cdfdc7733505384f5983ad6c7fa Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sun, 23 May 1999 11:12:21 +0000
Subject: [PATCH] added raw mode for cluster connections ?

---
 Changes                    |  2 ++
 filter/ann/GB7MBC.pl.issue | 17 +++++++++++++++++
 perl/DXProt.pm             |  3 ++-
 perl/client.pl             |  3 ++-
 4 files changed, 23 insertions(+), 2 deletions(-)
 create mode 100644 filter/ann/GB7MBC.pl.issue

diff --git a/Changes b/Changes
index 1fa3106c..e6603aec 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+23May99=======================================================================
+1. tried to change connection to raw mode for cluster connections
 22May99=======================================================================
 1. added check for -1 from Date::Parse and return undef for out of range dates
 2. added show/files and type commands
diff --git a/filter/ann/GB7MBC.pl.issue b/filter/ann/GB7MBC.pl.issue
new file mode 100644
index 00000000..5d37fb63
--- /dev/null
+++ b/filter/ann/GB7MBC.pl.issue
@@ -0,0 +1,17 @@
+#
+# This is an example announce or filter allowing only West EU announces
+# 
+# The element list is:-
+# 0 - callsign of announcer
+# 1 - destination * = all, <callsign> = routed to the node
+# 2 - text
+# 3 - * - sysop, <some text> - special list eg 6MUK, ' ', normal announce
+# 4 - origin
+# 5 - 0 - announce, 1 - wx
+# 6 - channel callsign (the interface from which this spot came)
+
+$in = [
+        [ 1, 0, 'a', '^(P[ABCDE]|G|M|2|EI|F|ON|LX|HB9)' ],
+        [ 0, 0, 'd', 0 ]
+];
+
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 04d62e4b..0bde0d2c 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -116,8 +116,9 @@ sub start
 	$self->{wwvfilter} = Filter::read_in('wwv', $call);
 	$self->{annfilter} = Filter::read_in('ann', $call);
 	
-	# set unbuffered
+	# set unbuffered and no echo
 	$self->send_now('B',"0");
+	$self->send_now('E',"0");
 	
 	# send initialisation string
 	if (!$self->{outbound}) {
diff --git a/perl/client.pl b/perl/client.pl
index 2392dfa8..4a4069f0 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -127,7 +127,8 @@ sub rec_socket
 				$mode = $line;		# set echo mode from cluster
 				my $term = POSIX::Termios->new;
 				$term->getattr(fileno($sock));
-				$term->setflag( &POSIX::ISIG );
+				$term->setiflag( 0 );
+				$term->setoflag( 0 );
 				$term->setattr(fileno($sock), &POSIX::TCSANOW );
 			}
 		} elsif ($sort eq 'I') {
-- 
2.34.1