\n";
print "Mail Program: $mail_prog\n";
print "Command Line Arguments: $cmdline\n";
print "Working Directory: $cwd\n";
print "Starting Win32::Process\n";
}
use Win32::Process;
use Win32;
if ($showheaders) {
print "Win32::Process Started\n";
print "Creating Process\n";
print "Here is where you may see useful information as to why your mailing is not\n";
print "working as you desire. If you see absolutely nothing here until the exit code,\n";
print "you should turn off 'quiet' mode (remove -q from command line options for BLAT) or\n";
print "turn on verbose mode. Good luck!\n\n";
print "";
}
if (Win32::Process::Create($ProcessObj, "$mail_prog", "$cmdline", 0, DETACHED_PROCESS, $cwd)) {
$ProcessObj->Wait(INFINITE);
$ProcessObj->GetExitCode( $ExitCode );
if ($showheaders) {
print "\nProcess Exit Code $ExitCode\n";
if ($ExitCode == 0) {
print "This means Success! Congratulations!\n";
print "If this mail message didn't go through, it's because the recipient e-mail\n";
print "account is not functioning properly, or it has a spam filter installed that\n";
print "is blocking this message.\n";
return 0;
} else {
print "This means Failure! Sorry!\n";
print "Command line:
$cmdline
CWD:
$cwd") if !$showheaders; print "Process Creation Error: ", Win32::FormatMessage(Win32::GetLastError()); print "