X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fndreport.pl;h=8f2cd3b7aaeb541a07266a2605ff19246c1d61d0;hb=b54c8d4253459626fc630771882060a4351a3ee5;hp=079b3f9f20d4d0e47d9b3737e4cdbcf60d2be077;hpb=d29ac23b4c0f046c1da9f5e0a8245f1dce8396e5;p=ndwebbie.git diff --git a/scripts/ndreport.pl b/scripts/ndreport.pl index 079b3f9..8f2cd3b 100755 --- a/scripts/ndreport.pl +++ b/scripts/ndreport.pl @@ -28,7 +28,7 @@ use DBD::Pg qw(:pg_types); use CGI qw/:standard/; use Email::Simple; -use Encode::Encoder qw(encoder); +use Encode; use MIME::QuotedPrint; use FindBin; @@ -46,7 +46,7 @@ my $user = $1; my $email = Email::Simple->new($text); -my $body = encoder($email->body,'ISO-8859-15')->utf8; +my $body = decode('ISO-8859-1', $email->body); my $c = $dbh->prepare(q{ SELECT coords(x,y,z) FROM current_planet_stats WHERE pid = (SELECT pid FROM users WHERE username = $1