App/RoomReservation/Confirmation.pm

package App::RoomReservation::Confirmation;
use Moose;

extends 'App::RoomReservation';

with 'App::RoomReservation::Email', 'App::RoomReservation::Messages';

has token => (
        is => 'ro',
        isa => 'Str',
        required => 1,
);

sub verify_as_markup {
        my ($self) = @_;

        my $dbh = $self->dbh;

        my $size = $self->room->seats;

        my $sth = $dbh->prepare(qq{
                update reservation
                set
                        _confirmed = true,
                        _seat_number = (
                                select
                                        min(seat.nr)
                                from (select generate_series(1,$size) as nr) as seat
                                full join reservation on reservation._seat_number = seat.nr
                                where id is null
                                group by seat.nr
                                order by seat.nr asc
                                limit 1
                        )
                where
                        md5(id||email) = ?
                        and _confirmed is false
                        and _canceled is false
        });

        my $token = $self->token;

        $sth->execute( $token );

        if ( $sth->rows == 0 ) {
                warn "can't confirm ", $self->token, " check if it's allready confirmed";
                $sth = $dbh->prepare(qq{
                        select 1
                        from reservation
                        where
                                md5(id||email) = ?
                                and _confirmed is true
                });
                $sth->execute( $token );
        }

        if ( $sth->rows == 1 ) {

                die qq|<error>can't find account associated with $token</error>| unless $sth->rows == 1;

                return $self->seat_confirmation_message( token => $token );

        } else {
                die qq|<error>Can't find confirmation $token<br>
                        Did you copy-pasted whole URL in your browser?</error>|;
        }
}

sub cancel_as_markup {
        my ($self) = @_;

        my $dbh = $self->dbh;

        my $sth = $dbh->prepare(qq{
                update reservation
                set
                        _canceled = true,
                        _seat_number = null
                where
                        md5(id||email) = ?
--                      and _confirmed is true
        });
        $sth->execute( $self->token );

        if ( $sth->rows == 1 ) {
                qq|
                        Your <em>reservation is canceled</em>, thanks for your effort to provide seat to somebody else
                |;
        } else {
                die qq|<error>Can't find reservation which you are trying to cancel.<br>
                        Did you copy-pasted whole URL in your browser?</error>|;
        }
}

__PACKAGE__->meta->make_immutable;
no Moose;

1;
1	package App::RoomReservation::Confirmation;
2	use Moose;
3
4	extends 'App::RoomReservation';
5
6	with 'App::RoomReservation::Email', 'App::RoomReservation::Messages';
7
8	has token => (
9	is => 'ro',
10	isa => 'Str',
11	required => 1,
12	);
13
14	sub verify_as_markup {
15	my ($self) = @_;
16
17	my $dbh = $self->dbh;
18
19	my $size = $self->room->seats;
20
21	my $sth = $dbh->prepare(qq{
22	update reservation
23	set
24	_confirmed = true,
25	_seat_number = (
26	select
27	min(seat.nr)
28	from (select generate_series(1,$size) as nr) as seat
29	full join reservation on reservation._seat_number = seat.nr
30	where id is null
31	group by seat.nr
32	order by seat.nr asc
33	limit 1
34	)
35	where
36	md5(id\|\|email) = ?
37	and _confirmed is false
38	and _canceled is false
39	});
40
41	my $token = $self->token;
42
43	$sth->execute( $token );
44
45	if ( $sth->rows == 0 ) {
46	warn "can't confirm ", $self->token, " check if it's allready confirmed";
47	$sth = $dbh->prepare(qq{
48	select 1
49	from reservation
50	where
51	md5(id\|\|email) = ?
52	and _confirmed is true
53	});
54	$sth->execute( $token );
55	}
56
57	if ( $sth->rows == 1 ) {
58
59	die qq\|<error>can't find account associated with $token</error>\| unless $sth->rows == 1;
60
61	return $self->seat_confirmation_message( token => $token );
62
63	} else {
64	die qq\|<error>Can't find confirmation $token<br>
65	Did you copy-pasted whole URL in your browser?</error>\|;
66	}
67	}
68
69	sub cancel_as_markup {
70	my ($self) = @_;
71
72	my $dbh = $self->dbh;
73
74	my $sth = $dbh->prepare(qq{
75	update reservation
76	set
77	_canceled = true,
78	_seat_number = null
79	where
80	md5(id\|\|email) = ?
81	-- and _confirmed is true
82	});
83	$sth->execute( $self->token );
84
85	if ( $sth->rows == 1 ) {
86	qq\|
87	Your <em>reservation is canceled</em>, thanks for your effort to provide seat to somebody else
88	\|;
89	} else {
90	die qq\|<error>Can't find reservation which you are trying to cancel.<br>
91	Did you copy-pasted whole URL in your browser?</error>\|;
92	}
93	}
94
95	__PACKAGE__->meta->make_immutable;
96	no Moose;
97
98	1;