package Gruntmaster::Page::Register;
-use 5.014000;
-use strict;
-use warnings;
use Gruntmaster::Page::Base;
-our @ISA = qw/Gruntmaster::Page::Base/;
-our $VERSION = '0.001';
-
use Apache2::Authen::Passphrase qw/pwcheck pwset USER_REGEX/;
-use Plack::Request;
sub generate{
- my ($self, $format, $env, $ct, $job, $ext) = @_;
+ my ($self, $format, $env) = @_;
my $r = Plack::Request->new($env);
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/;
return reply 'All fields are required' if grep { !length } $username, $password, $confirm_password, $name, $email, $phone, $town, $university, $level;
pwset $username, $password;
- insert_user $username, name => $name, email => $email, phone => $phone, town => $town, university => $university, level => $level;
+ db($env)->users->create({id => $username, name => $name, email => $email, phone => $phone, town => $town, university => $university, level => $level});
- #PUBLISH genpage => "us/index.html";
- #PUBLISH genpage => "us/$username.html";
+ purge "/us/";
reply 'Registered successfully';
}
-sub variants{ [[reply => 1, undef, undef, undef, undef, undef]] }
-
1