App/RoomReservation/Reservation.pm

package App::RoomReservation::Reservation;
use Moose;

use Moose::Util::TypeConstraints;
use Regexp::Common qw[Email::Address];

subtype 'Email',
        as 'Str',
        where { /^$RE{Email}{Address}$/ },
        message { "$_ is not valid e-mail" };

extends 'App::RoomReservation';

use lib 'lib';
use Frey::PPI;

has ime => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has prezime => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has institucija => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has zanimanje => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has grad => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has drzava => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has telefon => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has mobitel => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has email => (
        is => 'rw',
        isa => 'Email',
        required => 1,
);

has email_verify => (
        is => 'rw',
        isa => 'Email',
        required => 1,
);

has _confirmed => (
        is => 'rw',
        isa => 'Bool',
#       required => 1,
        default => sub { 0 },
);

sub BUILD {
        my $self = shift;
        die "e-mail not verified\n" unless $self->email eq $self->email_verify;
}

my @cols = Frey::PPI->new( class => __PACKAGE__ )->attribute_order;
warn "# cols = ",join(',', @cols), $/;

sub token {
        my $self = shift;
        my $sth = $self->dbh->prepare(qq{
                select md5( id || email ) from reservation where email = ?
        });
        $sth->execute( $self->email );
        $sth->fetchrow_array;
}

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

        my @vals;
        my @p;

        map {
                push @vals, $self->$_;
                push @p, '?';
        } @cols;

        my $n = $#cols + 1;

        my $sql
                = 'insert into reservation ('
                . join(',', @cols)
                . ') values ('
                . join(',', map { '?' } @cols )
                . ')'
                ;

        warn "sql: $sql\n";

        my $sth = $self->dbh->prepare( $sql );
        $sth->execute( @vals );

        return
                $self->ime . ' ' . $self->prezime
                . qq| we have accepted your registration!|
                . qq|
                        <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>
                |
                . qq|<a href="/App::RoomReservation::Reservation::Confirmation/verify_as_markup?token=|
                . $self->token
                . qq|">verify</a>|
                . ' or '
                . qq|<a href="/App::RoomReservation::Reservation::Confirmation/cancel_as_markup?token=|
                . $self->token
                . qq|">cancel</a>|
                ;
}


1;
1	package App::RoomReservation::Reservation;
2	use Moose;
3
4	use Moose::Util::TypeConstraints;
5	use Regexp::Common qw[Email::Address];
6
7	subtype 'Email',
8	as 'Str',
9	where { /^$RE{Email}{Address}$/ },
10	message { "$_ is not valid e-mail" };
11
12	extends 'App::RoomReservation';
13
14	use lib 'lib';
15	use Frey::PPI;
16
17	has ime => (
18	is => 'rw',
19	isa => 'Str',
20	required => 1,
21	);
22
23	has prezime => (
24	is => 'rw',
25	isa => 'Str',
26	required => 1,
27	);
28
29	has institucija => (
30	is => 'rw',
31	isa => 'Str',
32	required => 1,
33	);
34
35	has zanimanje => (
36	is => 'rw',
37	isa => 'Str',
38	required => 1,
39	);
40
41	has grad => (
42	is => 'rw',
43	isa => 'Str',
44	required => 1,
45	);
46
47	has drzava => (
48	is => 'rw',
49	isa => 'Str',
50	required => 1,
51	);
52
53	has telefon => (
54	is => 'rw',
55	isa => 'Str',
56	required => 1,
57	);
58
59	has mobitel => (
60	is => 'rw',
61	isa => 'Str',
62	required => 1,
63	);
64
65	has email => (
66	is => 'rw',
67	isa => 'Email',
68	required => 1,
69	);
70
71	has email_verify => (
72	is => 'rw',
73	isa => 'Email',
74	required => 1,
75	);
76
77	has _confirmed => (
78	is => 'rw',
79	isa => 'Bool',
80	# required => 1,
81	default => sub { 0 },
82	);
83
84	sub BUILD {
85	my $self = shift;
86	die "e-mail not verified\n" unless $self->email eq $self->email_verify;
87	}
88
89	my @cols = Frey::PPI->new( class => __PACKAGE__ )->attribute_order;
90	warn "# cols = ",join(',', @cols), $/;
91
92	sub token {
93	my $self = shift;
94	my $sth = $self->dbh->prepare(qq{
95	select md5( id \|\| email ) from reservation where email = ?
96	});
97	$sth->execute( $self->email );
98	$sth->fetchrow_array;
99	}
100
101	sub create_as_markup {
102	my ($self) = @_;
103
104	my @vals;
105	my @p;
106
107	map {
108	push @vals, $self->$_;
109	push @p, '?';
110	} @cols;
111
112	my $n = $#cols + 1;
113
114	my $sql
115	= 'insert into reservation ('
116	. join(',', @cols)
117	. ') values ('
118	. join(',', map { '?' } @cols )
119	. ')'
120	;
121
122	warn "sql: $sql\n";
123
124	my $sth = $self->dbh->prepare( $sql );
125	$sth->execute( @vals );
126
127	return
128	$self->ime . ' ' . $self->prezime
129	. qq\| we have accepted your registration!\|
130	. qq\|
131	<div style="color:red">
132	You have to confirm your e-mail address and registration
133	by clicking on link which should be in your e-mail INBOX shortly
134	</div>
135	\|
136	. qq\|<a href="/App::RoomReservation::Reservation::Confirmation/verify_as_markup?token=\|
137	. $self->token
138	. qq\|">verify</a>\|
139	. ' or '
140	. qq\|<a href="/App::RoomReservation::Reservation::Confirmation/cancel_as_markup?token=\|
141	. $self->token
142	. qq\|">cancel</a>\|
143	;
144	}
145
146
147	1;