<%
use CGI ':cgi-lib';
my %SENTDATA = Vars;
print join('|', "1",$SENTDATA{UID},\%SENTDATA,"
");
if (! $SENTDATA{UID}) {
# no passed userid, show the input screen
print join('|', "2a",$SENTDATA{UID},\%SENTDATA,"
");
&amp;amp;amp;amp;amp;show_login_input();
} else {
print join('|', "2b",$SENTDATA{UID},\%SENTDATA,"
");
&amp;amp;amp;amp;amp;check_login_input();
}
$Response->End();
sub check_login_input {
print join('|', "3",$SENTDATA{UID},\%SENTDATA,"
");
}
sub show_login_input {
# html input
%>