[Mimedefang] Code fragment works only sometimes

[Jeffrey Culverhouse]

On Mon, 14 Jul 2003 22:16:22 EST
Andrea Venturoli <ml.ventu at flashnet.it> wrote:

> Ok, I've tried these two. Since I'm not a perl guru, I've reported my code
> once again. Could you please give it another look?
> 
>     if
>     (open(HDR,"HEADERS")&&open(BLK,"/usr/local/netfence/local/etc/spam_re
>     cipients")){
>         my(@lines)=<HDR>; my(@blk)=<BLK>;
>         close(HDR); close(BLK);
>         foreach $line (@lines)
>         {
>             foreach $blk (@blk)
>             {
>                 if (rindex($line,$blk)!=-1)
>                 {
>                     md_log($line);
>                     return action_bounce("Spam is not accepted");
>                 }
>             }
>         }
>     }


You could try (I think), for the loop

         foreach $line (@lines)
         {
             if (grep ($_ =~ $line, @blk))
             {
                   md_log($line);
                   return action_bounce("Spam is not accepted");
             }
         }






-- 
"It is not so much that I have confidence in scientists being right,
but that I have so much in nonscientists being wrong..."
  Isaac Asimov (from 1977 essay "Asimov's Corollary,"
    reprinted in Quasar, Quasar, Burning Bright, 1977)

Jeff Culverhouse * jeff at rev.net
VP Operations, Rev.Net Technologies, Inc.
V 540.772.3282 F 540.772.0573