It also add ad address to test,
but without success:
- Code: Select all
my $q=new CGI;
$q->param('list','test');
$q->param('from',$emails[$i]{from});
$q->param('Subject', $emails[$i]{subject});
$q->param('text_message_body', "This is my PlainText version!");
$q->param('html_message_body',$emails[$i]{html_body});
# etc....
if ($emails[$i]{list} eq 'test') {
$q->param('process', 'test');
$q->param('To', 'my-myself-and-i@to-me.com');
}
else {
$q->param('process', 1);
}
# effettuo l'invio:
my $ms = DADA::App::MassSend->new;
eval {
no warnings; # necessario perche' dadamail da' errore
$ms->send_email(
{
-cgi_obj => $q,
-list => 'test',
-html_output => 0,
}
);
};
if($@){
print "something really major went wrong! $@";
}
