home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _4b48df6252ea5ab89e5c1ec25e227285 < prev    next >
Encoding:
Text File  |  2000-03-15  |  1.7 KB  |  72 lines
  1. package Win32::AuthenticateUser;
  2.  
  3. use strict;
  4. use Carp;
  5. use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
  6.  
  7. require Exporter;
  8. require DynaLoader;
  9. require AutoLoader;
  10.  
  11. @ISA = qw(Exporter DynaLoader);
  12. # Items to export into callers namespace by default. Note: do not export
  13. # names by default without a very good reason. Use EXPORT_OK instead.
  14. # Do not simply export all your public functions/methods/constants.
  15. @EXPORT = qw(
  16.     
  17. );
  18. $VERSION = '0.01';
  19.  
  20. sub AUTOLOAD {
  21.     # This AUTOLOAD is used to 'autoload' constants from the constant()
  22.     # XS function.  If a constant is not found then control is passed
  23.     # to the AUTOLOAD in AutoLoader.
  24.  
  25.     my $constname;
  26.     ($constname = $AUTOLOAD) =~ s/.*:://;
  27.     croak "& not defined" if $constname eq 'constant';
  28.     my $val = constant($constname, @_ ? $_[0] : 0);
  29.     if ($! != 0) {
  30.     if ($! =~ /Invalid/) {
  31.         $AutoLoader::AUTOLOAD = $AUTOLOAD;
  32.         goto &AutoLoader::AUTOLOAD;
  33.     }
  34.     else {
  35.         croak "Your vendor has not defined Win32::AuthenticateUser macro $constname";
  36.     }
  37.     }
  38.     no strict 'refs';
  39.     *$AUTOLOAD = sub () { $val };
  40.     goto &$AUTOLOAD;
  41. }
  42.  
  43. bootstrap Win32::AuthenticateUser $VERSION;
  44.  
  45. # Preloaded methods go here.
  46.  
  47. # Autoload methods go after =cut, and are processed by the autosplit program.
  48.  
  49. 1;
  50. __END__
  51. # Below is the stub of documentation for your module. You better edit it!
  52.  
  53. =head1 NAME
  54.  
  55. Win32::AuthenticateUser - Win32 User authentication for domains
  56.  
  57. =head1 SYNOPSIS
  58.  
  59.   use Win32::AuthenticateUser;
  60.   
  61.   AuthenticateUser("domain", "user", "passwd");
  62.  
  63. =head1 DESCRIPTION
  64.  
  65. Performs Win32 user authentication using domains
  66.  
  67. =head1 AUTHOR
  68.  
  69. Murray Nesbitt (murray@activestate.com), ActiveState Tool Corp.
  70.  
  71. =cut
  72.