authen::smb(3pm) [debian man page]

Smb(3pm)						User Contributed Perl Documentation						  Smb(3pm)

NAME

       Authen::Smb - Perl extension to authenticate against an SMB server

SYNOPSIS

	 use Authen::Smb;
	 my $authResult = Authen::Smb::authen('myUser',
					      'myPassword',
					      'myPDC',
					      'myBDC',
					      'myNTDomain');

	 if ( $authResult == Authen::Smb::NO_ERROR ) {
	   print "User successfully authenticated.
";
	 } else {
	   print "User not authenticated with error level $authResult
";
	 }

DESCRIPTION

       Authen::Smb allows you to authenticate a user against an NT domain.  You can specify both a primary and a backup server to use for
       authentication.	The NT names of the machines should be used for specifying servers.

       An authentication request will return one of four values:

       NTV_NO_ERROR(0) NTV_SERVER_ERROR(1) NTV_PROTOCOL_ERROR(2) NTV_LOGON_ERROR(3)

       NTV_NO_ERROR is the only return value possible for a successful authentication.	All other return values indicate failure, of one sort or
       another.

EXPORT_OK constants
	 NTV_LOGON_ERROR
	 NTV_NO_ERROR
	 NTV_PROTOCOL_ERROR
	 NTV_SERVER_ERROR

AUTHOR

       Patrick Michael Kane, modus@pr.es.to Based on the smbval library from the samba package

SEE ALSO

       perl(1).

perl v5.14.2							    1999-06-07								  Smb(3pm)

Authen::Simple::Kerberos(3pm)				User Contributed Perl Documentation			     Authen::Simple::Kerberos(3pm)

NAME

       Authen::Simple::Kerberos - Simple Kerberos authentication

SYNOPSIS

	   use Authen::Simple::Kerberos;

	   my $kerberos = Authen::Simple::Kerberos->new(
	       realm => 'REALM.COMPANY.COM'
	   );

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

	   # or as a mod_perl Authen handler

	   PerlModule Authen::Simple::Apache
	   PerlModule Authen::Simple::Kerberos

	   PerlSetVar AuthenSimpleKerberos_realm "REALM.COMPANY.COM"

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

DESCRIPTION

       Kerberos authentication.

METHODS

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

	   * realm Kerberos realm.

		       realm => 'REALM.COMPANY.COM'

	   * log   Any object that supports "debug", "info", "error" and "warn".

		       log => Log::Log4perl->get_logger('Authen::Simple::Kerberos')

       * authenticate( $username, $password )
	   Returns true on success and false on failure.

SEE ALSO

       Authen::Simple.

       Authen::Krb5::Simple.

AUTHOR

       Christian Hansen "ch@ngmedia.com"

COPYRIGHT

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

perl v5.8.8							    2008-03-01					     Authen::Simple::Kerberos(3pm)