MINI MINI MANI MO

diff -ru amavisd-new-2.6.4_vanilla/amavisd amavisd-new-2.6.4_policyd-201003290852/amavisd
--- amavisd-new-2.6.4_vanilla/amavisd	2009-06-25 12:39:01.000000000 +0000
+++ amavisd-new-2.6.4_policyd-201003290852/amavisd	2010-03-29 08:54:22.000000000 +0000
@@ -8456,6 +8456,7 @@
 sub before_send { my($self,$conn,$msginfo)  = @_; undef }
 sub after_send  { my($self,$conn,$msginfo)  = @_; undef }
 sub mail_done   { my($self,$conn,$msginfo)  = @_; undef }
+sub process_policy   { my($self,$conn,$msginfo,$pbn)  = @_; return $pbn }
 
 1;
 
@@ -10353,6 +10354,20 @@
 #       $r->user_policy_id($user_policy_id);  # just the first match
 #     }
     }
+
+    # Check if we need to do last minute policy changes
+    if (ref $custom_object) {
+      $which_section = "custom-process_policy";
+      eval {
+        my $new_policy_bank = $custom_object->process_policy($conn,$msginfo,\%current_policy_bank); 1;
+	%current_policy_bank = %{ $new_policy_bank };
+      } or do {
+        my($eval_stat) = $@ ne '' ? $@ : "errno=$!";  chomp $eval_stat;
+        do_log(-1,"custom process_policy error: %s", $eval_stat);
+      };
+      section_time($which_section);
+    }
+
     # update message count and mesage size snmp counters
     # orig local
     #   0   0  InMsgsOpenRelay