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 ________________________________________________________________________