httemplate/pref/pref-process.html

   1 % my $error = '';
   2 %
   3 % my $access_user;
   4 % if ( grep { $cgi->param($_) !~ /^\s*$/ }
   5 %           qw(_password new_password new_password2)
   6 %    ) {
   7 %
   8 %   $access_user = qsearchs( 'access_user', {
   9 %     'username'  => getotaker,
  10 %     '_password' => $cgi->param('_password'),
  11 %   } );
  12 %
  13 %   $error = 'Current password incorrect; password not changed'
  14 %     unless $access_user;
  15 %
  16 %   $error ||= "New passwords don't match"
  17 %     unless $cgi->param('new_password') eq $cgi->param('new_password2');
  18 %
  19 %   $error ||= "No new password entered"
  20 %    unless length($cgi->param('new_password'));
  21 %
  22 %   $access_user->_password($cgi->param('new_password')) unless $error;
  23 %
  24 % } else {
  25 %
  26 %   $access_user = $FS::CurrentUser::CurrentUser;
  27 %
  28 % }
  29 %
  30 % #XXX autogen
  31 % my @paramlist = qw( menu_position email_address
  32 %                     height width availHeight availWidth colorDepth
  33 %                   );
  34 %
  35 % foreach (@paramlist) {
  36 %   scalar($cgi->param($_)) =~ /^[,.\@\w]*$/ && next;
  37 %   $error ||= "Illegal value for parameter $_";
  38 %   last;
  39 % }
  40 %
  41 % $error ||= $access_user->replace( {
  42 %   map { $_ => scalar($cgi->param($_)) } @paramlist,
  43 % } );
  44 %
  45 % if ( $error ) {
  46 %   $cgi->param('error', $error);
  47 %   print $cgi->redirect(popurl(1). "pref.html?". $cgi->query_string );
  48 % } else {
  49 <% include('/elements/header.html', 'Preferences updated') %>
  50 <% include('/elements/footer.html') %>
  51 % }