Title: Sign In
Comment: The login/out page.

<h1>Sign In</h1>

<form name="login" action="$link" method="post">
<input type="hidden" name="p" value="login">
<input type="hidden" name="action" value="dologin">

<strong>User Name:</strong><br>
<input type="text" size="20" name="username" value="%user%"><br>
<strong>Password:</strong><br>
<input type="password" size="20" name="password"><br>
<input type="checkbox" name="remember" value="yes" id="remember">
<label for="remember">Remember me</label><br>
<input type="submit" value="Sign In">

</form>

<perl>
	my $action = $query->{action} || 'index';

	if ($action eq 'index') {
		my $user = $query->{user} || '';
		$root->{content} =~ s/%user%/$user/ig;
	}
	elsif ($action eq 'dologin') {
		# Logging in.
		my $okay = 0;

		# Process their input.
		my $user = &normalize($query->{username});
		my $pass = md5_hex($query->{password});
		my $keep = $query->{remember} || 'no';

		# Does this user exist?
		if (&userExists($user)) {
			# Read the profile.
			&readUser($user);

			# Compare passwords.
			if ($root->{users}->{$user}->{password} eq $pass) {
				# Good.
				$okay = 1;
			}
		}

		# Authentication was okay?
		if ($okay) {
			# Log us in.
			$root->{auth} = 1;
			$root->{me} = $user;
			&doLogin($user,$pass,$keep);

			$root->{content} = "<h1>Login Successful</h1>\n\n"
				. "You will be redirected to your homepage "
				. "shortly.\n\n"
				. "<script type=\"text/javascript\">\n"
				. "setTimeout(\"goHome()\", 100);\n"
				. "function goHome() {\n"
				. "\tself.location = \"\$link:home\";\n"
				. "}\n"
				. "</script>";
		}
		else {
			$root->{content} = "<h1>Login Failed</h1>\n\n"
				. "Your login attempt was denied.";
		}
	}
	elsif ($action eq 'logout') {
		# Clear out the cookies.
		$root->{auth} = 0;
		$root->{me} = 'guest';
		&doLogout();

		$root->{content} = "<h1>Logged Out</h1>\n\n"
			. "You will be redirected to your homepage "
			. "shortly.\n\n"
			. "<script type=\"text/javascript\">\n"
			. "setTimeout(\"goHome()\", 100);\n"
			. "function goHome() {\n"
			. "\tself.location = \"\$link\";\n"
			. "}\n"
			. "</script>";
	}
</perl>