diff options
author | dakkar <dakkar@thenautilus.net> | 2009-06-17 16:06:00 +0200 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2009-06-17 16:06:00 +0200 |
commit | 0815be945ea145dca99ae9641a06b91a96547d78 (patch) | |
tree | a1651a348e536667b628276482441f3bc5548c0e /lib | |
parent | oh, finalmente le icone funzionano (che palle) (diff) | |
download | URLQueue-0815be945ea145dca99ae9641a06b91a96547d78.tar.gz URLQueue-0815be945ea145dca99ae9641a06b91a96547d78.tar.bz2 URLQueue-0815be945ea145dca99ae9641a06b91a96547d78.zip |
now with proper charset handling
Diffstat (limited to 'lib')
-rw-r--r-- | lib/URLQueue/MainController.pm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lib/URLQueue/MainController.pm b/lib/URLQueue/MainController.pm index 8892578..a40c922 100644 --- a/lib/URLQueue/MainController.pm +++ b/lib/URLQueue/MainController.pm @@ -6,6 +6,8 @@ use Path::Class; use URI::Find; use URI::Title; use Email::Send; +use Encode; +use MIME::EncWords; use POSIX 'strftime'; sub new { @@ -154,6 +156,7 @@ sub handle_uris { while (@uris) { my $uri=shift @uris; my $name=shift @titles; + $body.="$title $uri\n"; } @@ -165,21 +168,25 @@ sub send_email { 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 $sender=Email::Send->new({mailer=>'SMTP'}); $sender->mailer_args([Host=>'luxion']); - $sender->send($message); + $sender->send(Encode::encode('utf-8',$message)); } 1; - -__END__ -Date: Sat, 2 Jun 2007 09:48:26 +0200 |