App/RoomReservation/Messages.pm

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

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

        die "wrong column name $col = $value" unless $col =~ m{^(token|email)$};

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