lib/Mail/SendEasy.pm

77   my %mail ;
89     $mail{$k} = $v ;
92   if ( !defined $mail{msg} && defined $mail{message} ) { $mail{msg} = delete $mail{message} ;}
93   if ( !defined $mail{html} && defined $mail{msghtml} ) { $mail{html} = delete $mail{msghtml} ;}
94   if ( !defined $mail{anex} && defined $mail{attach} ) { $mail{anex} = delete $mail{attach} ;}
96   if ( !defined $mail{from} ) { $ER = "Blank From adress!" ; return( undef ) ;}
97   if ( !defined $mail{to} ) { $ER = "Blank recipient (to)!" ; return( undef ) ;}
100     if ( !defined $mail{smtp} ) { $mail{smtp} = 'localhost' ;}
101     if ( $mail{port} !~ /^\d+$/ ) { $mail{port} = 25 ;}
102     if ( $mail{timeout} !~ /^\d+$/ ) { $mail{timeout} = 30 ;}
104 …$SMTP = Mail::SendEasy::SMTP->new($mail{smtp} , $mail{port} , $mail{timeout} , $mail{user} , $mail…
111     my @from = &_check_emails( $mail{from} ) ; return( undef ) if $ER ;
113     $mail{from} = @from[0] ;
115     my @to = &_check_emails( $mail{to} ) ; return( undef ) if $ER ;
116     $mail{to} = \@to ;
118     if ( defined $mail{cc} ) {
119       my @cc = &_check_emails( $mail{cc} ) ; return( undef ) if $ER ;
120       $mail{cc} = \@cc ;
123     if ( defined $mail{reply} ) {
124       my @reply = &_check_emails( $mail{reply} ) ; return( undef ) if $ER ;
125       $mail{reply} = @reply[0] ; delete $mail{reply} if $mail{reply} eq '' ;
128     if ( defined $mail{error} ) {
129       my @error = &_check_emails( $mail{error} ) ; return( undef ) if $ER ;
130       $mail{error} = @error[0] ; delete $mail{error} if $mail{error} eq '' ;
136   if ( defined $mail{anex} ) {
137     my @anex = $mail{anex} ;
138     @anex = @{$mail{anex}} if ref($mail{anex}) eq 'ARRAY' ;
151     if ( $ARCHZIP_PM && $mail{zipanex} ) {
152       my ($filename , $zip_content) = &_zip_anexs($mail{zipanex},@anex) ;
178     delete $mail{anex} ;
179     $mail{anex} = \@anex_part if @anex_part ;
184   delete $mail{MIME} ;
186   $mail{MIME}{Date} = &time_to_date() ;
188   $mail{MIME}{From} = $mail{from} ;
190   if ( $mail{fromtitle} =~ /\S/s ) {
191     my $title = delete $mail{fromtitle} ;
197     $mail{MIME}{From} = qq`"$title" <$mail{from}>` if $title ne '' ;
200   $mail{MIME}{To} = join(" , ", @{$mail{to}} ) ;
201   $mail{MIME}{Cc} = join(" , ", @{$mail{cc}} ) if $mail{cc} ;
203   $mail{MIME}{'Reply-To'} = $mail{reply} if $mail{reply} ;
204   $mail{MIME}{'Errors-To'} = $mail{error} if $mail{error} ;
206   $mail{MIME}{'Subject'} = $mail{subject} if $mail{subject} ;
208   $mail{MIME}{'Mime-version'} = '1.0' ;
209   $mail{MIME}{'X-Mailer'} = "Mail::SendEasy/$VERSION Perl/$]-$^O" ;
210   $mail{MIME}{'Msg-ID'} = $mail{msgid} ;
213   if ( defined $mail{msg} ) {
214     $mail{msg} =~ s/\r\n?/\n/gs ;
215     if ( $mail{msg} !~ /\n\n$/s) { $mail{msg} =~ s/\n?$/\n\n/s ;}
220     'content' => &_encode_qp( $mail{msg} ) ,
223     push(@{$mail{MIME}{part}} , \%part ) ;
226   if ( defined $mail{html} ) {
227     $mail{msg} =~ s/\r\n?/\n/gs ;
232     'content' => &_encode_qp( $mail{html} ) ,
235     push(@{$mail{MIME}{part}} , \%part ) ;
243     if ( $#{ $mail{MIME}{part} } == 1 ) {
251       $msg_part .= &_new_part($boudary , @{$mail{MIME}{part}}[0]) ;
252       $msg_part .= &_new_part($boudary , @{$mail{MIME}{part}}[1]) ;
254       delete $mail{MIME}{part} ;
256     else { $msg_part .= &_new_part('' , @{$mail{MIME}{part}}[0]) ;}
259     if ( $mail{anex} ) {
260       my @anex = @{$mail{anex}} ;
263       $mail{MIME}{content} .= qq`Content-Type: multipart/mixed; boundary="$boudary"\n\n`;
264       $mail{MIME}{content} .= &_new_part($boudary , $msg_part) ;
266         $mail{MIME}{content} .= &_new_part($boudary , $anex_i) ;
269       $mail{MIME}{content} .= qq`--$boudary--\n` ;
271       delete $mail{anex} ;
273     else { $mail{MIME}{content} = $msg_part ;}
276   $mail{MIME}{content} =~ s/\r\n?/\n/gs ;
284 …if ( $SMTP->MAIL("FROM:<$mail{from}>") !~ /^2/ ) { $ER = "MAIL FROM error (". $SMTP->last_response…
286   foreach my $to ( @{$mail{to}} ) {
291   foreach my $to ( @{$mail{cc}} ) {
296     &_send_MIME($SMTP , %mail) ;
310   my ( $SMTP , %mail ) = @_ ;
326     if ( !defined $mail{MIME}{$order_i} ) { next ;}
327     $SMTP->print("$order_i: " . $mail{MIME}{$order_i} . $RN) ;
330   $mail{MIME}{content} =~ s/\n/$RN/gs ;
331   $SMTP->print($mail{MIME}{content}) ;
445   my ( $mail ) = @_ ;
449   if ($mail !~ /^[\w\.-]+\@localhost$/gsi) {
450     if ($mail !~ /^[\w\.-]+\@(?:[\w-]+\.)*?(?:\w+(?:-\w+)*)(?:\.\w+)+$/ ) { $stat = undef ;}
452   elsif ($mail !~ /^[\w\.-]+\@[\w-]+$/ ) { $stat = undef ;}