diff options
| author | Mark Wells <mark@freeside.biz> | 2013-02-26 23:45:02 -0800 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2013-02-27 12:32:45 -0800 |
| commit | 556250142547918eaeeee3711d2a01ee4bf878c9 (patch) | |
| tree | 434a966844560e6da67d40c8ccc7bd17ffd3fb21 /httemplate/misc/process | |
| parent | 92a5fcc821f1257b2d0bff61d91fda5db58a24d4 (diff) | |
"Edit password" ACL, #21178, part 1
Diffstat (limited to 'httemplate/misc/process')
| -rw-r--r-- | httemplate/misc/process/change-password.html | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/httemplate/misc/process/change-password.html b/httemplate/misc/process/change-password.html new file mode 100644 index 000000000..7005439cc --- /dev/null +++ b/httemplate/misc/process/change-password.html @@ -0,0 +1,21 @@ +<%init> +my $curuser = $FS::CurrentUser::CurrentUser; +die "access denied" unless $curuser->access_right('Edit password'); + +$cgi->param('svcnum') =~ /^(\d+)$/ or die "illegal svcnum"; +my $svcnum = $1; +my $svc_acct = FS::svc_acct->by_key($svcnum) + or die "svc_acct $svcnum not found"; +my $error = $svc_acct->set_password($cgi->param('password')) + || $svc_acct->replace; + +# annoyingly specific to view/svc_acct.cgi, for now... +$cgi->delete('password'); +</%init> +% if ( $error ) { +% $cgi->param('svcnum', $svcnum); +% $cgi->param("changepw${svcnum}_error", $error); +% } else { +% $cgi->query_string($svcnum); +% } +<% $cgi->redirect($fsurl.'view/svc_acct.cgi?'.$cgi->query_string) %> |