[Mimedefang] filter feedback desired

[Isaiah]

	Given the information you provided, it seems it would be much easier to do:

         if (open(HDRS, "<./HEADERS")) {
                 while(<HDRS>) {
                         if (/^From.*email\@address/i) {
                                 $TAG = 1;
                                 last;
                         } else {
                                 $TAG = 0;
                         }
                 }
                 close(HDRS);
         }
	if ($TAG) {
                 action_add_header("X-Orig-Rcpts", join(", ", @Recipients));
                 foreach $recip (@Recipients) {
                         delete_recipient($recip);
                 }
                 add_recipient('email at address');
         }

	Thanks for all the helpful information; you guys are great!

David F. Skoll wrote:
> On Tue, 30 Dec 2003, Kevin A. McGrail wrote:
> 
> 
>>#Change Sender case to all lower case to confirm the check is absolute a 1:1
>>check
>>if (lc($Sender) eq "email at address") {
> 
> 
> You need to check for angle-brackets also.  And Perl will not like
> "email at address"; try 'email at address' instead.
> 
> --
> David.
> _______________________________________________
> Visit http://www.mimedefang.org and http://www.canit.ca
> MIMEDefang mailing list
> MIMEDefang at lists.roaringpenguin.com
> http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
>