/[suikacvs]/test/suika-accounts/edit.cgi
Suika

Diff of /test/suika-accounts/edit.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by wakaba, Thu Oct 30 12:11:51 2008 UTC revision 1.6 by wakaba, Sat Nov 1 10:13:14 2008 UTC
# Line 10  require Message::CGI::Carp; Line 10  require Message::CGI::Carp;
10  require 'users.pl';  require 'users.pl';
11  require 'texts.pl';  require 'texts.pl';
12    
13    our $subject_prefix;
14    
15  require Message::CGI::HTTP;  require Message::CGI::HTTP;
16  require Encode;  require Encode;
17  my $cgi = Message::CGI::HTTP->new;  my $cgi = Message::CGI::HTTP->new;
# Line 343  name=user-pass2 size=10 required pattern Line 345  name=user-pass2 size=10 required pattern
345          }          }
346    
347          set_user_prop ($user_id, $user_prop);          set_user_prop ($user_id, $user_prop);
348            send_mail ("$subject_prefix $group_id membership action",
349                       "Group: $group_id\nUser: $user_id\nAction: $action\nStatus: $status\n");
350          regenerate_htpasswd_and_htgroup ();          regenerate_htpasswd_and_htgroup ();
351          commit ();          commit ();
352    
# Line 386  name=user-pass2 size=10 required pattern Line 390  name=user-pass2 size=10 required pattern
390          }          }
391    
392          set_user_prop ($user_id, $user_prop);          set_user_prop ($user_id, $user_prop);
393            send_mail ("$subject_prefix $user_id disabledness action",
394                       "User: $user_id\nNew value: @{[$user_prop->{disabled} ? 'disabled' : 'enabled']}\n");
395          regenerate_htpasswd_and_htgroup ();          regenerate_htpasswd_and_htgroup ();
396          commit ();          commit ();
397    
# Line 714  maxlength=20 size=10 required pattern="[ Line 720  maxlength=20 size=10 required pattern="[
720          }          }
721                    
722          set_user_prop ($user_id, $user_prop);          set_user_prop ($user_id, $user_prop);
723            send_mail ("$subject_prefix $group_id membership action",
724                       "Group: $group_id\nUser: $user_id\nAction: $action\nStatus: $status\n");
725          regenerate_htpasswd_and_htgroup ();          regenerate_htpasswd_and_htgroup ();
726          commit ();          commit ();
727                    
# Line 747  maxlength=20 size=10 required pattern="[ Line 755  maxlength=20 size=10 required pattern="[
755      my $group_prop = {id => $group_id};      my $group_prop = {id => $group_id};
756      set_group_prop ($group_id, $group_prop);      set_group_prop ($group_id, $group_prop);
757    
758        send_mail ("$subject_prefix Group $group_id created",
759                   "Group: $group_id\nStatus: Group registered\n");
760      commit ();      commit ();
761    
762      my $group_url = get_absolute_url ('groups/' . $group_id . '/');      my $group_url = get_absolute_url ('groups/' . $group_id . '/');
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24