#!/usr/bin/perl use strict; use warnings; use CGI ":all"; use CGI::Carp qw(fatalsToBrowser set_message); BEGIN { sub handle_errors { my $msg = shift; print "<h1>ERROR</h1><br>"; print "$msg" } set_message(\&handle_errors); } open(MAIL,'|/usr/sbin/sendmail -oi -t') or die $!; print MAIL 'To: myemail\@myemail.com\n'; print MAIL 'From: serveremail\@theserver.com\n'; print MAIL 'Subject: Blah\n\n'; print MAIL 'Put main message in here.\n'; close (MAIL); print header, "hi";
In reply to Re: Re: Mailer not mailing.
by toonski
in thread Mailer not mailing.
by toonski
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |