home *** CD-ROM | disk | FTP | other *** search
/ Freelog 15 / FREELOG 15.ISO / WebMaster / Perl / PERL5106.ZIP / perl5 / Lib / Win32.pm < prev    next >
Encoding:
Perl POD Document  |  1996-01-17  |  1.1 KB  |  47 lines
  1. package Win32;
  2.  
  3. require Exporter;
  4. @ISA = qw(Exporter);
  5. @EXPORT =
  6.     qw(
  7.        NULL
  8.        WIN31_CLASS
  9.        OWNER_SECURITY_INFORMATION
  10.        GROUP_SECURITY_INFORMATION
  11.        DACL_SECURITY_INFORMATION
  12.        SACL_SECURITY_INFORMATION
  13.  
  14.  
  15. );
  16.  
  17. # Routines added in ntxs.cpp:
  18. # Win32::GetLastError
  19. # Win32::PerlVersion
  20. # Win32::LoginName
  21. # Win32::NodeName
  22. # Win32::DomainName
  23. # Win32::FsType
  24. # Win32::GetCwd
  25. # Win32::GetOSVersion
  26. # Win32::FormatMessage ERRORCODE
  27. # Win32::Spawn COMMAND, ARGS, PID
  28. # Win32::LookupAccountName SYSTEM, ACCOUNT, DOMAIN, SID, SIDTYPE
  29. # Win32::LookupAccountSID SYSTEM, SID, ACCOUNT, DOMAIN, SIDTYPE
  30. # Win32::InitiateSystemShutdown MACHINE, MESSAGE, TIMEOUT, FORCECLOSE, REBOOT
  31. # Win32::AbortSystemShutdown MACHINE
  32.  
  33. # Win32::GetTickCount
  34. # Win32::IsWinNT
  35. # Win32::IsWin95
  36.  
  37. # We won't bother with the constant stuff, too much of a hassle. Just hard
  38. # code it here.
  39. sub NULL { (0);}
  40. sub WIN31_CLASS { &NULL;}
  41. sub OWNER_SECURITY_INFORMATION {(0x00000001);}
  42. sub GROUP_SECURITY_INFORMATION {(0x00000002);}
  43. sub DACL_SECURITY_INFORMATION {(0x00000004);}
  44. sub SACL_SECURITY_INFORMATION {(0x00000008);}
  45.  
  46. 1;
  47.