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

AuthMethods are now configured in the config file rather than the filesystem.

Browse source
This commit is contained in:
JT Smith 2003-02-27 04:58:27 +00:00
parent 71d0d6b0c7
commit 7e8b5c6405
1 changed files with 0 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

139
lib/WebGUI/Authentication/SMB.pm Normal file
View file

@ -0,0 +1,139 @@
package WebGUI::Authentication::SMB;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------~
use strict;
use WebGUI::Session;
use WebGUI::HTMLForm;
use WebGUI::Authentication;
use Authen::Smb;
use warnings;
my %smbError = (
1 => WebGUI::International::get(2,'Auth/SMB'),
2 => WebGUI::International::get(3,'Auth/SMB'),
3 => WebGUI::International::get(4,'Auth/SMB')
);
#-------------------------------------------------------------------
sub authenticate {
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;
}
#-------------------------------------------------------------------
sub adminForm {
my $userData = WebGUI::Authentication::getParams($_[0], 'SMB');
my $pdc = $session{form}{'authSMB.smbPDC'} || $userData->{smbPDC} || $session{setting}{smbPDC};
my $bdc = $session{form}{'authSMB.smbBDC'} || $userData->{smbBDC} || $session{setting}{smbBDC};
my $domain = $session{form}{'authSMB.smbDomain'} || $userData->{smbDomain} || $session{setting}{smbDomain};
my $login = $session{form}{'authSMB.smbLogin'} || $userData->{smbLogin};
my $f;
$f = WebGUI::HTMLForm->new;
$f->readOnly('<b>'.optionsLabel().'</b>');
$f->text("authSMB.smbPDC",WebGUI::International::get(5,'Auth/SMB'),$pdc);
$f->text("authSMB.smbBDC",WebGUI::International::get(6,'Auth/SMB'),$bdc);
$f->text("authSMB.smbDomain",WebGUI::International::get(7,'Auth/SMB'),$domain);
$f->text("authSMB.smbLogin",WebGUI::International::get(8,'Auth/SMB'),$login);
return $f->printRowsOnly;
}
#-------------------------------------------------------------------
sub adminFormSave {
WebGUI::Authentication::saveParams($session{form}{uid},'SMB',
{
smbPDC => $session{form}{'authSMB.smbPDC'},
smbBDC => $session{form}{'authSMB.smbBDC'},
smbDomain => $session{form}{'authSMB.smbDomain'},
smbLogin => $session{form}{'authSMB.smbLogin'}
});
}
#-------------------------------------------------------------------
sub optionsLabel {
return WebGUI::International::get(1,'Auth/SMB');
}
#-------------------------------------------------------------------
sub registrationForm {
my $f;
$f = WebGUI::HTMLForm->new;
$f->text("authSMB.loginId",WebGUI::International::get(8,'Auth/SMB'));
$f->password("authSMB.smbPassword",WebGUI::International::get(9,'Auth/SMB'));
return $f->printRowsOnly;
}
#-------------------------------------------------------------------
sub registrationFormSave {
my $uid;
$uid = shift;
WebGUI::Authentication::saveParams($uid,'SMB',
{
smbPDC => $session{setting}{smbPDC},
smbBDC => $session{setting}{smbBDC},
smbDomain => $session{setting}{smbDomain},
smbLogin => $session{form}{'authSMB.loginId'}
});
}
#-------------------------------------------------------------------
sub registrationFormValidate {
my ($pdc, $bdc, $ntDomain, $smbLogin, $smb, $error);
$pdc = $session{setting}{smbPDC};
$bdc = $session{setting}{smbBDC};
$ntDomain = $session{setting}{smbDomain};
$smbLogin = $session{form}{'authSMB.loginId'};
$smb = Authen::Smb::authen($smbLogin, $session{form}{'authSMB.smbPassword'}, $pdc, $bdc, $ntDomain);
if ($smb > 0) {
$error = '<li>'. $smbError{$smb} . "pdc: $pdc, bdc: $bdc, domain: $ntDomain";
}
return ($session{form}{'authSMB.loginId'}, $error);
}
#-------------------------------------------------------------------
sub settingsForm {
my $f;
$f = WebGUI::HTMLForm->new;
$f->readOnly('<b>'.optionsLabel().'</b>');
$f->text("smbPDC",WebGUI::International::get(5,'Auth/SMB'),$session{setting}{smbPDC});
$f->text("smbBDC",WebGUI::International::get(6,'Auth/SMB'),$session{setting}{smbBDC});
$f->text("smbDomain",WebGUI::International::get(7,'Auth/SMB'),$session{setting}{smbDomain});
return $f->printRowsOnly;
}
#-------------------------------------------------------------------
sub userForm {
return undef;
}
#-------------------------------------------------------------------
sub userFormSave {
}
#-------------------------------------------------------------------
sub userFormValidate {
return ($session{user}{username},"");
}
1;