1 package Gruntmaster
::Page
::Register
;
6 use Gruntmaster
::Page
::Base
;
7 our @ISA = qw
/Gruntmaster::Page::Base/;
8 our $VERSION = '0.001';
10 use Apache2
::Authen
::Passphrase qw
/pwcheck pwset USER_REGEX/;
14 my ($self, $format, $env) = @_;
15 my $r = Plack
::Request
->new($env);
16 my ($username, $password, $confirm_password, $name, $email, $phone, $town, $university, $level) = map { die if length > 200; $_ } map {scalar $r->param($_)} qw
/username password confirm_password name email phone town university level/;
18 return reply
'Bad username. Allowed characters are letters, digits and underscores, and the username must be between 2 and 20 characters long.' unless $username =~ USER_REGEX
;
19 return reply
'Username already in use' if -e
"$Apache2::Authen::Passphrase::rootdir/$username.yml";
20 return reply
'The two passwords do not match' unless $password eq $confirm_password;
21 return reply
'All fields are required' if grep { !length } $username, $password, $confirm_password, $name, $email, $phone, $town, $university, $level;
22 pwset
$username, $password;
24 insert_user
$username, name
=> $name, email
=> $email, phone
=> $phone, town
=> $town, university
=> $university, level
=> $level;
27 reply
'Registered successfully';
This page took 0.023436 seconds and 4 git commands to generate.