From: minima Date: Mon, 27 Aug 2001 21:40:23 +0000 (+0000) Subject: make rej/wwv and rej/wcy work X-Git-Tag: R_1_48~76 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=06cf973726ecfc228d68bc82b63feb026d897a68;p=spider.git make rej/wwv and rej/wcy work --- diff --git a/Changes b/Changes index 3b4d5d57..cf8907bd 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +27Aug01======================================================================= +1. make rej/wwv and rej/wcy work 26Aug01======================================================================= 1. make all newly learned nodes locked out by default. 2. add lock_nodes.pl which locks out all the nodes in the user file whose diff --git a/cmd/reject/wcy.pl b/cmd/reject/wcy.pl index a57d02c4..85ecf3b0 100644 --- a/cmd/reject/wcy.pl +++ b/cmd/reject/wcy.pl @@ -8,7 +8,7 @@ my ($self, $line) = @_; my $type = 'reject'; -my $sort = 'ann'; +my $sort = 'wcy'; my ($r, $filter, $fno) = $WCY::filterdef->cmd($self, $sort, $type, $line); return (0, $r ? $filter : $self->msg('filter1', $fno, $filter->{name})); diff --git a/cmd/reject/wwv.pl b/cmd/reject/wwv.pl index 2af46847..baee52fc 100644 --- a/cmd/reject/wwv.pl +++ b/cmd/reject/wwv.pl @@ -8,7 +8,7 @@ my ($self, $line) = @_; my $type = 'reject'; -my $sort = 'ann'; +my $sort = 'wwv'; my ($r, $filter, $fno) = $Geomag::filterdef->cmd($self, $sort, $type, $line); return (0, $r ? $filter : $self->msg('filter1', $fno, $filter->{name}));