On Sat, 15 Aug 2015 12:39:04 +0100
Dave Osbourne <d...@osbourne.uk.eu.org> wrote:

> I wonder if there is away to enforce a timeout on 
> md_check_against_smtp_server?

The general-purpose way of enforcing timeouts is with alarm.

{
    local $SIG{ALRM} = sub { die "Timeout"; };
    my @result;
    eval {
         alarm(60); # Or whatever timeout you want
         @result = md_check_against_smtp_server(...);
         alarm(0);
    };
    if ($@ && $@ =~ /Timeout/) {
        # Handle timeout
    } else {
        # Handle @result
    }
}

Regards,

Dianne.
_______________________________________________
NOTE: If there is a disclaimer or other legal boilerplate in the above
message, it is NULL AND VOID.  You may ignore it.

Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list MIMEDefang@lists.roaringpenguin.com
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang

Reply via email to