<%
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
%>
####
1|506651|HASH(0x20656624)|
2b|506651|HASH(0x20656624)|
3|506651|HASH(0x20656624)|
####
1|506651|HASH(0x20672eb0)|
2b|506651|HASH(0x20672eb0)|
3||HASH(0x202e110c)|