X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FRegister.pm;h=ef2760f4ebac4198dc70d294c99dd2298b384129;hb=a122bb9b5954e4384b8f1c3f52bcdda74b421f25;hp=599f1c4b0aaaf089bc3173d80f8a4b082f688caf;hpb=31d700150e564fd3bf0eb167ef416c87aed771eb;p=gruntmaster-page.git

diff --git a/lib/Gruntmaster/Page/Register.pm b/lib/Gruntmaster/Page/Register.pm
index 599f1c4..ef2760f 100644
--- a/lib/Gruntmaster/Page/Register.pm
+++ b/lib/Gruntmaster/Page/Register.pm
@@ -1,17 +1,10 @@
 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/;
 
@@ -21,13 +14,10 @@ sub generate{
 	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