App/RoomReservation/Email.pm

package App::RoomReservation::Email;
use Moose::Role;

use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;

requires 'dbh';

sub send {
        my ($self, $email, $subject, $body) = @_;

        my $sth = $self->dbh->prepare(qq{
                select ime,prezime from reservation where email = ?
        });

        $sth->execute($email);

        die qq|<error>Can't find registered user with e-mail $email| unless $sth->rows == 1;

        my ($ime,$prezime) = $sth->fetchrow_array;
        my $to = qq{"$ime $prezime" <$email>};

        $body =~ s{^\s+}{}gm; # strip whitespace at beginning of line
        $body =~ s{<br>}{\n}gs;
        $body =~ s{<[^>]+/?>}{}gs; # strip html

        my $m = Email::Simple->create(
                header => [
                        To => $to,
                        From => '<predavanje_psih@ffzg.hr>',
                        Subject => $subject,
                        'X-Mailer' => __PACKAGE__,
                        'MIME-Version' => '1.0',
                        'Content-Type' => 'text/plain; charset=utf-8',
                ],
                body => $body,
        );

        sendmail($m);

        warn "# send to $to\n$body\n";
}

no Moose::Role;

1;
1	package App::RoomReservation::Email;
2	use Moose::Role;
3
4	use Email::Sender::Simple qw(sendmail);
5	use Email::Simple;
6	use Email::Simple::Creator;
7
8	requires 'dbh';
9
10	sub send {
11	my ($self, $email, $subject, $body) = @_;
12
13	my $sth = $self->dbh->prepare(qq{
14	select ime,prezime from reservation where email = ?
15	});
16
17	$sth->execute($email);
18
19	die qq\|<error>Can't find registered user with e-mail $email\| unless $sth->rows == 1;
20
21	my ($ime,$prezime) = $sth->fetchrow_array;
22	my $to = qq{"$ime $prezime" <$email>};
23
24	$body =~ s{^\s+}{}gm; # strip whitespace at beginning of line
25	$body =~ s{<br>}{\n}gs;
26	$body =~ s{<[^>]+/?>}{}gs; # strip html
27
28	my $m = Email::Simple->create(
29	header => [
30	To => $to,
31	From => '<predavanje_psih@ffzg.hr>',
32	Subject => $subject,
33	'X-Mailer' => __PACKAGE__,
34	'MIME-Version' => '1.0',
35	'Content-Type' => 'text/plain; charset=utf-8',
36	],
37	body => $body,
38	);
39
40	sendmail($m);
41
42	warn "# send to $to\n$body\n";
43	}
44
45	no Moose::Role;
46
47	1;