Authen::Simple::SMB (3pm)

    use Authen::Simple::SMB;

my $smb = Authen::Simple::SMB->new( domain => 'DOMAIN', pdc => 'PDC' );

if ( $smb->authenticate( $username, $password ) ) { # successfull authentication }

# or as a mod_perl Authen handler

PerlModule Authen::Simple::Apache PerlModule Authen::Simple::SMB

PerlSetVar AuthenSimpleSMB_domain "DOMAIN" PerlSetVar AuthenSimpleSMB_pdc "PDC"

<Location /protected> PerlAuthenHandler Authen::Simple::SMB AuthType Basic AuthName "Protected Area" Require valid-user </Location>

Authenticate against an \s-1SMB\s0 server.

* new

This method takes a hash of parameters. The following options are valid:

* domain

Domain to authenticate against. Required. domain => 'NTDOMAIN'

* pdc

Primary Domain Controller. Required. pdc => 'PDC'

* bdc

Backup Domain Controller. bdc => 'BDC'

* log

Any object that supports \*(C`debug\*(C', \*(C`info\*(C', \*(C`error\*(C' and \*(C`warn\*(C'. log => Log::Log4perl->get_logger('Authen::Simple::SMB')

Returns true on success and false on failure.

Authen::Simple.

Authen::Smb.

Christian Hansen \*(C`[email protected]\*(C'

This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.