Edge — Thu, 26 Oct 2000 04:00:09 +0000

Okay, I got it working... almost. I think the only reason it's not working now is that $password contains a line break at the end. How do I remove it?

--Edge

Rob Pengelly — Wed, 25 Oct 2000 19:50:47 +0000

Edge, here are a few suggestions:

when opening a file, always use 'or die()'. it always helps ins troubleshooting errors.
open (DATA, "$data_path/$membernum/info.txt") or die "Cannot open $data_path/$membernum/info.txt to read: $!";

Second, regarding $confirmed = @data[0]; and the other variables defined in the same way, try replacing @data with $data.

Lastly, with if ($nomember = 1), you should use == not =.

Just a quick note, it is always good to indent your code to keep it more organized and easier to read.

Ken Elliott — Wed, 25 Oct 2000 15:47:30 +0000

Edge,
That is alot of code for just user : password protection. Here is a simple script that I use for user : password protection, and it is all kept in a text file. Just edit it as you see fit. Also I am typing this script as I go, so there might be a few minor errors. Also I don't see your Form Parser subroutine..so I named mine &Parse

#!/usr/bin/perl -w

&Parse

$username = $FORM{'username'};
$password = $FORM{'password'};

if ($username eq "") {
&error('Sorry you must provide a username');
} elsif ($password eq "") {
&error('Sorry you must provide a password');
}

#User name and passwords should be written to the
#text file in this method " username|password "
#with a "|" bar seperating them

open (DATAFILE, "$data_path/members.txt");
flock (DATAFILE, 2);
@userpass = ;
flock (DATAFILE, 8);
close (DATAFILE);

foreach $line(@userpass) {
@pair = split (/\|/, $line);
if ($pair[0] =~ m/$username/) {
$user = "true";
if ($pair[1] =~ m/$password) {
$pass = "true";
} else {
$pass = "false";
}
}
}

if ($pass eq "true" && $user eq "true") {
print "Content-type:text/html\n\n";
print "Location: protectedpage.html\n\n";
} elsif ($pass eq "false") {
&error('Sorry but your password does not match any password in our database. Please check your password again.');
} elsif ($user ne "true") {
&error('Sorry but your username does not match any username in our database');
}

sub error {
print "Content-type:text/html\n\n";
print "SORRY THERE WAS AN ERROR:$_[0]";
}

##### END OF SCRIPT #####
Hope you can use that.