print "Location: http://$base_url/cgi-bin/login.cgi?uid=$uid&aflag=$aflag&sflag=$sflag\n\n";

##</code><code>##

my $vars;
my $requid = $cgi -> param('uid');
my $aflag = $cgi -> param('aflag');
my $sflag = $cgi -> param('sflag');

# dynamic page generation (first time entry)
if ($cgi -> param('first_launch') ne 'false') {
	
	$vars = {
		base_url => $base_url,
		requid => $uid,
		aflag => $aflag,
		sflag => $sflag,
	};
	
	my $template = 'login.tt';
	print $cgi -> header;
	$tt -> process($template, $vars) || die $tt -> error();
	exit;
};

##</code><code>##

<tr class="row_config_white">
		<td colspan="2" align="center" height="200">
				<form name="login_form" method="post" action="[% base_url %]/cgi-bin/login.cgi"><br>
						<h2>Login</h2><br>
						<font color="red">[% error_message %]</font><br><br>
						Email Address:&nbsp;<input type="text" name="email" size="30" value="[% email %]"><br><br><br>
						Password:&nbsp;<input type="password" name="password" size="20"><br><br><br>
						<input type="hidden" name="first_launch" value="false">
						<input type="hidden" name="uid" value="[% uid %]">
						<input type="hidden" name="aflag" value="[% aflag %]">
						<input type="hidden" name="sflag" value="[% sflag %]">
						<input type="submit" value="Login"><br><br><br>
				</form>
		</td>
</tr>
<tr class="row_config_white">
		<td colspan="2" align="center" height="20">
				<a href="[% base_url %]/cgi-bin/forgot_pw.cgi">Forgot Password</a>&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;<a href="[% base_url %]/cgi-bin/request_account.cgi">Create New User account</a>
		</td>
</tr>