Originally posted by Christopher
Now it just says an Internal Server error, that means something wrong with the code right?
If anyone has time, just look over it, thanx.
#!/usr/bin/perl
#-Form Processes--------------------------------------#
require "cgi-lib.pl";
&ReadParse(*input);
$username = $input{'username'};
$password = $input{'password'};
#-/Form Processes-------------------------------------#
#-File and Username+Password Work---------------------#
open(USERS,"users.file") || die("An error has occurred, please contact the <a href=\"mailto:ln33\@iprimus.ca?subject=LogInError\">administrator</a>.");
@data=<USERS>;
close(USERS);
$numberUsers = $#USERS;
- YUPAPA CORRECTION - $numberUsers = $USERS;
$numberUsersCount = 0;
foreach $user (@data)
{
chop($user);
- YUPAPA CORRECTION - chomp $user;
($usernameCheck,$passwordCheck)=split(/\|/,$user);
if($usernameCheck eq $username)
{
print "Content-type: text/html\n\n";
print "<html><head><title>Webzter</title>\n";
print "<link rel=\"stylesheet\" href=\"http://ugz.milescape.com/css.css\" type=\"text/css\">\n";
print "</head>\n";
print "<body>\n";
print "<table width=\"100%\" height=\"100%\"><tr><td>\n";
print "<table width=\"500\" height=\"200\" style=\"border:2px solid Blask\"><tr><td>\n";
print "<b>Thank you for logging in $username, please <a href=\"users/".$username.".pl\">Click Here</a></b>\n";
print "</tr></td></table>\n";
print "</td></tr></table>\n";
print "</body></html>";
}
elsif($numberUsersCount == $numberUsers)
{
print "Content-type: text/html\n\n";
print "<html><head><title>Webzter</title>\n";
print "<link rel=\"stylesheet\" href=\"http://ugz.milescape.com/css.css\" type=\"text/css\">\n";
print "</head>\n";
print "<body>\n";
print "<table width=\"100%\" height=\"100%\"><tr><td>\n";
print "<table width=\"500\" height=\"200\" style=\"border:2px solid #616161\"><tr><td>\n";
print "<b>The username or password you entered seems to be incorrect. Please retry, if the problem persists, <a href=\"mailto:ln33\@iprimus.ca?subject=WebsiteLoginError\">please contact the administrator</a>.</b>\n";
print "</tr></td></table>\n";
print "</td></tr></table>\n";
print "</body></html>";
}
else
{
$numberUsersCount++;
}
}
#-/File and Username+Password Work--------------------#
And it threw an error... So thanx in advanced.
<edit> I fixed up some minor errors, probably still some more :) </edit>
I don't understand your coding... what does the password variable going to be used for? Your script doesn't check for the password. it only checks to see if the username is correct. Also, that is not how you get the number of user in the file...
u see:
open(USERS,"users.file") || die("An error has occurred, please contact the <a href=\"mailto:ln33\@iprimus.ca?subject=LogInError\">administrator</a>.");
@data=<USERS>;
close(USERS);
$numberUsers = $USERS;