Do not include the "autokey" in the "greykey"
authorheiko
Wed, 01 Jun 2016 11:18:48 +0200
changeset 66 16b4815a6a15
parent 65 a118304a1f79
child 67 da29842506b4
Do not include the "autokey" in the "greykey"
lib/Exim/Grey.pm
--- a/lib/Exim/Grey.pm	Wed Jun 01 11:18:23 2016 +0200
+++ b/lib/Exim/Grey.pm	Wed Jun 01 11:18:48 2016 +0200
@@ -57,7 +57,8 @@
     my $delay  = shift // $DEFAULT{delay};
     my $db     = shift // $DEFAULT{db};
     my $now    = time();
-    my ($auto) = $item =~ /.*?\/(.+?)$/;
+    my ($auto) = $item =~ /.*?\/(.+?)$/ # remove the /<autokey> from the item
+        and $item =~ s/\/.*?$//;
     my $rc;
 
     connectDB(\my %h, $db);