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;
};