Select Code to Download

<form method="POST" action="in(cgiurl)" name=form1 onSubmit="return Se
+tPass();">

if($usecgi){
use CGI;
...
  } 

#.... followed by more code for parsing, splitting and assigning the n
+ew variables

($in{'command'} eq 'login')&&(&Login);
($in{'command'} eq '')&&(&Login);
...
&GetLogin;
...
# passing thru Get login allows access to more program functions and a
+dditional pages. the login page actually calls the next page... via h
+idden form field

sub GetCookies{
$cookies = $ENV{'HTTP_COOKIE'};
...
  }
}

sub GetLogin{
&GetCookies;
...
#here we need to check the final results after parsing the cookie info
+ and retrieving matches in the db of variables...  we have no choice 
+but to return a server error message.
}
}