-- AlpineServer.cm
-- Carl Hauser, June 26, 1986 9:37:08 am PDT
Install ViewRec
Run AlpineCommonImpls
Run AlpineServerImpls
run skipatrol
run skipatrollogviewerimpl
_ AlpineControl.Initialize[filePageMgrNormalChunks: 150, filePageMgrLogChunks: 150, filePageMgrLeaderChunks: 20, 
coordinatorMapHashArraySlots: 64, transactionMapHashArraySlots: 64, fileMapHashArraySlots: 43, openFileMapHashArraySlots: 256, 
lockHashArraySlots: 256, fileMapFinalizationQueueLength: 60, nAccessCacheEntries: 20, alpineWheels: "AlpineWheels^.pa"]
-- _ AlpineControl.Start[fileStore: "Sea-wolf.alpine", typeOfRestart: warmStart, nLogPages: 4000, nOwners: 10, additionalVolumes: 
LOOPHOLE[LIST["Donner.alpine"]]]
 _ AlpineControl.Start[fileStore: "Sea-wolf.alpine", logVolumeName: "Donner.Alpine", additionalVolumes: LOOPHOLE[CONS["AltCedar", 
NIL]], typeOfRestart: warmStart, nLogPages: 4000, nOwners: 10, nBackupBTreePages: 100]
_ AlpineControl.ExportInterfaces[]
push ///NewAlpineUser/
Install AlpineUser
pop
<< run backupbtreeimpl>>
<< -- run backuppackage
-- _ AMEvents.StopEvents[WorldVM.LocalWorld[]]
-- showc
-- showw
startlog>>
<< run backuppackage>>
<<alpinecontrolpanel
>>