X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FPasswd.pm;fp=lib%2FGruntmaster%2FPage%2FPasswd.pm;h=0000000000000000000000000000000000000000;hb=e03e380bb1f61aca398e88f863514e4a937c12ce;hp=3a7522e4e6393a8a2a2d02cf6beb5105db491317;hpb=a122bb9b5954e4384b8f1c3f52bcdda74b421f25;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Page/Passwd.pm b/lib/Gruntmaster/Page/Passwd.pm deleted file mode 100644 index 3a7522e..0000000 --- a/lib/Gruntmaster/Page/Passwd.pm +++ /dev/null @@ -1,18 +0,0 @@ -package Gruntmaster::Page::Passwd; - -use Gruntmaster::Page::Base; -use Apache2::Authen::Passphrase qw/pwcheck pwset/; - -sub generate{ - my ($self, $format, $env) = @_; - my $r = Plack::Request->new($env); - my ($oldpass, $newpass, $confirm) = map {scalar $r->param($_)} 'password', 'new_password', 'confirm_new_password'; - - return reply 'Incorrect password' unless eval { pwcheck $r->user, $oldpass; 1 }; - return reply 'The two passwords do not match' unless $newpass eq $confirm; - - pwset $r->user, $newpass; - reply 'Password changed successfully'; -} - -1