httemplate/misc/process/change-password.html

   1 <%init>
   2 my $curuser = $FS::CurrentUser::CurrentUser;
   3 die "access denied" unless $curuser->access_right('Edit password');
   4
   5 $cgi->param('svcnum') =~ /^(\d+)$/ or die "illegal svcnum";
   6 my $svcnum = $1;
   7 my $svc_acct = FS::svc_acct->by_key($svcnum)
   8   or die "svc_acct $svcnum not found";
   9 my $error = $svc_acct->set_password($cgi->param('password'))
  10         ||  $svc_acct->replace;
  11
  12 # annoyingly specific to view/svc_acct.cgi, for now...
  13 $cgi->delete('password');
  14 </%init>
  15 % if ( $error ) {
  16 %   $cgi->param('svcnum', $svcnum);
  17 %   $cgi->param("changepw${svcnum}_error", $error);
  18 % } else {
  19 %   $cgi->query_string($svcnum);
  20 % }
  21 <% $cgi->redirect($fsurl.'view/svc_acct.cgi?'.$cgi->query_string) %>