From c2d0d8bc220db97f11d53460b3de3e7e90850b91 Mon Sep 17 00:00:00 2001
From: Stefan Kangas <skangas@skangas.se>
Date: Sun, 20 Mar 2011 23:54:10 +0100
Subject: Use correct encoding in adduser mail

---
 fripost-adduser | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/fripost-adduser b/fripost-adduser
index 8f2486a..368d4e4 100755
--- a/fripost-adduser
+++ b/fripost-adduser
@@ -1,8 +1,9 @@
 #!/usr/bin/perl
 
 use 5.010_000;
-use warnings;
 use strict;
+use warnings;
+use utf8;
 
 =head1 NAME
 
@@ -10,12 +11,11 @@ fripost-adduser - Add a new mailbox to the system
 
 =cut
 
-our $VERSION = '0.02';
-
 use FindBin qw($Bin);
 use lib "$Bin/lib";
 
 use Data::Dumper;
+use Encode qw(encode);
 use File::Slurp qw(slurp);
 use Fripost::Password;
 use Fripost::Prompt;
@@ -94,8 +94,8 @@ my $tt = Template->new({
 }) || die "$Template::ERROR\n";
 
 my $msg = MIME::Lite->new(
-    From    => 'Friposts administratörer <admin@fripost.org>',
-    Subject => "=?UTF-8?B?" . encode_base64('Välkommen till Fripost!' . "?=",
+    From    => encode('MIME-Q', 'Friposts administratörer') . ' <admin@fripost.org>',
+    Subject => encode('MIME-Q', 'Välkommen till Fripost!'),
     Encoding => 'quoted-printable',
 );
 
-- 
cgit v1.2.3