version 1.356, 2007/01/15 01:08:28
|
version 1.357, 2007/01/19 02:58:17
|
Line 44 use Digest::MD5 qw(md5_hex);
|
Line 44 use Digest::MD5 qw(md5_hex);
|
use GDBM_File; |
use GDBM_File; |
use Authen::Krb4; |
use Authen::Krb4; |
use Authen::Krb5; |
use Authen::Krb5; |
use lib '/home/httpd/lib/perl/'; |
|
use localauth; |
use localauth; |
use localenroll; |
use localenroll; |
use localstudentphoto; |
use localstudentphoto; |
Line 5896 sub validate_user {
|
Line 5895 sub validate_user {
|
$password, |
$password, |
$contentpwd, |
$contentpwd, |
$domain); |
$domain); |
|
if ($validate < 0) { |
|
&logthis("localauth for $contentpwd $user:$domain returned a $validated"); |
|
$validated = 0; |
|
} |
} else { # Unrecognized auth is also bad. |
} else { # Unrecognized auth is also bad. |
$validated = 0; |
$validated = 0; |
} |
} |