diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/URLQueue/MainController.pm | 36 |
1 files changed, 20 insertions, 16 deletions
diff --git a/lib/URLQueue/MainController.pm b/lib/URLQueue/MainController.pm index dcf83a6..dbd5503 100644 --- a/lib/URLQueue/MainController.pm +++ b/lib/URLQueue/MainController.pm @@ -5,7 +5,9 @@ use base 'Gtk2::GladeXML::Simple'; use Path::Class; use URI::Find; use URI::Title; -use Email::Send; +use Email::Sender::Simple 'sendmail'; +use Email::Sender::Transport::SMTP (); +use Email::Simple; use Encode; use MIME::EncWords; use File::ShareDir 'dist_file'; @@ -181,27 +183,29 @@ sub handle_uris { sub send_email { my ($self,$title,$body)=@_; - my $date=strftime('%a, %d %b %Y %H:%M:%S %z',localtime(time)); - $title=MIME::EncWords::encode_mimewords( Encode::encode('utf-8',$title), Charset=>'utf-8', ); - my $message=<<"EOM"; -From: urlqueue\@thenautilus.net -To: dakkar\@thenautilus.net -Subject: $title -Date: $date -Content-Type: text/plain; charset=utf-8 -Content-Transfer-Encoding: 8bit - -$body -EOM + my $message = Email::Simple->create( + header => [ + From => 'urlqueue@thenautilus.net', + To => 'dakkar@thenautilus.net', + Subject => $title, + 'Content-Type' => 'text/plain; charset=utf-8', + 'Content-Transfer-Encoding' => '8bit', + ], + body => Encode::encode('utf-8',$body), + ); - my $sender=Email::Send->new({mailer=>'SMTP'}); - $sender->mailer_args([Host=>'luxion']); - $sender->send(Encode::encode('utf-8',$message)); + sendmail($message,{ + from => 'urlqueue@thenautilus.net', + transport => Email::Sender::Transport::SMTP->new({ + host => 'luxion', + port => 25, + }), + }); } 1; |