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 $sth = $dbh->prepare(qq{
                update reservation
                set
                        _confirmed = true,
                        _seat_number = (
                                select
                                        min(seat.nr)
                                from (select generate_series(1,600) 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
        });

        $sth->execute( $self->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( $self->token );
        }

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

                die "can't find account associated with ", $self->token unless $sth->rows == 1;

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

        } else {
                die "Problem with confirmation.\n";
        }
}

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 "Problem with cancelation.\n";
        }
}

__PACKAGE__->meta->make_immutable;
no Moose;

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