Function to get delete recipe

diff --git a/spam/spam-lib.pl b/spam/spam-lib.pl
index c5f7c5c..ca2b419 100644 (file)
--- a/spam/spam-lib.pl
+++ b/spam/spam-lib.pl
@@ -648,13 +648,13 @@ return undef;
 }
 
 # find_file_recipe(&recipes)
-# Returns the recipe for delivering mail based on the X-Spam-Status header
+# returns the recipe for delivering mail based on the x-spam-status header
 sub find_file_recipe
 {
 local ($r, $c);
 foreach $r (@{$_[0]}) {
        foreach $c (@{$r->{'conds'}}) {
-               if ($c->[1] =~ /X-Spam-Status/i) {
+               if ($c->[1] =~ /x-spam-status/i) {
                        return $r;
                        }
                }
@@ -662,6 +662,22 @@ foreach $r (@{$_[0]}) {
 return undef;
 }
 
+# find_delete_recipe(&recipes)
+# returns the recipe for delete mail based on the x-spam-level header, and
+# the level it deletes at.
+sub find_delete_recipe
+{
+local ($r, $c);
+foreach $r (grep { $_->{'action'} eq '/dev/null' } @{$_[0]}) {
+       foreach $c (@{$r->{'conds'}}) {
+               if ($c->[1] =~ /x-spam-level:\s+((\\\*)+)/i) {
+                       return ($r, length($1)/2);
+                       }
+               }
+       }
+return ( );
+}
+
 # find_virtualmin_recipe(&recipes)
 # Returns the recipe that runs the Virtualmin lookup command
 sub find_virtualmin_recipe