Hi,
I'm having a bit of trouble authenticating users. The script I have works, but only a
couple of times before it just sends out 401 without prompting the user for their
details. We have mod_perl 1.99_05 installed, we don't want to upgrade as we would have
more applications to upgrade than time.
Any help/questions would be appreciated. The problem script is below:
use strict;
use Apache::Const qw(OK AUTH_REQUIRED);
use lib qw(/var/www/html/opbms/libs);
use CheckLogin;
use CreateFrames;
my $r = shift;
print "Content-Type:text/html\n\n";
my ($status, $password) = $r->get_basic_auth_pw;
if ($status != OK)
{
$r->status($status);
exit($status);
}
my $ip = '127.0.0.1';
my $port = 31555;
if (CheckLogin::Check($r->user, $password, $port, $ip) eq '1')
{
CreateFrames::Create($r->user, $password, $port, $ip);
}
else
{
$r->note_basic_auth_failure;
$r->status(AUTH_REQUIRED);
exit(AUTH_REQUIRED);
}
Cheers!!
________________________________________________________________________
This email has been scanned for all viruses by the MessageLabs Email
Security System. For more information on a proactive email security
service working around the clock, around the globe, visit
http://www.messagelabs.com
________________________________________________________________________
