From: 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]"); }