Apple AppleShare 3.0 File Server Controls - Manual (Page 8)

END;
The following segment of code gets the server version information and stores
it in global variables for later use. (Global variables and their data types
are listed in "Using Server Control Calls," earlier in this chapter.)
err := MySCServerVersion(@gServerExtensionName,
gServerType, gServerVersion);
SCGetSetupInfo
The following function calls SCGetSetupInfo to get the file server's setup
information. If the server is a Macintosh File Sharing server (type =
MFSType), this function also fills in the fields that aren't returned by the
server control call. Before using this function, you must initialize
gServerType by using the SCServerVersion control call.
FUNCTION MySCGetSetupInfo (SetupPtr: SetupInfoRecPtr;
VAR MaxVolumes: Integer;
VAR MaxExpFolders: Integer;
VAR CurMaxSessions: Integer):
OSErr;
VAR
scPB: SCParamBlockRec;
BEGIN
scPB.setupPB.scCode := SCGetSetupInfo;
scPB.setupPB.scSetupPtr := SetupPtr;
MySCGetSetupInfo := SyncServerDispatch(@scPB);
CASE gServerType OF
MFSType:
BEGIN
MaxVolumes := 10;
MaxExpFolders := 10;
CurMaxSessions := SetupPtr^.SIMaxLogins;
END;
OTHERWISE
BEGIN