projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed sh/filter
[spider.git]
/
perl
/
Filter.pm
diff --git
a/perl/Filter.pm
b/perl/Filter.pm
index 6359b319dfd14c2d839dbd334e812a4e7e7afd45..8acce7f383bdca5b235433509f94e1e4e98fcc7f 100644
(file)
--- a/
perl/Filter.pm
+++ b/
perl/Filter.pm
@@
-254,19
+254,21
@@
sub write
sub print
{
my $self = shift;
sub print
{
my $self = shift;
+ my $name = shift || $self->{name};
+ my $sort = shift || $self->{sort};
+ my $flag = shift || "";
my @out;
my @out;
- my $name = $self->{name};
$name =~ s/.pl$//;
$name =~ s/.pl$//;
- push @out, join(' ', $name , ':', $s
elf->{sort}
);
+ push @out, join(' ', $name , ':', $s
ort, $flag
);
my $filter;
my $key;
foreach $key (sort $self->getfilkeys) {
my $filter = $self->{$key};
my $filter;
my $key;
foreach $key (sort $self->getfilkeys) {
my $filter = $self->{$key};
- if ($filter->{reject} && exists $filter->{reject}->{user}) {
+ if (
exists
$filter->{reject} && exists $filter->{reject}->{user}) {
push @out, ' ' . join(' ', $key, 'reject', $filter->{reject}->{user});
}
push @out, ' ' . join(' ', $key, 'reject', $filter->{reject}->{user});
}
- if ($filter->{accept} && exists $filter->{accept}->{user}) {
+ if (
exists
$filter->{accept} && exists $filter->{accept}->{user}) {
push @out, ' ' . join(' ', $key, 'accept', $filter->{accept}->{user});
}
}
push @out, ' ' . join(' ', $key, 'accept', $filter->{accept}->{user});
}
}
@@
-588,6
+590,14
@@
sub it
}
}
}
}
+sub print
+{
+ my $self = shift;
+ my $call = shift;
+ my $sort = shift;
+ my $flag = shift || "";
+ return "$call: Old Style Filter $flag $sort";
+}
1;
__END__
1;
__END__