#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
print "Content-type: text/html \n\n";
$input = new CGI;

$action = $input->param('action');

if ($action eq "login") {

# get the params

$password = $input->param('password');
$username = $input->param('username');

if ($password eq "") { &error("You need to specify a password!"); }


if ($username eq "") { &error("You need to specify a username!"); }


open (LIST, "/home/ace-clipart.com/passwords.list") || &error("Unable to open password.list...reason: $!");
flock(LIST,2);
@input = <LIST>;
close(LIST);

# search the file for a username
foreach $line (@input) {

print "$line <BR>";

if ($line =~ /$username\:\:+/) {

($ausername, $apassword) = split(/::/, $line);

print "$username & $password <BR>";
print "$ausername & $apassword <BR>";

if ($username eq $ausername && $apassword eq $password) { print "password ok..logged in"; last; } else { &error("Unable to login. Wrong password!"); }

} # end the regex if

} # end the foreach

} else { print "no info sent"; }




# an error sub incase something goes wrong.
sub error {

my $error = shift;
print $error;
exit;

}

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);

$input = new CGI;
$action = $input->param('action');

if ($action eq "login") {

$password = $input->param('password');
$username = $input->param('username');

!$password and &error("You need to specify a password!");
!$username and &error("You need to specify a username!");

open (LIST, "/home/ace-clipart.com/passwords.list") or &error("Unable to open password.list...reason: $!");
flock(LIST,2);
while (<LIST>) {
chomp;
@stuff = split /::/;
if (($stuff[0] eq $username) and ($stuff[1] eq $password)) {
$found = 1;
last;
}
}
close LIST;

!$found and &error("Unable to login.");

print $input->header;
print "Found";

}

sub error { print $input->header; print $_[0]; exit; }

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
print "Content-type: text/html \n\n";
$input = new CGI;

$action = $input->param('action');

if ($action eq "login") {

# get the params

$password = $input->param('password');
$username = $input->param('username');

if ($password eq "") {
&error("You need to specify a password!");
}


if ($username eq "") {
&error("You need to specify a username!");
}

$output = `/bin/grep -c $username::$password /home/ace-clipart.com/passwords.list`;
chomp $output;
if ($output) { print "OK"; } else { print "Nope..wrong! Not found"; }

} else { print "no info sent"; }




# an error sub incase something goes wrong.
sub error {

my $error = shift;
print $error;
exit;

}