added raw mode for cluster connections ?

diff --git a/Changes b/Changes
index 1fa3106cc05204787898c4f967d13b01811e087d..e6603aec57a6ff2694aae887cca3cbb3fc370f71 100644 (file)
--- 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 (file)
index 0000000..5d37fb6
--- /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 04d62e4b55b02c3c23820cb3761c047b44af99e1..0bde0d2cd010623bc34dfd551989a45336369b61 100644 (file)
--- 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 2392dfa8662f0b1b2d16a83e863281254471c97d..4a4069f07313c0a6d567bbb14a90e76eb499224d 100755 (executable)
--- 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') {