##############################################
# reg user check
chmod (0600, "$cgi_path$reg_list");
open (REGUSERS, "$cgi_path$reg_list");
@reg_users = <REGUSERS>;
close (REGUSERS);
chmod (0200, "$cgi_path$reg_list");
chomp(@reg_users);
foreach $reg_user (@reg_users){
($reg_name, $reg_password, $reg_message, $reg_url) = split (/\*/, $reg_user);
$reg_message =~ s/\s*$//;
if (($user eq $reg_name) and ($user_password eq $reg_password)){
if($reg_url) {
$reg_url =~ s/\s+$//;
$FORM{'url'} = $reg_url;
}
$FORM{'message'} = $reg_message;
$FORM{'reg'} = 'null';
}elsif($user eq $reg_name){
print <<PASSFORM;
$form_body
<CENTER><SMALL><b>$user</b> is a registered nickname.</SMALL></CENTER>
<table align=center><tr><td align=right>Enter password here:</td>
<td><form action="$ENV{'SCRIPT_NAME'}" METHOD=POST>
<input type=password name=password><input type=submit>
<input type=hidden name=username value="$FORM{'username'}">
<input type=hidden name=color value="$FORM{'color'}">
<input type=hidden name=room value="$FORM{'room'}">
<input type=hidden name=to value="$FORM{'to'}">
<input type=hidden name=logon value="">
<input type=hidden name=frames value="$FORM{'frames'}"></td>
<td> or <a href=\"$fileurl/$FORM{'room'}/chatform.html\">return</a>
to the form.</td></tr></table></form>
</body></html>
PASSFORM
exit;
}
}i can't figure it out :\
what the code that I provided does, if you ARE registered, you have to enter your password, but you can login as a guest or a registered user. I want it registered users ONLY.
Edited by derek.sullivan, 02 May 2011 - 09:37 PM.
