From 9995de8c1bfcb9ed980ab0ef12e4d66564c04105 Mon Sep 17 00:00:00 2001 From: djk Date: Tue, 13 Jun 2000 15:17:52 +0000 Subject: [PATCH] added missing wcy filters --- perl/DXChannel.pm | 2 ++ perl/DXProt.pm | 1 + 2 files changed, 3 insertions(+) diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index a2010cd4..93d07c1d 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -77,6 +77,7 @@ use vars qw(%channels %valid); spotfilter => '5,Spot Filter', inannfilter => '5,Input Ann Filter', inwwvfilter => '5,Input WWV Filter', + inwcyfilter => '5,Input WCY Filter', inspotfilter => '5,Input Spot Filter', passwd => '9,Passwd List,parray', pingint => '5,Ping Interval ', @@ -132,6 +133,7 @@ sub alloc # get the filters $self->{spotfilter} = Filter::read_in('spots', $call, 0); $self->{wwvfilter} = Filter::read_in('wwv', $call, 0); + $self->{wcyfilter} = Filter::read_in('wcy', $call, 0); $self->{annfilter} = Filter::read_in('ann', $call, 0); bless $self, $pkg; diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 88aef0db..74353d5b 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -106,6 +106,7 @@ sub start # get the INPUT filters (these only pertain to Clusters) $self->{inspotfilter} = Filter::read_in('spots', $call, 1); $self->{inwwvfilter} = Filter::read_in('wwv', $call, 1); + $self->{inwcyfilter} = Filter::read_in('wcy', $call, 1); $self->{inannfilter} = Filter::read_in('ann', $call, 1); # set unbuffered and no echo -- 2.43.0