use CGI::Carp qw(fatalsToBrowser); sub mailFatal { print "Content-type: text/html\n\n"; print "<html><head><title>Mail</title></head>\n"; print "<body bgcolor=\"white\">\n"; print "<center><strong><h2><font color=red>Mail Server is not availab +le at this time.</font></h2 ></strong></center>\n"; print "<br><br><center>Email down</center>"; print "</body></html>\n"; exit; } open (MAIL,"|$sendmail") || mailFatal(); #sendmail stuff here close MAIL || mailFatal();
In reply to Works on one server but not other. by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |