X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Faccept%2Fannounce.pl;h=9ea20a7617a6e64f43093064fe625444fb4e883a;hb=d0b21f21559a63d84086b549bb7570e2e16b75cd;hp=9eee8b9d3981b2c997d4099bd0b4cc6d33cc2d9e;hpb=70261345f844db52943884eb12c204c17105721b;p=spider.git diff --git a/cmd/accept/announce.pl b/cmd/accept/announce.pl index 9eee8b9d..9ea20a76 100644 --- a/cmd/accept/announce.pl +++ b/cmd/accept/announce.pl @@ -3,7 +3,7 @@ # # Copyright (c) 2000 Dirk Koopman G1TLH # -# $Id$ +# # my ($self, $line) = @_; @@ -11,4 +11,5 @@ my $type = 'accept'; my $sort = 'ann'; my ($r, $filter, $fno) = $AnnTalk::filterdef->cmd($self, $sort, $type, $line); -return (0, $r ? $filter : $self->msg('filter1', $fno, $filter->{name})); +my $ok = $r ? 0 : 1; +return ($ok, $r ? $filter : $self->msg('filter1', $fno, $filter->{name}));