App/RoomReservation/Messages.pm

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

sub seat_confirmation_message {
        my ( $self, $col, $value ) = @_;

        $col =~ s{token}{md5(id||email};

        my $sth = $self->dbh->prepare(qq{
                select
                        ime||' '||prezime,
                        _seat_number,
                        email,
                        md5(id||email) as token,
                        _confirmed
                from reservation
                where
                        $col = ?
        });

        $sth->execute( $value );

        die "can't find user $col = $value" if $sth->rows == 0;

        my ( $name, $seat, $email, $token, $confirmed ) = $sth->fetchrow_array;

        if ( $confirmed ) {

                my $url = $self->url_for( 'Confirmation/cancel_as_markup?token=' . $token );

                my $html =
                qq|
                        $name, <em>reservation has been confirmed</em>
                |
                . ( $seat
                ? qq|
                        and seat number <big>$seat</big> is waiting for you.
                        <br>
                        Please print this notice and show it when entering lecture.
                | : qq|
                        we <big>currently don't have any seats available</big>,
                        but you will be notified if we get some vacancies for this lecture!
                | )
                ;

                $self->send( $email,
                        "Lecture confirmation" . $seat ? " [seat $seat]" : " [wating for vacancy]",
                        $html . <<__EMAIL__

If you wish to cancel your reservation please click on link below:

$url

__EMAIL__
                );

                return $html;

        } else { # not verified

                my $url = $self->url_for( 'Confirmation/verify_as_markup?token=' . $token );

                $self->send( $self->email,
                        'Confirm your reservation for lecture', <<__EMAIL__

Please click following link to confirm your reservation for lecture
and get seat assigned to you.

$url

__EMAIL__
                );

                return qq|

                        $name we have accepted your registration!

                        <div style="color:red">
                        You have to confirm your e-mail address and registration
                        by clicking on link which should be in your e-mail INBOX shortly
                        </div>
                |;

        }

}

1;
1	dpavlin	1151	package App::RoomReservation::Messages;
2			use Moose::Role;
3
4			sub seat_confirmation_message {
5	dpavlin	1152	my ( $self, $col, $value ) = @_;
6	dpavlin	1151
7	dpavlin	1152	$col =~ s{token}{md5(id\|\|email};
8	dpavlin	1151
9	dpavlin	1152	my $sth = $self->dbh->prepare(qq{
10			select
11			ime\|\|' '\|\|prezime,
12			_seat_number,
13			email,
14			md5(id\|\|email) as token,
15			_confirmed
16			from reservation
17			where
18			$col = ?
19			});
20	dpavlin	1151
21	dpavlin	1152	$sth->execute( $value );
22
23			die "can't find user $col = $value" if $sth->rows == 0;
24
25			my ( $name, $seat, $email, $token, $confirmed ) = $sth->fetchrow_array;
26
27			if ( $confirmed ) {
28
29			my $url = $self->url_for( 'Confirmation/cancel_as_markup?token=' . $token );
30
31			my $html =
32			qq\|
33			$name, <em>reservation has been confirmed</em>
34			\|
35			. ( $seat
36			? qq\|
37			and seat number <big>$seat</big> is waiting for you.
38			<br>
39			Please print this notice and show it when entering lecture.
40			\| : qq\|
41			we <big>currently don't have any seats available</big>,
42			but you will be notified if we get some vacancies for this lecture!
43			\| )
44			;
45
46			$self->send( $email,
47			"Lecture confirmation" . $seat ? " [seat $seat]" : " [wating for vacancy]",
48			$html . <<__EMAIL__
49
50	dpavlin	1151	If you wish to cancel your reservation please click on link below:
51
52			$url
53
54			__EMAIL__
55	dpavlin	1152	);
56	dpavlin	1151
57	dpavlin	1152	return $html;
58	dpavlin	1151
59	dpavlin	1152	} else { # not verified
60
61			my $url = $self->url_for( 'Confirmation/verify_as_markup?token=' . $token );
62
63			$self->send( $self->email,
64			'Confirm your reservation for lecture', <<__EMAIL__
65
66			Please click following link to confirm your reservation for lecture
67			and get seat assigned to you.
68
69			$url
70
71			__EMAIL__
72			);
73
74			return qq\|
75
76			$name we have accepted your registration!
77
78			<div style="color:red">
79			You have to confirm your e-mail address and registration
80			by clicking on link which should be in your e-mail INBOX shortly
81			</div>
82			\|;
83
84			}
85
86			}
87
88	dpavlin	1151	1;