Revision 757
- Date:
- 2018/11/30 19:04:29
- Files:
Legend:
- Added
- Removed
- Modified
-
utf8/core/lib/Contenido/Mail.pm
207 207 208 208 my $que = Contenido::Email->new( $keeper ); 209 209 $que->status( 0 ); 210 $que->name( $email->{to} ); 210 if ( ref $email->{to} eq 'ARRAY' ) { 211 my $to = shift @{$email->{to}}; 212 return unless $to; 213 $que->name( $to ); 214 my @cc; 215 if ( scalar @{$email->{to}} ) { 216 push @cc, @{$email->{to}}; 217 } 218 if ( exists $email->{cc} && ref $email->{cc} eq 'ARRAY' ) { 219 push @cc, @{$email->{cc}}; 220 } elsif ( exists $email->{cc} && $email->{cc} ) { 221 push @cc, $email->{cc}; 222 } 223 if (@cc ) { 224 $que->cc( join("\n", @cc) ); 225 } 226 } else { 227 $que->name( $email->{to} ); 228 if ( exists $email->{cc} && ref $email->{cc} eq 'ARRAY' ) { 229 $que->cc( join("\n", @{$email->{cc}}) ); 230 } elsif ( exists $email->{cc} && $email->{cc} ) { 231 $que->cc( $email->{cc} ); 232 } 233 } 211 234 $que->subject( $email->{subject} ); 212 235 $que->body_html( $email->{body} ); 213 236 if ( exists $email->{text} ) { 214 237 $que->body_text( $email->{text} ); 215 238 } 216 if ( exists $email->{cc} && ref $email->{cc} eq 'ARRAY' ) { 217 $que->cc( join("\n", @{$email->{cc}}) ); 218 } elsif ( exists $email->{cc} && $email->{cc} ) { 219 $que->cc( $email->{cc} ); 220 } 221 239 if ( exists $email->{date} && ref $email->{date} eq 'DateTime' ) { 222 240 $que->dtime( $email->{date}->ymd('-').' '.$email->{date}->hms ); 223 241 } elsif ( exists $email->{date} && $email->{date} ) {