556 |
my $m_obj = Email::Simple->new($msg) || croak "can't parse message"; |
my $m_obj = Email::Simple->new($msg) || croak "can't parse message"; |
557 |
|
|
558 |
$m_obj->header_set('Return-Path', $from_email_only) || croak "can't set Return-Path: header"; |
$m_obj->header_set('Return-Path', $from_email_only) || croak "can't set Return-Path: header"; |
559 |
$m_obj->header_set('Sender', $from_email_only) || croak "can't set Sender: header"; |
#$m_obj->header_set('Sender', $from_email_only) || croak "can't set Sender: header"; |
560 |
$m_obj->header_set('Errors-To', $from_email_only) || croak "can't set Errors-To: header"; |
$m_obj->header_set('Errors-To', $from_email_only) || croak "can't set Errors-To: header"; |
561 |
$m_obj->header_set('From', $from_addr) || croak "can't set From: header"; |
$m_obj->header_set('From', $from_addr) || croak "can't set From: header"; |
562 |
$m_obj->header_set('To', $to) || croak "can't set To: header"; |
$m_obj->header_set('To', $to) || croak "can't set To: header"; |
1219 |
|
|
1220 |
if ($_[0] !~ m/^HASH/) { |
if ($_[0] !~ m/^HASH/) { |
1221 |
die "need at least list or email" unless (scalar @_ < 2); |
die "need at least list or email" unless (scalar @_ < 2); |
1222 |
return $nos->received_messages( |
return \@{ $nos->received_messages( |
1223 |
list => $_[0], email => $_[1], |
list => $_[0], email => $_[1], |
1224 |
from_date => $_[2], to_date => $_[3], |
from_date => $_[2], to_date => $_[3], |
1225 |
message => $_[4] |
message => $_[4] |
1226 |
); |
) }; |
1227 |
} else { |
} else { |
1228 |
my $arg = shift; |
my $arg = shift; |
1229 |
die "need list or email argument" unless ($arg->{'list'} || $arg->{'email'}); |
die "need list or email argument" unless ($arg->{'list'} || $arg->{'email'}); |
1230 |
return $nos->received_messages( %{ $arg } ); |
return \@{ $nos->received_messages( %{ $arg } ) }; |
1231 |
} |
} |
1232 |
} |
} |
1233 |
|
|