Apple AppleShare 3.0 File Server Controls User 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