--- test/suika-accounts/add.cgi	2008/10/30 11:57:07	1.3
+++ test/suika-accounts/add.cgi	2008/11/01 10:13:14	1.4
@@ -10,6 +10,8 @@
 require 'users.pl';
 require 'texts.pl';
 
+our $subject_prefix;
+
 require Message::CGI::HTTP;
 require Encode;
 my $cgi = Message::CGI::HTTP->new;
@@ -53,6 +55,9 @@
     my $user_prop = {id => $user_id, pass_crypted => $pass_crypted};
     set_user_prop ($user_id, $user_prop);
 
+    send_mail ("$subject_prefix User $user_id created",
+               "User: $user_id\nStatus: User registered\n");
+
     regenerate_htpasswd_and_htgroup ();
     commit ();
 
@@ -74,7 +79,7 @@
     print_text ('Your user account is created successfully.');
     print q[<p>];
     print_text ('See %s.', sub {
-      print q[<a href="@{[htescape ($user_url)]}">];
+      print qq[<a href="@{[htescape ($user_url)]}">];
       print_text ('your user account information page');
       print q[</a>];
     });