aboutsummaryrefslogtreecommitdiffstats
path: root/fripost-adduser
diff options
context:
space:
mode:
authorStefan Kangas <skangas@skangas.se>2011-03-20 23:54:10 +0100
committerStefan Kangas <skangas@skangas.se>2011-03-20 23:54:10 +0100
commitc2d0d8bc220db97f11d53460b3de3e7e90850b91 (patch)
tree8ab9af0d76c97a500bd1fc3e48f180939b55daea /fripost-adduser
parent419487240780f1e789c8f7d948167feb8f010e03 (diff)
Use correct encoding in adduser mail
Diffstat (limited to 'fripost-adduser')
-rwxr-xr-xfripost-adduser10
1 files 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',
);