&get_input;
$user_name=~s! !_!g;
$user_name=~s!\W|!!g;

if(!$param1){
open(USERS,"$path_to_users");
while(<USERS>){
	if(/^$user_name=/){&bailout;exit}
}
close(USERS);

$kryp=crypt($user_name,"ce");
$kryp=substr($kryp,2);

$date = time +10* 86400 ;
$cookie_expire = gmtime($date);

print "Set-Cookie: Sign_Up_Username=$user_name|$kryp;expires=$cookie_expire;path=/\n";
}#if!param1
if($param1 eq "basic"){
$htp=$folder_url;
$htp=~s`http://$host`$path_to_domain`;
$htp.="/.htpasswd";
open(HTP,"$htp");
while(<HTP>){
	if(/^$user_name\b/){&bailout;exit}
}
$kryp=crypt($user_name,"ce");
$kryp=substr($kryp,2);
$kryp=~s/\W//g;
$htp=~s`$path_to_domain``;
$htp=~s`/\.htpasswd``;
$mkryp=crypt($htp,"ce");
$mkryp=substr($mkryp,2);
$mkryp=~s/\W//g;

$date = time +10* 86400 ;
$cookie_expire = gmtime($date);

print "Set-Cookie: Sign_Up_Member=$user_name|$kryp|$htp|$mkryp;expires=$cookie_expire;path=/\n";
}#if $param1 == basic

$redirect_url=$submission_redirect;
print "Location: $redirect_url\n\n";

1;