From: minima <minima>
Date: Sun, 12 Nov 2000 22:49:11 +0000 (+0000)
Subject: add 't' action to filter.pm
X-Git-Tag: R_1_45~28
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=20a1e972197e2d479bd35da2deb2bce22209a10e;p=spider.git

add 't' action to filter.pm
---

diff --git a/Changes b/Changes
index e15e2233..1162d9d1 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+12Nov00=======================================================================
+1. Fix lack 't' action in Filter.pm
 08Nov00=======================================================================
 1. fix cosmetic errors in for/oper for 'users'.
 07Nov00=======================================================================
diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 75ae1bef..dce9c04f 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -636,7 +636,7 @@ sub queue_msg
 		# guess, use (to, from, time, subject) tuple?
 		foreach $dxchan (@nodelist) {
 			next if $dxchan->call eq $main::mycall;
-			next if grep { $_ eq $dxchan->call } @{$ref->{gotit}};
+			next if ref $ref->{gotit} && grep $_ eq $dxchan->call, @{$ref->{gotit}};
 			next unless $ref->forward_it($dxchan->call);           # check the forwarding file
 
 			# if we are here we have a node that doesn't have this message
diff --git a/perl/Filter.pm b/perl/Filter.pm
index 59ace8af..b927dc1f 100644
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -456,6 +456,13 @@ sub parse
 								push @t, "(\$r->[$fref->[2]]>=$1 && \$r->[$fref->[2]]<=$2)";
 							}
 							$s .= "(" . join(' || ', @t) . ")";
+						} elsif ($fref->[1] eq 't') {
+							my @t;
+							for (@val) {
+								s/\*//g;
+								push @t, "\$r->[$fref->[2]]=~/$_/i";
+							}
+							$s .= "(" . join(' || ', @t) . ")";
 						} else {
 							confess("invalid letter $fref->[1]");
 						}