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; |
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 |
|
|
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 |
}); |
}); |