added missing wcy filters

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index a2010cd418362eb9d380cf19cdd78cd993b8a976..93d07c1d3a69561ed50e84a40d2f2824a6118645 100644 (file)
--- 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 88aef0db00395a2be049f12f8590be58d66c529d..74353d5b0ba8cf8de770070e1229ad609345af7a 100644 (file)
--- 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