Added an option to disable/enable registration.

cloudvista.cgi

@@ -27,6 +27,7 @@ my $STORAGE_ROOT = "/var/www/storage"; # must be writable by httpd user
 my $MAX_UPLOAD   = 1073741824;         # 1 GB
 my $SCRIPT_NAME  = $ENV{SCRIPT_NAME} || "/cgi-bin/cloudvista.cgi";
 my $COOKIE_DAYS  = 30;
+my $REGISTER_EN  = "true";
 ##############################################################
 
 $CGI::POST_MAX        = $MAX_UPLOAD;
@@ -293,7 +294,7 @@ if ($action eq 'register') {
     }
     elsif ($pass ne $confirm)          { $err = 'passwords do not match.';
     }
-    else {
+    elsif ($REGISTER_EN eq "true") {
         my $uh   = md5_hex($user);
         my $ph   = md5_hex($pass);
         my $udir = "$STORAGE_ROOT/$uh";
@@ -307,6 +308,8 @@ if ($action eq 'register') {
         else {
             send_redirect($SCRIPT_NAME, make_login_cookies($uh, $ph));
         }
+    } else {
+	$err = 'Registration is disabled.';
     }
 
     send_page_header();