Title: CMS Setup
Comment: Run the initial setup procedure for the new CMS.

<h1>Website Setup</h1>

If you are seeing this page, it means your website hasn't been configured yet.
To begin setting up your website, fill out the form below.<p>

<form name="setup" action="index.cgi" method="post">
<input type="hidden" name="p" value="setup">
<input type="hidden" name="action" value="dosetup">

<h2>1. Server Information</h2>

First, Starburst needs to know some information about your server environment.<p>

<strong>A. What is the name of your website?</strong><br>
<input type="text" size="50" name="title" value="Starburst Website"><p>

<strong>B. What is the webmaster's e-mail address?</strong><br>
<input type="text" size="50" name="webmaster" value=""><br>
<small><em>(ex: webmaster@example.com)</em></small><p>

<strong>C. What is the HTTP URL to the index.cgi file?</strong><br>
<input type="text" size="50" name="url" value="/"><br>
<small><em>(ex: http://www.mydomain.com/ <strong>-or-</strong>
/ )</em></small><p>

<strong>D. What is the server's time zone?</strong><br>
%timezone%

<h2>2. Administrator Account</h2>

Next, we need to create an administrative account. This user will have admin
privileges to modify pages on the site and add new content, as well as moderate
and manage other users. Create the administrator account here.<p>

<strong>A. Account Username</strong><br>
<input type="text" size="50" name="username" value="Admin"><br>
<small><em>(maximum 20 characters; numbers and letters only)</em></small><p>

<strong>B. Admin Password</strong><br>
<input type="password" size="50" name="pw1" value=""><br>
<small>Confirm:</small><br>
<input type="password" size="50" name="pw2" value=""><br>
<small><em>(must be at least 6 characters long)</em></small><p>

<strong>C. Admin E-Mail Address</strong><br>
<input type="text" size="50" name="email" value=""><br>
<small><em>(leave blank if it's the same as the webmaster e-mail)</em></small>

<h2>3. Complete Setup</h2>

<input type="submit" value="Complete Setup">

</form>

<perl>
	# Make sure setup hasn't been run already.
	if (-f "$root->{base}/conf/site.conf") {
		$root->{content} = "<h1>Access Denied</h1>\n\n"
			. "This website has already been configured. Please "
			. "log in with the Administrator user and password "
			. "to change the site configuration.";
	}
	else {
		# Are we submitting?
		my $act = $query->{action} || 'index';
		if ($act eq 'index') {
			my $tz = &listTimezones();
			$root->{content} =~ s/%timezone%/$tz/ig;
		}
		elsif ($act eq 'dosetup') {
			# Validate things.
			my @errors = ();

			my $title     = $query->{title} || 'Untitled Website';
			my $webmaster = $query->{webmaster} || '';
			my $url       = $query->{url} || '';
			my $username  = $query->{username} || '';
			my $pw1       = $query->{pw1} || '';
			my $pw2       = $query->{pw2} || '';
			my $email     = $query->{email} || $webmaster || '';
			my $tz        = $query->{timezone} || 'EDT';

			if (length $webmaster == 0) {
				push (@errors,"You must specify a webmaster "
					. "e-mail address.");
			}
			if (length $url == 0) {
				push (@errors,"You must specify a URL to your "
					. "site.");
			}
			if (length $username == 0) {
				push (@errors,"You must specify an admin user "
					. "name.");
			}
			if ($username =~ /[^A-Za-z0-9]/) {
				push (@errors,"Your username can only contain "
					. "letters and numbers.");
			}
			if (length $username > 20) {
				push (@errors,"Your username must be less than "
					. "20 characters.");
			}
			if (length $pw1 < 6) {
				push (@errors,"Your password must be at least "
					. "6 characters long.");
			}
			if ($pw1 ne $pw2) {
				push (@errors,"Your passwords don't match.");
			}

			# Errors?
			if (@errors) {
				$root->{content} = "<h1>Setup Failed</h1>\n\n"
					. "The setup process was aborted due "
					. "to the following errors:\n\n"
					. "<ul>\n"
					. "<li>\n"
					. join("</li>\n<li>",@errors)
					. "</li>\n"
					. "</ul>\n";
			}
			else {
				# Update the configuration.
				$root->{conf}->{site}->{title} = $title;
				$root->{conf}->{site}->{webmaster} = $webmaster;
				$root->{conf}->{site}->{url} = $url;
				$root->{conf}->{site}->{timezone} = $tz;
				&writeConfig("site.conf",$root->{conf});

				# Create the admin user.
				$username = &normalize($username);
				my $pass = md5_hex($pw1);
				&createUser ($username,
					username => $username,
					password => $pass,
					power    => 'admin',
					email    => $email,
					timezone => $tz,
					name     => 'Administrator',
				);

				$root->{content} = "<h1>Setup Completed</h1>\n"
					. "Your website has been configured. "
					. "You may now wish to <a href=\""
					. "\$link:login;user=$username\">log"
					. " in</a> as the administrator to "
					. "begin building your site.";
			}
		}
	}
</perl>