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

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

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

revision 1.3 by wakaba, Thu Oct 30 11:57:07 2008 UTC revision 1.4 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 53  if (@path == 1 and $path[0] eq 'new-user Line 55  if (@path == 1 and $path[0] eq 'new-user
55      my $user_prop = {id => $user_id, pass_crypted => $pass_crypted};      my $user_prop = {id => $user_id, pass_crypted => $pass_crypted};
56      set_user_prop ($user_id, $user_prop);      set_user_prop ($user_id, $user_prop);
57    
58        send_mail ("$subject_prefix User $user_id created",
59                   "User: $user_id\nStatus: User registered\n");
60    
61      regenerate_htpasswd_and_htgroup ();      regenerate_htpasswd_and_htgroup ();
62      commit ();      commit ();
63    
# Line 74  Content-Type: text/html; charset=utf-8 Line 79  Content-Type: text/html; charset=utf-8
79      print_text ('Your user account is created successfully.');      print_text ('Your user account is created successfully.');
80      print q[<p>];      print q[<p>];
81      print_text ('See %s.', sub {      print_text ('See %s.', sub {
82        print q[<a href="@{[htescape ($user_url)]}">];        print qq[<a href="@{[htescape ($user_url)]}">];
83        print_text ('your user account information page');        print_text ('your user account information page');
84        print q[</a>];        print q[</a>];
85      });      });
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24