From cc91428ca79b3cdfdc7733505384f5983ad6c7fa Mon Sep 17 00:00:00 2001 From: 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, = routed to the node +# 2 - text +# 3 - * - sysop, - 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.43.0