X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Faccept%2Fspots.pl;fp=cmd%2Faccept%2Fspots.pl;h=a76e3b34d99959dd35d094446222caafbe96b1fe;hb=211b54d504170a8c9dad2bf25b9ed686d5eeac11;hp=0000000000000000000000000000000000000000;hpb=0ee845aaebeeb0f5a7232021d9c633a0ef2fff80;p=spider.git

diff --git a/cmd/accept/spots.pl b/cmd/accept/spots.pl
new file mode 100644
index 00000000..a76e3b34
--- /dev/null
+++ b/cmd/accept/spots.pl
@@ -0,0 +1,31 @@
+#
+# accept/reject filter commands
+#
+# Copyright (c) 2000 Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+my ($self, $line) = @_;
+my $sort = 'accept';
+
+my ($r, $filter, $fno, $user, $s) = $Spot::filterdef->parse($self, $line);
+return (0, $filter) if $r;
+
+my $fn = "filter$fno";
+
+$filter->{$fn} = {} unless exists $filter->{$fn};
+$filter->{$fn}->{$sort} = {} unless exists $filter->{$fn}->{$sort};
+
+$filter->{$fn}->{$sort}->{user} = $user;
+my $ref = eval $s;
+return (0, $s, $@) if $@;
+
+$filter->{$fn}->{$sort}->{asc} = $s;
+$r = $filter->write;
+return (0, $r) if $r;
+
+$filter->{$fn}->{$sort}->{code} = $ref;
+$filter->install;
+
+return (0, $self->msg('filter1', $fno, $filter->{name}));