X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;h=8acce7f383bdca5b235433509f94e1e4e98fcc7f;hb=b85ee0ca2b03ee2c5be20bd430cfa00757b7ebdb;hp=6359b319dfd14c2d839dbd334e812a4e7e7afd45;hpb=39e32c88a046b35281a6b1e6e8cf20703b4a9a03;p=spider.git

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 6359b319..8acce7f3 100644
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -254,19 +254,21 @@ sub write
 sub print
 {
 	my $self = shift;
+	my $name = shift || $self->{name};
+	my $sort = shift || $self->{sort};
+	my $flag = shift || "";
 	my @out;
-	my $name = $self->{name};
 	$name =~ s/.pl$//;
 	
-	push @out, join(' ',  $name , ':', $self->{sort});
+	push @out, join(' ',  $name , ':', $sort, $flag);
 	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});
 		}
-		if ($filter->{accept} && exists $filter->{accept}->{user}) {
+		if (exists $filter->{accept} && exists $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__