############################################## # 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.