# vim:set sw=4 ts=4 sts=4 ft=perl expandtab:

package Lufi::Controller::Mail;

use Mojo::Base 'Mojolicious::Controller';

use Email::Valid;

use Mojo::JSON qw(decode_json);

sub render_mail {

    my $c = shift;

    my $links = (defined($c->param('links'))) ? decode_json($c->param('links')) : [];

    $c->render(

        template => 'mail',

        links    => $links

    );

}

sub send_mail {

    my $c = shift;

    my $validation = $c->validation;

    return $c->render(text => $c->l('Bad CSRF token!'), status => 403) if $validation->csrf_protect->has_error('csrf_token');

    my $emails = $c->param('emails');

    $emails =~ s/ //g;

    my @a   = split(',', $emails);

    my @bad;

    my @good;

    for my $email (@a) {

        if (!Email::Valid->address($email)) {

            push @bad, $email;

        }

    }

    my $msg = '';

    if (scalar(@bad)) {

        $msg .= $c->l('The following email addresses are not valid: %1', join(', ', @bad))."\n";

    }

    $msg .= $c->l('You must give email addresses.')."\n"     unless (scalar(@a));

    $msg .= $c->l('The email subject can\'t be empty.')."\n" unless ($c->param('subject'));

    $msg .= $c->l('The email body can\'t be empty.')."\n"    unless ($c->param('body'));

    if ($msg) {

        return $c->render(

            template => 'mail',

            msg      => $msg,

            values   => {

                emails  => $emails,

                subject => $c->param('subject'),

                body    => $c->param('body')

            }

        )

    }

    $c->mail(

        from    => $c->config('mail_sender'),

        bcc     => $emails,

        subject => $c->param('subject'),

        data    => $c->param('body')

    );

    return $c->render(

        template    => 'msg',

        msg_success => $c->l('The mail has been sent.')

    );

}

1;