home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / EASys!_update_481_to_482 / Finish_ModAS.script < prev    next >
Text File  |  2000-08-01  |  10KB  |  274 lines
  1. failat 30
  2. stack 20000
  3.  
  4. set rEd rx Install_C:RemoteEd.rexx
  5. set RenStr Install_C:ReplaceStrings
  6. set srcSys iGuide_root:ModAS_System/StartSys
  7. set StaSys SYS:StartSys
  8.  
  9. ;NewIcons finish
  10. IF NOT $wb35 eq 1
  11.  IF EXISTS SYS:c/NewIcons
  12.   IF EXISTS SYS:c/DefIcons
  13.    delete >NIL: $StaSys/b_GUI/#?_NewIcons FORCE QUIET
  14.    copy "$srcSys/b_GUI/_9_NewIcons" $StaSys/b_GUI/9_NewIcons CLONE QUIET
  15.   ENDIF
  16.  ENDIF
  17.  
  18.  IF EXISTS $StaSys/c_Prepare/NewIcons
  19.   IF NOT EXISTS $StaSys/b_GUI/9_NewIcons
  20.     rename >NIL: $StaSys/c_Prepare/NewIcons $StaSys/b_GUI/9_NewIcons
  21.   ELSE
  22.     delete >NIL: $StaSys/b_GUI/#?_NewIcons FORCE QUIET
  23.     rename >NIL: $StaSys/c_Prepare/NewIcons $StaSys/b_GUI/9_NewIcons
  24.   ENDIF
  25.  ENDIF
  26. ELSE
  27.   rename >NIL: $StaSys/c_Prepare/NewIcons $StaSys/b_GUI/_9_NewIcons
  28.   delete >NIL: $StaSys/b_GUI/#?_NewIcons FORCE QUIET
  29.   ENDIF
  30. ENDIF
  31.  
  32.  
  33. ;MCP Setup finish
  34. set workfile s:startup-sequence.before_ModAS
  35. $rEd movetext $workfile "MCP" "1LiNe" $StaSys/a_Init/8_MCP
  36. $rEd movetext $workfile "MCP" "1LiNe" $StaSys/a_Init/8_MCP
  37. $rEd movetext $workfile "MCP" "1LiNe" $StaSys/a_Init/8_MCP
  38.  
  39. set workfile s:User-Startup.before_ModAS
  40. $rEd movetext $workfile "MCP" "1LiNe" $StaSys/a_Init/8_MCP
  41. $rEd movetext $workfile "MCP" "1LiNe" $StaSys/a_Init/8_MCP
  42. $rEd movetext $workfile "MCP" "1LiNe" $StaSys/a_Init/8_MCP
  43.  
  44. set workfile s:startup-sequence
  45. $rEd movetext $workfile "MCP" "1LiNe" T:Trash
  46. $rEd movetext $workfile "MCP" "1LiNe" T:Trash
  47. $rEd movetext $workfile "MCP" "1LiNe" T:Trash
  48. $rEd movetext $workfile "MCP" "1LiNe" T:Trash
  49.  
  50. IF EXISTS SYS:WBstartup/MCP
  51.  copy SYS:WBstartup/MCP#? SYS:c CLONE
  52.  delete >NIL: SYS:WBstartup/MCP#? FORCE QUIET
  53.  echo >>$StaSys/a_Init/8_MCP "c:MCP"
  54. ENDIF
  55.  
  56. IF EXISTS $StaSys/c_Prepare/MCP
  57.  rename >NIL: "$StaSys/c_Prepare/MCP" "$StaSys/c_Prepare/_MCP.see.A_Init"
  58. ENDIF
  59.  
  60. IF EXISTS $StaSys/c_Prepare/MCP020
  61.  rename >NIL: "$StaSys/c_Prepare/MCP020" "$StaSys/c_Prepare/_MCP.see.A_Init"
  62. ENDIF
  63. ; END MCP finish
  64.  
  65.  
  66. ;MultiCX Setup finish
  67. set workfile s:startup-sequence.before_ModAS
  68. search >NIL: "$workfile" "MultiCX" QUIET
  69. IF $RC eq 0
  70.  set MultiCX 1
  71.  rename >NIL: $StaSys/a_Init/8_MCP $StaSys/a_Init/8_MultiCX
  72.  $rEd movetext $workfile "MultiCX" "1LiNe" $StaSys/a_Init/8_MultiCX
  73.  $rEd movetext $workfile "MultiCX" "1LiNe" $StaSys/a_Init/8_MultiCX
  74.  $rEd movetext $workfile "MultiCX" "1LiNe" $StaSys/a_Init/8_MultiCX
  75. ENDIF
  76.  
  77. set workfile s:User-Startup.before_ModAS
  78. search >NIL: "$workfile" "MultiCX" QUIET
  79. IF $RC eq 0
  80.  set MultiCX 1
  81.  rename >NIL: $StaSys/a_Init/8_MCP $StaSys/a_Init/8_MultiCX
  82.  $rEd movetext $workfile "MultiCX" "1LiNe" $StaSys/a_Init/8_MultiCX
  83.  $rEd movetext $workfile "MultiCX" "1LiNe" $StaSys/a_Init/8_MultiCX
  84.  $rEd movetext $workfile "MultiCX" "1LiNe" $StaSys/a_Init/8_MultiCX
  85. ENDIF
  86.  
  87. set workfile s:startup-sequence
  88. $rEd movetext $workfile "MultiCX" "1LiNe" T:Trash
  89. $rEd movetext $workfile "MultiCX" "1LiNe" T:Trash
  90. $rEd movetext $workfile "MultiCX" "1LiNe" T:Trash
  91. $rEd movetext $workfile "MultiCX" "1LiNe" T:Trash
  92.  
  93. IF EXISTS SYS:WBstartup/MultiCX
  94.  rename >NIL: $StaSys/a_Init/8_MCP $StaSys/a_Init/8_MultiCX
  95.  
  96.  copy SYS:WBstartup/MultiCX#? SYS:c CLONE
  97.  delete >NIL: SYS:WBstartup/MultiCX#? FORCE QUIET
  98.  echo >>$StaSys/a_Init/8_MCP "c:MultiCX"
  99. ENDIF
  100.  
  101. IF EXISTS $StaSys/c_Prepare/MultiCX
  102.  rename >NIL: "$StaSys/c_Prepare/MultiCX" "$StaSys/c_Prepare/_MultiCX.see.A_Init"
  103. ENDIF
  104. ; END MultiCX finish
  105.  
  106.  
  107. ;obsolete modules
  108. IF EXISTS $StaSys/c_Prepare/MCP
  109.  rename >NIL: "$StaSys/c_Prepare/MCP" "$StaSys/c_Prepare/_MCP.see.A_Init"
  110. ENDIF
  111.  
  112. IF EXISTS $StaSys/c_Prepare/MCP020
  113.  rename >NIL: "$StaSys/c_Prepare/MCP020" "$StaSys/c_Prepare/_MCP.see.A_Init"
  114. ENDIF
  115.  
  116. IF EXISTS $StaSys/c_Prepare/RainBoot
  117.  rename >NIL: "$StaSys/c_Prepare/RainBoot" "$StaSys/c_Prepare/_RainBoot.b_GUI.MultiMediaBoot"
  118. ENDIF
  119.  
  120. if exists "$StaSys/c_Prepare/Rexx"
  121.  rename >NIL: "$StaSys/c_Prepare/Rexx" "$StaSys/c_Prepare/_Rexx.see.a_Init"
  122. endif
  123.  
  124. if exists "$StaSys/c_Prepare/ARexx"
  125.  rename >NIL: "$StaSys/c_Prepare/ARexx" "$StaSys/c_Prepare/_ARexx.see.a_Init"
  126. endif
  127.  
  128. ;Shell-Config Finish
  129. $rEd movetext $StaSys/b_GUI/7_ShellConfig ";BEGIN ModAS_StartupShell" "1LiNe" T:Trash
  130. $rEd movetext $StaSys/b_GUI/7_ShellConfig ";END ModAS_StartupShell" "1LiNe" T:Trash
  131. $rEd movetext $StaSys/b_GUI/7_ShellConfig ";BEGIN ActualPath" ";END ActualPath" T:Trash
  132. $RenStr $StaSys/b_GUI/7_ShellConfig "EASys!_bin:" "SYS:EASys!/bin/" I
  133. $RenStr $StaSys/b_GUI/7_ShellConfig "alias exit endcli" "alias exit endclu" I
  134. $RenStr $StaSys/b_GUI/7_ShellConfig "endcli" ";endcli" I
  135. $RenStr $StaSys/b_GUI/7_ShellConfig "alias exit endclu" "alias exit endcli" I
  136. $rEd movetext $StaSys/b_GUI/7_ShellConfig "Info-SayTime" "1LiNe" T:Trash
  137. $rEd movetext $StaSys/b_GUI/7_ShellConfig ":Tools/View run >NIL: EASys!_bin:" "alias#?" T:Trash
  138. $rEd movetext $StaSys/b_GUI/7_ShellConfig "EASys!_bin:" "1LiNe" T:Trash
  139. $rEd movetext $StaSys/b_GUI/7_ShellConfig "EASys!_bin:" "1LiNe" T:Trash
  140. $rEd movetext $StaSys/b_GUI/7_ShellConfig "EASys!_bin:" "1LiNe" T:Trash
  141. $rEd movetext $StaSys/b_GUI/7_ShellConfig "EASys!_bin:" "1LiNe" T:Trash
  142.  
  143. ;Login Finish
  144. IF EXISTS $StaSys/b_GUI/3_LOGIN
  145.   delete >NIL: $StaSys/b_GUI/3_No_Login FORCE QUIET
  146.   delete >NIL: $StaSys/b_GUI/_3_LOGIN FORCE QUIET
  147. ELSE
  148.   delete >NIL: $StaSys/b_GUI/3_LOGIN FORCE QUIET
  149.   delete >NIL: $StaSys/b_GUI/_3_No_Login FORCE QUIET
  150. ENDIF
  151.  
  152. $rEd movetext s:startup-sequence "IF NOT EXISTS ENV:Flags/ENV_DONE" "~~;BEGIN ModAS" T:Trash
  153.  
  154. ;special startup modules
  155. if exists $StaSys/c_Prepare/PHENOMENA
  156.  if exists $StaSys/c_Prepare/Real3D
  157.     type $StaSys/c_Prepare/PHENOMENA >>$StaSys/c_Prepare/Real3D
  158.     delete >NIL: $StaSys/c_Prepare/PHENOMENA FORCE QUIET
  159.  endif
  160.  if exists $StaSys/c_Prepare/Real3D_V1
  161.     type $StaSys/c_Prepare/PHENOMENA >>$StaSys/c_Prepare/Real3D_V1
  162.     delete >NIL: $StaSys/c_Prepare/PHENOMENA FORCE QUIET
  163.  endif
  164.  if exists $StaSys/c_Prepare/Real3D_V2
  165.     type $StaSys/c_Prepare/PHENOMENA >>$StaSys/c_Prepare/Real3D_V2
  166.     delete >NIL: $StaSys/c_Prepare/PHENOMENA FORCE QUIET
  167.  endif
  168.  if exists $StaSys/c_Prepare/Real3D_V3
  169.     type $StaSys/c_Prepare/PHENOMENA >>$StaSys/c_Prepare/Real3D_V3
  170.     delete >NIL: $StaSys/c_Prepare/PHENOMENA FORCE QUIET
  171.  endif
  172.  if exists $StaSys/c_Prepare/Real3D_V4
  173.     type $StaSys/c_Prepare/PHENOMENA >>$StaSys/c_Prepare/Real3D_V4
  174.     delete >NIL: $StaSys/c_Prepare/PHENOMENA FORCE QUIET
  175.  endif
  176. endif
  177.  
  178. ;corrections to general startup errors (thanks to Bukhard Breuer)
  179. $rEd movetext $StaSys/a_Init/1_Residents "execute remove" "1LiNe" T:Trash
  180. $rEd movetext $StaSys/d_System/4_BeforeLoadWB "ConClip" "1LiNe" T:Trash
  181. $rEd movetext s:startup-sequence "execute T:M" "1LiNe" T:Trash
  182. $rEd movetext s:startup-sequence " T:M" "1LiNe" T:Trash
  183.  
  184. ;if no_modas has been chosen before
  185. delete >NIL: "$StaSys/c_Prepare/_MenuShortcuts" FORCE QUIET
  186. delete >NIL: "$StaSys/c_Prepare/_ModAS_deamon" FORCE QUIET
  187.  
  188. ;remove obsolete backups, files
  189. delete >NIL: "$StaSys/StartOptionen" FORCE QUIET
  190. delete >NIL: "$StaSys/#?2000#?" FORCE QUIET
  191. delete >NIL: "$StaSys/a_Init/#?2000#?" FORCE QUIET
  192. delete >NIL: "$StaSys/b_GUI/6_StartShell QUIET"
  193. delete >NIL: "$StaSys/b_GUI/#?2000#?" FORCE QUIET
  194. delete >NIL: "$StaSys/c_Prepare/#?2000#?" FORCE QUIET
  195. delete >NIL: "$StaSys/d_System/#?2000#?" FORCE QUIET
  196. delete >NIL: "$StaSys/e_WB/#?2000#?" FORCE QUIET
  197.  
  198. ;lock original backups of startup scripts for later use
  199. if exists s:user-startup.before_ModAS
  200.  protect s:user-startup.before_Modas -wd
  201.  delete >NIL: s:user-startup.? FORCE QUIET
  202. endif
  203.  
  204. if exists s:startup-sequence.before_ModAS
  205.  protect s:startup-sequence.before_ModAS -wd
  206.  delete >NIL: s:startup-sequence.? FORCE QUIET
  207. endif
  208.  
  209. copy profile:ENV/Flags ENV:Flags clone all quiet
  210.  
  211. ;Create a wait in 1_WorkBench after WB-Loader for finishing:
  212. $rEd movetext $StaSys/e_WB/1_WorkBench "wait " "1LiNe" T:Trash
  213. $rEd movetext $StaSys/e_WB/1_WorkBench "wait " "1LiNe" T:Trash
  214. echo >>$StaSys/e_WB/1_WorkBench "wait 4"
  215.  
  216. ;cleanup remoteed's and other backups
  217. delete >NIL: s:#?.2 FORCE QUIET
  218. delete >NIL: s:#?.3 FORCE QUIET
  219. delete >NIL: s:#?.4 FORCE QUIET
  220. delete >NIL: s:#?.5 FORCE QUIET
  221. delete >NIL: $StaSys/a_Init/#?.1 FORCE QUIET
  222. delete >NIL: $StaSys/a_Init/#?.2 FORCE QUIET
  223. delete >NIL: $StaSys/b_GUI/#?.1 FORCE QUIET
  224. delete >NIL: $StaSys/b_GUI/#?.2 FORCE QUIET
  225. delete >NIL: $StaSys/b_GUI/#?.3 FORCE QUIET
  226. delete >NIL: $StaSys/b_GUI/#?.4 FORCE QUIET
  227. delete >NIL: $StaSys/b_GUI/#?.5 FORCE QUIET
  228. delete >NIL: $StaSys/c_Prepare/#?.1 FORCE QUIET
  229. delete >NIL: $StaSys/c_Prepare/#?.2 FORCE QUIET
  230. delete >NIL: $StaSys/c_Prepare/#?.3 FORCE QUIET
  231. delete >NIL: $StaSys/c_Prepare/#?.4 FORCE QUIET
  232. delete >NIL: $StaSys/d_System/#?.1 FORCE QUIET
  233. delete >NIL: $StaSys/d_System/#?.2 FORCE QUIET
  234. delete >NIL: $StaSys/d_System/#?_3 FORCE QUIET
  235. delete >NIL: $StaSys/d_System/#?_4 FORCE QUIET
  236. delete >NIL: $StaSys/d_System/#?_5 FORCE QUIET
  237. delete >NIL: $StaSys/e_WB/#?.1 FORCE QUIET
  238. delete >NIL: $StaSys/e_WB/#?.2 FORCE QUIET
  239. delete >NIL: $StaSys/e_WB/Copy_of_#? FORCE QUIET
  240. delete >NIL: $StaSys/e_WB/Copy_2_of#? FORCE QUIET
  241.  
  242. delete >NIL: SYS:c/StartupStandard FORCE QUIET
  243. delete >NIL: SYS:c/StartupModAS FORCE QUIET
  244. delete >NIL: SYS:c/ModAS2Standard FORCE QUIET
  245. delete >NIL: $StaSys/ModAS.doc#? FORCE QUIET
  246. delete >NIL: $StaSys/ModAS.readme#? FORCE QUIET
  247.  
  248. delete >NIL: $StaSys/#?/StartOpts.rexx FORCE QUIET
  249. delete >NIL: $StaSys/StartOpts1.txt FORCE QUIET
  250. delete >NIL: $StaSys/StartOpts2.txt FORCE QUIET
  251. delete >NIL: $StaSys/MultiMediaBoot/rexx.info FORCE QUIET
  252.  
  253. delete >NIL: $StaSys/Profiles/#?/env/flags/StarMusic FORCE QUIET
  254. delete >NIL: $StaSys/Profiles/#?/wbstartup/MultiNotify FORCE QUIET
  255. delete >NIL: $StaSys/Profiles/#?/wbstartup/ToolManager FORCE QUIET
  256.  
  257. delete >NIL: SYS:WBstartup/ToolManager#? FORCE QUIET
  258. delete >NIL: "SYS:WBstartup/WBstartup (enabled)/ToolManager#?" FORCE QUIET
  259. delete >NIL: "SYS:WBstartup (enabled)/ToolManager#?" FORCE QUIET
  260.  
  261. delete >NIL: SYS:WBstartup/MultiNotify#? FORCE QUIET
  262. delete >NIL: "SYS:WBstartup/WBstartup (enabled)/MultiNotify#?" FORCE QUIET
  263. delete >NIL: "SYS:WBstartup (enabled)/MultiNotify#?" FORCE QUIET
  264.  
  265. ;-------------------------------------
  266. ;Cleanup temporary files
  267. delete >NIL: T:Trash QUIET
  268.  
  269. ;new activated-Flag
  270. delete >NIL: $StaSys/ModAS_activated ENVARC:ModAS_activated ENV:ModAS_activated FORCE QUIET
  271. date >$StaSys/ModAS_activated
  272. protect $StaSys/ModAS_activated -wd
  273.  
  274.