oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

merging 5.4.4 changes

Browse source
This commit is contained in:
JT Smith 2003-09-14 21:43:20 +00:00
parent 2b6d4a36fc
commit 6272369816
12 changed files with 1842 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI/Authentication/SMB.pm
View file

@ -25,21 +25,19 @@ my %smbError = (
#-------------------------------------------------------------------
sub authenticate {
my ($userId, $password, $userData, $smb, $result);
$userId = $_[0]->[0];
my ($userId, $password, $userData, $smb, $result);
$userId = $_[0]->[0];
$password = $_[0]->[1];
$userData = WebGUI::Authentication::getParams($userId, 'SMB');
$smb = Authen::Smb::authen($userData->{smbLogin}, $password, $userData->{smbPDC}, $userData->{smbBDC}, $userData->{smbDomain});
if ($smb > 0) {
$result = '<li>'. $smbError{$smb};
} else {
$result = 1;
}
return $result;
$userData = WebGUI::Authentication::getParams($userId, 'SMB');
return "<li>No SMB username specfified." unless ($userData->{smbLogin});
$smb = Authen::Smb::authen($userData->{smbLogin}, $password, $userData->{smbPDC}, $userData->{smbBDC}, $userData->{smbDomain});
if ($smb > 0) {
return '<li>'. $smbError{$smb};
} else {
return 1;
}
}
#-------------------------------------------------------------------
sub adminForm {
my $userData = WebGUI::Authentication::getParams($_[0], 'SMB');