send email to new user

3 files changed, 22 insertions, 7 deletions

diff --git a/INSTALL b/INSTALL
index 356d726..95a169a 100644
--- a/INSTALL
+++ b/INSTALL
@@ -3,5 +3,5 @@ You need several cpan modules to use these scripts.
 If you use Debian GNU/Linux, you can install them like so:
 
 aptitude install -R libdatetime-format-mysql-perl libdatetime-perl \
-libdbix-class-perl libemail-valid-perl libio-prompt-perl libstring-mkpasswd-perl \
-libyaml-syck-perl
+libdbix-class-perl libemail-valid-perl libfile-slurp-perl libio-prompt-perl \
+libmime-lite-perl libstring-mkpasswd-perl libyaml-syck-perl
diff --git a/fripost-adduser b/fripost-adduser
index e4a4298..0d65cf3 100755
--- a/fripost-adduser
+++ b/fripost-adduser
@@ -16,11 +16,13 @@ use FindBin qw($Bin);
 use lib "$Bin/lib";
 
 use Data::Dumper;
+use File::Slurp qw(slurp);
 use Fripost::Password;
 use Fripost::Prompt;
 use Fripost::Schema;
 use IO::Prompt;
 use Getopt::Long;
+use MIME::Lite;
 use YAML::Syck;
 
 # Prompt for user info
@@ -92,6 +94,18 @@ my $db_user = $schema->resultset('Mailbox')->new($user);
 $db_user->insert;
 say "New account $user->{username} added.";
 
+## Send email
+my $msg = MIME::Lite->new(
+    From    => 'admin@fripost.org',
+    To      => $user->{username},
+    Subject => 'Välkommen till Fripost!',
+    Data    => slurp('templ/new_user_mail.tt'), # TODO: actually use TT
+);
+$msg->send();
+
+say "Sent welcome message: ";
+say $message->as_text;
+
 =head1 AUTHOR
 
 Stefan Kangas C<< <skangas at skangas.se> >>
diff --git a/templ/new_user_mail.tt b/templ/new_user_mail.tt
index 0d060a6..0a1319b 100644
--- a/templ/new_user_mail.tt
+++ b/templ/new_user_mail.tt
@@ -4,15 +4,16 @@ Allmänna frågor kring programmen, webmailen eller konfiguration av
 e-postprogram tas bäst på e-postlistan så att svaren kan komma alla
 till del.
 
-    members@lists.fripost.org
+Du kan bli medlem genom att skicka ett mail till
 
-Frågor gällande just ditt konto kan du ta direkt med
-administratörerna.
+    members-subscribe@lists.fripost.org
+
+Frågor gällande specifikt ditt konto kan du ta direkt med administratörerna.
 
     admin@lists.fripost.org
 
-Vi försöker bygga upp medlemswikin till att bli den bästa resursen
-för intern information kring föreningen. Du får gärna hjälpa till!
+Vi försöker bygga upp medlemswikin till att bli den bästa resursen för intern
+information kring föreningen. Du får gärna hjälpa till!
 
     http://wiki.fripost.org/