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 => '"Room Reservation" <room-reservation@rot13.org>',
                        Subject => $subject,
                ],
                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 => '"Room Reservation" <room-reservation@rot13.org>',
32	Subject => $subject,
33	],
34	body => $body,
35	);
36
37	sendmail($m);
38
39	warn "# send to $to\n$body\n";
40	}
41
42	no Moose::Role;
43
44	1;