Help for this page

Select Code to Download

Select or download this

$envid = 'Original-Envelope-ID: <whatever-envid-is>';
chop(my $date = `date "+%m/%d/%y-%H:%M%p GMT-5"`)
...

} else { $mailer = "failed"; }

Select or download this

sub dispatch {
   open(MAILPIPE,"|$mailer");
...
}

&dispatch unless $mailer eq "failed";