home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / netz / netapi / nwfsserv.pa1 < prev    next >
Encoding:
Text File  |  1994-01-14  |  9.6 KB  |  169 lines
  1. {#Z+}
  2. (*(10U&l12D(s4099T&k2S*)
  3. {***************************************************************************}
  4. {** Program : NWFFSERV                                                    **}
  5. {***************************************************************************}
  6. {** Version : 1.4             ** Started : 11/11/91  ** Ended :   /  /    **}
  7. {***************************************************************************}
  8. {******************************** Description ******************************}
  9. {***************************************************************************}
  10. {** OOP library for Netware API                                           **}
  11. {**                                                                       **}
  12. {** This unit forms the second level object : FILESERVER                  **}
  13. {** This object is a descandent of          : NETWARE                     **}
  14. {**                                                                       **}
  15. {**                                                                       **}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {***************************************************************************}
  19. {******************************** Information ******************************}
  20. {***************************************************************************}
  21. {** Provides Netware File Server Services (most require Console operator) **}
  22. {**                                                                       **}
  23. {**                                                                       **}
  24. {**                                                                       **}
  25. {** This code is (c) 1991 - 1994 Antonio Covelli. ALL RIGHTS RESERVED.    **}
  26. {** Portions (c) Novell Inc,                                              **}
  27. {**                                                                       **}
  28. {**                                                                       **}
  29. {***************************************************************************}
  30.  
  31. {$I NETWARE.INC}
  32. {#Z-}
  33.  
  34. UNIT NWFSSERV;
  35.  
  36. INTERFACE
  37.  
  38. USES
  39.  
  40.   nwvar,
  41.   netware;
  42.  
  43. TYPE
  44.  
  45.   PFileServerOBJ = ^FileServerOBJ;
  46.   FileServerOBJ  = OBJECT (NetwareOBJ)
  47.  
  48.     FUNCTION    CheckConsolePrivileges : WORD;
  49.  
  50.     FUNCTION    ClearConnectionNumber           (ConnectionNumber : longint) : WORD;
  51.  
  52.     FUNCTION    DisableFileServerLogin : WORD;
  53.  
  54.     FUNCTION    DisableTransactionTracking : WORD;
  55.  
  56.     FUNCTION    DownFileServer                  (ForceFlag : WORD) : WORD;
  57.  
  58.     FUNCTION    EnableFileServerLogin : WORD;
  59.  
  60.     FUNCTION    EnableTransactionTracking : WORD;
  61.  
  62.     FUNCTION    GetBinderyObjectDiskSpaceLeft   (ConnectionID : WORD; ObjectID : OT_BinderyID;
  63.                                                  VAR SystemElapsedTime, UnusedDiskBlocks : LONGINT;
  64.                                                  VAR RestrictionEnforced : WORD) : WORD;
  65.  
  66.     FUNCTION    GetConnectionsOpenFiles         (ConnectionID: WORD; ConnectionNumber : longint;
  67.                                                  VAR LastRecord, LastTask : WORD; StructSize : WORD;
  68.                                                  VAR OpenFiles : Conn_Open_Files) : WORD;
  69.  
  70.     FUNCTION    GetConnectionsSemaphores        (ConnectionID : WORD; ConnectionNumber : LONGINT;
  71.                                                  VAR LastRecord, LastTask : WORD; StructSize : WORD;
  72.                                                  VAR OpenSemaphores : Conn_Semaphore ) : WORD;
  73.  
  74.     FUNCTION    GetConnectionsTaskInformation   (ConnectionID : WORD; ConnectionNumber : LONGINT; VAR TaskPointer : WORD;
  75.                                                  StructSize : WORD; VAR ConnectionTaskInfo : Conn_Task_Info) : WORD;
  76.  
  77.     FUNCTION    GetConnectionsUsageStats        (ConnectionID : WORD; ConnectionNumber : LONGINT; StructSize : WORD;
  78.                                                  VAR ConnectionUsage : Conn_Usage) : WORD;
  79.  
  80.     FUNCTION    GetConnectionsUsingFile         (ConnectionID : WORD; VAR LastRecord, TaskID : WORD;
  81.                                                  DirectoryHandle : BYTE; DirectoryPath : TPathName;
  82.                                                  StructSize : WORD; VAR ConnUsingFile : Conn_Using_File) : WORD;
  83.  
  84.     FUNCTION    GetDiskCacheStats               (ConnectionID, StructSize : WORD;
  85.                                                  VAR CacheStats : Disk_Cache_Stats) : WORD;
  86.  
  87.     FUNCTION    GetDiskChannelStats             (ConnectionID, ChannelNumber, StructSize : WORD;
  88.                                                  VAR ChannelStats : Disk_Channel_Stats) : WORD;
  89.  
  90.     FUNCTION    GetDiskUtilization              (ObjectID : OT_BinderyID; VolumeNumber : BYTE;
  91.                                                  VAR UsedDirectories, UsedFiles, UsedBlocks : word) : WORD;
  92.  
  93.     FUNCTION    GetDriveMappingTable            (ConnectionID, StructSize : WORD;
  94.                                                  VAR DriveMappingTable : Drive_Map_Table) : WORD;
  95.  
  96.     FUNCTION    GetFileServerDateAndTime        (VAR DateAndTime : TByte7Array) : WORD;
  97.  
  98.     FUNCTION    GetFileServerDescriptionStrings (VAR CompanyName, Revision : TString80;
  99.                                                  VAR RevisionDate : TString24;
  100.                                                  VAR CopyrightNotice : TString255) : WORD;
  101.  
  102.     FUNCTION    GetFileServerExtendedMiscInformation (VAR MiscInfo : Server_Misc_Info) : WORD;
  103.  
  104.     FUNCTION    GetFileServerInformation        (VAR FileServerInformation : File_Serv_Info) : WORD;
  105.  
  106.     FUNCTION    GetFileServerLANIOStats         (ConnectionID, StructSize : WORD;
  107.                                                  VAR ServerLANIOStats : Server_Lan_IO) : WORD;
  108.  
  109.     FUNCTION    GetFileServerLoginStatus        (VAR LoginEnabledFlag : WORD) : WORD;
  110.  
  111.     FUNCTION    GetFileServerMiscInformation    (ConnectionID, StructSize : WORD;
  112.                                                  VAR MiscInfo : Server_Misc_Info) : WORD;
  113.  
  114.     PROCEDURE   GetFileServerName               (ConnectionID : WORD; VAR FileServerName : TObjectName);
  115.  
  116.     FUNCTION    GetFileSystemStatistics         (ConnectionID, StructSize : WORD;
  117.                                                  VAR FileSystemStats : File_Sys_Stats) : WORD;
  118.  
  119.     FUNCTION    GetLANDriverConfigInfo          (ConnectionID : WORD; LANBoardNumber : BYTE; StructSize : WORD;
  120.                                                  VAR LANDriverConfig : LAN_Config) : WORD;
  121.  
  122.     FUNCTION    GetLogicalRecordInformation     (ConnectionID : WORD; LogicalRecordName : TLogicalRecordName;
  123.                                                  VAR LastRecord, LastTask : WORD; StructSize : WORD;
  124.                                                  VAR LogicalRecInfo : Logical_Rec_Info) : WORD;
  125.  
  126.     FUNCTION    GetLogicalRecordsByConnection   (ConnectionID : WORD; ConnectionNumber : LONGINT;
  127.                                                  VAR LastRecord, LastTask : WORD; StructSize : WORD;
  128.                                                  VAR LogicalRecord : Logical_Record) : WORD;
  129.  
  130.     FUNCTION    GetNetworkSerialNumber          (VAR SerialNumber : LONGINT;
  131.                                                  VAR ApplicationNumber : WORD) : WORD;
  132.  
  133.     FUNCTION    GetPathFromDirectoryEntry       (ConnectionID : WORD; VolumeNumber : BYTE; DirectoryEntry : WORD;
  134.                                                  VAR DirectoryPath : TPathName) : WORD;
  135.  
  136.     FUNCTION    GetPhysicalDiskStats            (ConnectionID : WORD; PhysicalDiskNumber : BYTE; StructSize : WORD;
  137.                                                  VAR PhysicalDiskStats : Phys_Disk_Stats;
  138.                                                  VAR DriveDefinition : TString64) : WORD;
  139.  
  140.     FUNCTION    GetPhysicalRecordLocksByFile    (ConnectionID : WORD; DirectoryHandle : BYTE;
  141.                                                  FilePath : TPathName; VAR LastRecord, LastTask : WORD;
  142.                                                  StructSize : WORD; VAR RecordLock : Phys_Rec_Lock) : WORD;
  143.  
  144.     FUNCTION    GetPhysRecLockByConnectAndFile  (ConnectionID : WORD; ConnectionNumber : LONGINT;
  145.                                                  VolumeNumber : BYTE; DirectoryHandle : WORD;
  146.                                                  FilePath : TPathName; VAR LastRecord, LastTask : WORD;
  147.                                                  StructSize : WORD; VAR RecordLock : Short_Phys_Rec_Lock) : WORD;
  148.  
  149.     FUNCTION    GetSemaphoreInformation         (ConnectionID : WORD; SemaphoreName : TSemaphoreName;
  150.                                                  VAR LastRecord, LastTask, OpenCount : WORD;
  151.                                                  VAR SemaphoreValue : INTEGER; VAR ConnectionNumber : LONGINT;
  152.                                                  VAR TaskNumber : BYTE) : WORD;
  153.  
  154.     FUNCTION    SendConsoleBroadcast            (Message : TBroadcastMessage; ConnectionCount : WORD;
  155.                                                  ConnectionList : TConnectionList) : WORD;
  156.  
  157.     FUNCTION    SetFileServerDateAndTime        (Year, Month, Day, Hour, Minute, Second : WORD) : WORD;
  158.  
  159.     FUNCTION    TTSGetStats                     (ConnectionID : WORD; VAR LastTask : WORD; StructSize : WORD;
  160.                                                  VAR TTSStats : TTS_Stats) : WORD;
  161.  
  162.     FUNCTION    VerifySerialization             (SerialNumber : LONGINT;
  163.                                                  VAR ApplicationNumber : WORD) : WORD;
  164.  
  165.     DESTRUCTOR  Done; VIRTUAL;
  166.  
  167.   END;
  168.  
  169.