yssirhc
04-03-2009, 12:27 PM
I wrote a simple login program & for some reason, it gets stuck at opening the file that contains the passwords. I checked the file's permissions and everyone has read, write, and execute privileges. I also tried adding "<" to the statement and changing the slashes to backslashes, but just got the same message.
Is there something wrong with this code? ....at least I know that my errorPage function works ;)
#! /usr/bin/perl
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use diagnostics;
print "Content-type: text/html\n\n";
### get datastring: ######################################
if ($ENV{"REQUEST_METHOD"} eq "POST")
{
read(STDIN, $datastring, $ENV{"CONTENT_LENGTH"});
}
elsif (exists $ENV{"REQUEST_METHOD"})
{
$datastring = $ENV{"QUERY_STRING"};
}
else
{
print "Offline execution detected.\n";
print "Please enter some data.\n";
$datastring = <>;
chomp $datastring;
print "== data accepted == HTML output follows ==\n\n";
}
### finished getting data ##################################
### splits form data into name/value pairs: ##################
$datastring =~s/%0D%0A/\n/g; #line breaks in text areas
@pairs = split(/&/, $datastring);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$name =~tr/+/ /;
$name =~s/%([\da-fA-F]{2})/pack("C",hex($1))/eg;
$value =~tr/+/ /;
$value =~s/%([\da-fA-F]{2})/pack("C",hex($1))/eg;
if (exists $formHash{$name})
{
$formHash{$name} = $formHash{$name}.";".$value; #multiple select menus
}
else
{
$formHash{$name} = $value;
}
}
### done decoding ######################################
%access = ();
$submittedUser = $formHash{"user"};
$submittedPassword = $formHash{"password"};
#open password file
open(USER, "../data/bugUsers.txt") or &errorPage("Unable to open user/password file.");
#read file & store data in hash
while ($line = <USER>)
{
chomp $line; #remove newline character
if ($line ne "") #precaution - skip if line is blank
{
($user, $password) = split(/:/, $line, 2);
$access{$user} = $password;
}
}
close(USER);
#verify userID and password
if (exists $access{"$submittedUser"})
{
if ($submittedPassword eq $access{$submittedUser}) #success!
{
&redirect;
}
else #password wrong
{
&printHeader;
&invalidPassword;
&printLogin;
}
}
else #user not listed in file
{
&printHeader;
&invalidUser;
&printLogin;
}
Is there something wrong with this code? ....at least I know that my errorPage function works ;)
#! /usr/bin/perl
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use diagnostics;
print "Content-type: text/html\n\n";
### get datastring: ######################################
if ($ENV{"REQUEST_METHOD"} eq "POST")
{
read(STDIN, $datastring, $ENV{"CONTENT_LENGTH"});
}
elsif (exists $ENV{"REQUEST_METHOD"})
{
$datastring = $ENV{"QUERY_STRING"};
}
else
{
print "Offline execution detected.\n";
print "Please enter some data.\n";
$datastring = <>;
chomp $datastring;
print "== data accepted == HTML output follows ==\n\n";
}
### finished getting data ##################################
### splits form data into name/value pairs: ##################
$datastring =~s/%0D%0A/\n/g; #line breaks in text areas
@pairs = split(/&/, $datastring);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$name =~tr/+/ /;
$name =~s/%([\da-fA-F]{2})/pack("C",hex($1))/eg;
$value =~tr/+/ /;
$value =~s/%([\da-fA-F]{2})/pack("C",hex($1))/eg;
if (exists $formHash{$name})
{
$formHash{$name} = $formHash{$name}.";".$value; #multiple select menus
}
else
{
$formHash{$name} = $value;
}
}
### done decoding ######################################
%access = ();
$submittedUser = $formHash{"user"};
$submittedPassword = $formHash{"password"};
#open password file
open(USER, "../data/bugUsers.txt") or &errorPage("Unable to open user/password file.");
#read file & store data in hash
while ($line = <USER>)
{
chomp $line; #remove newline character
if ($line ne "") #precaution - skip if line is blank
{
($user, $password) = split(/:/, $line, 2);
$access{$user} = $password;
}
}
close(USER);
#verify userID and password
if (exists $access{"$submittedUser"})
{
if ($submittedPassword eq $access{$submittedUser}) #success!
{
&redirect;
}
else #password wrong
{
&printHeader;
&invalidPassword;
&printLogin;
}
}
else #user not listed in file
{
&printHeader;
&invalidUser;
&printLogin;
}