🚀 go-pugleaf

adamrw <adam.warnowski@gmail.com> pisze:
> Witam Napisałem skrypt, który wyciąga dane z bazy i wysyła na 
> mail. Wykonuje się wszystko OK. Mail dociera, polskie znaki są, 
> ale wyświetla na konsolę błąd  Wide character in print at 
> /usr/local/lib/perl5/site_perl/5.10.1/Mail/Mailer/rfc822.pm line 
> 23. 
> 
> Ma ktoś pomysł czym to jest spowodowane ?  W skrócie mój skrypt 
> wygląda tak: use DBI; use strict; use MIME::Base64; use POSIX; 
> use Mail::Send; use utf8; 
> 
> my $dbh = DBI->connect( ... ); my $query = qq{ ... }; my $sth = 
> $dbh->prepare($query) or exit(0); $sth->execute or die "Can't 
> execute the query: $sth->errstr"; 
> 
> my $html = " { Tu generuję treść maila w html na podstawie 
> danych z bazy } "; 
> 
> my $msg = Mail::Send->new(); $msg->to('Adresat 
> <mail@domena.com>'); $msg->subject('Temat'); 
> $msg->add('Content-Type', 'text/html; charset=UTF-8'); 
> 
> my $fh = $msg->open; print $fh $html; $fh->close or die 
> "couldn't send whole message: $!\n"; 
> 
> Pozdrawiam

Czy nagłówek "To:" lub "Subject:" zawiera pliterki? 

*TAK* => 
Wygląda że Mail::Mailer zakłada że w nagłówkach są tylko znaki 
ASCII (hamerykański ubogi alfabet). Trzeba je zakodowywać samemu.

...
use MIME::Words qw(:all);
my $charset='UTF-8';
...
$msg->to( encode_mimewords('Adresat <mail@domena.com>', Charset => 
$charset)); $msg->subject( encode_mimewords('Temat',Charset=> 
$charset)); 


-- 
Andrzej A. Filip
Pijany jest jak jagnię, świnia, małpa i lew.  (Przysłowie duńskie)