hi
Below is the cod that i wrote .....but everything runs fine except when i put
in a group of email addresses and thne click the send button then it says that
"bad or missing from address"...........but i have specified a from address.
can someone hepl with this?
#!/usr/bin/perl -w
use strict;
use tml;
use Mail::Sendmail;
my %mail;
my %project_opts = (
ALWAYS_RESET => ['error_msg'],
CGI_NAME => 'mail.cgi',
TML_DIR => '/usr/local/www/tml/',
SESSION_DIR => '/usr/local/www/sessions/',
LOCK_DIR => '/usr/local/www/lock/',
VIRGIN_STAGE => 'front_page'
);
my %project_stages = (
'page' => [
'front_page',
'!confirmation'
],
);
my %project_incs = (
);
interface_enter(%project_opts, %project_stages, %project_incs);
sub transition_front_page() {
my ($result, $name, $list, $f);
$list = $tml{'address'};
if ($list =~ s/[\r\n]+/, /gm ) {
print STDERR $list;
if ($tml{'info'} =~ /^.+/ ) {
$result = mail_address();
}
} else {
$result = "The information that has been sent is not correct";
}
%mail = (
To => "$tml{'address'}\n",
Subject => 'UUNET SA Scheduled Maintenance',
From => '[EMAIL PROTECTED]',
Message => "$tml{'info'}"
);
$tml{'name'} = $result;
}
sub mail_address() {
sendmail (%mail)or die $Mail::Sendmail::error;
return "OK. Log says:\n", $Mail::Sendmail::log;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
