lib/Exim/Grey.pm
changeset 66 16b4815a6a15
parent 63 8525154c1389
child 67 da29842506b4
equal deleted inserted replaced
65:a118304a1f79 66:16b4815a6a15
    55 sub unseen {
    55 sub unseen {
    56     my $item   = shift;
    56     my $item   = shift;
    57     my $delay  = shift // $DEFAULT{delay};
    57     my $delay  = shift // $DEFAULT{delay};
    58     my $db     = shift // $DEFAULT{db};
    58     my $db     = shift // $DEFAULT{db};
    59     my $now    = time();
    59     my $now    = time();
    60     my ($auto) = $item =~ /.*?\/(.+?)$/;
    60     my ($auto) = $item =~ /.*?\/(.+?)$/ # remove the /<autokey> from the item
       
    61         and $item =~ s/\/.*?$//;
    61     my $rc;
    62     my $rc;
    62 
    63 
    63     connectDB(\my %h, $db);
    64     connectDB(\my %h, $db);
    64 
    65 
    65     return 'no'    # not unseen, ergo known
    66     return 'no'    # not unseen, ergo known