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

{ bits first. }
PROCEDURE SetSEFlags;
BEGIN
WITH gExtendedSEQEntry.theSEQEntry DO
BEGIN
{ If the bCSEHAFPInDoRequest or }
{ bCSEHAFPInSendResponse bits in SEeventFlag are }
{ going to be set, then indicate what AFP calls }
{ you're interested in. For example: }
{ BSET(theSEQEntry.SEwhichAFPFlag[1], afpOpenFork); }
{ will cause a server event for the afpOpenFork }
{ AFP call. }
{ • add your code here • }
{ If the bCSEHServerControlCall bit in SEeventFlag }
{ is going to be set, }
{ then indicate what server control calls you're }
{ interested in. For example: }
{ BSET(theSEQEntry.SEwhichSCFlag, SCSetSetupInfo); }
{ will cause a server event for the SCSetSetupInfo }
{ server control call. }
{ • add your code here • }
{ Indicate what server events you'd like to be }
{ notified of by setting bits in the SEeventFlag }
{ longword. For example: }
{ BSET(SEeventFlag, bCSEHVolumePrep); }
{ will cause a server event every time the server }
{ prepares a volume for use with AppleShare. }
{ • add your code here • }
END;