2 # accept/reject filter commands
4 # Copyright (c) 2000 Dirk Koopman G1TLH
9 my ($self, $line) = @_;
12 return (0, $self->msg('filter5')) unless $line;
14 my ($r, $filter, $fno, $user, $s) = $Spot::filterdef->parse($self, $line);
15 return (0, $filter) if $r;
17 my $fn = "filter$fno";
19 $filter->{$fn} = {} unless exists $filter->{$fn};
20 $filter->{$fn}->{$sort} = {} unless exists $filter->{$fn}->{$sort};
22 $filter->{$fn}->{$sort}->{user} = $user;
24 return (0, $s, $@) if $@;
26 $filter->{$fn}->{$sort}->{asc} = $s;
30 $filter->{$fn}->{$sort}->{code} = $ref;
33 return (0, $self->msg('filter1', $fno, $filter->{name}));