view release on metacpan or  search on metacpan

lib/Batch/Batchrun/Mail.pm  view on Meta::CPAN

        my ($server);
        my (@smtp_array);
        chomp($Mail{SMTPSERVER});

        # Grab server(s) and stick in an array
        if ($Mail{SMTPSERVER})
        {
            @smtp_array = (split(/,/,$Mail{SMTPSERVER}));
            foreach $server (@smtp_array)
            {
                if ( MIME::Lite->send('smtp', $server, Timeout => 20) )
                {
                    last;
                }
                else
                {
                    $failure = 1;
                }
            }
            if ( $failure )
            {