home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / InstallPack_47 / EASys!_inst / EASys!_iGuide / Upd_StartSys.script < prev   
AmigaDOS Script File  |  2000-03-14  |  8KB  |  171 lines
  1. .key userver
  2.  
  3. failat 30
  4. stack 20000
  5.  
  6. set rEd rx Install_C:RemoteEd.rexx
  7. set RenStr Install_C:ReplaceStrings
  8. set srcSys iGuide_root:ModAS_System/StartSys
  9. set StaSys SYS:StartSys
  10.  
  11. if exists $StaSys
  12.  
  13.  ;update all
  14.  copy "$srcSys/#?" $StaSys CLONE QUIET
  15.  copy iGuide:update/StartSys $StaSys CLONE ALL QUIET
  16.  
  17.  ;login
  18.  if exists $StaSys/b_GUI/3_Login
  19.   delete >NIL: $StaSys/b_GUI/#?3_#? QUIET
  20.   copy $srcSys/b_GUI/_b-disabled/3_Login $StaSys/b_GUI/3_Login CLONE QUIET
  21.   copy $srcSys/b_GUI/3_No_Login $StaSys/b_GUI/_b-disabled CLONE QUIET
  22.  else
  23.   delete >NIL: $StaSys/b_GUI/#?3_#? QUIET
  24.   copy $srcSys/b_GUI/3_No_Login $StaSys/b_GUI/3_No_Login CLONE QUIET
  25.  endif
  26.  
  27.  ;New Profiling
  28.  ;move ancient SYS:Prefs/Profiles to $StaSys/Profiles
  29.  if exists SYS:Prefs/Profiles
  30.   copy SYS:Prefs/Profiles $StaSys/Profiles CLONE ALL QUIET
  31.   assign Profile: REMOVE
  32.   delete >NIL: SYS:Prefs/Profiles FORCE ALL QUIET
  33.  endif
  34.  
  35.  assign Profile: $StaSys/Profiles/$LOGIN
  36.  
  37.  ;user icons providing
  38.  copy sys:disk.info $StaSys/profiles/root/Icons/SYS CLONE QUIET
  39.  copy RAM:disk.info $StaSys/profiles/root/Icons/RAM CLONE QUIET
  40.  copy sys:disk.info $StaSys/profiles/guest/Icons/SYS CLONE QUIET
  41.  copy RAM:disk.info $StaSys/profiles/guest/Icons/RAM CLONE QUIET
  42.  copy ENV:sys $StaSys/profiles/root/ENV/sys CLONE ALL QUIET
  43.  copy ENV:sys $StaSys/profiles/$LOGIN/ENV/sys CLONE ALL QUIET
  44.  copy $StaSys/profiles/root/ENV $StaSys/profiles/guest/ENV CLONE ALL QUIET
  45.  copy $StaSys/profiles/root/ENV $StaSys/profiles/$LOGIN/ENV CLONE ALL QUIET
  46.  
  47.  ;dirs for profiling flags
  48.  makedir $StaSys/profiles/root/profiled
  49.  makedir $StaSys/profiles/guest/profiled
  50.  makedir $StaSys/profiles/$LOGIN/profiled
  51.  
  52. ;a_Init phase
  53.  delete >NIL: $StaSys/a_Init/2_Devices FORCE QUIET ;has been copied there by fault in V4.x
  54.  
  55.  if not exists $StaSys/a_Init/0_Patches
  56.   copy $srcSys/a_Init/0_Patches $StaSys/a_Init CLONE QUIET
  57.  endif
  58.  $rEd movetext s:startup-sequence "PatchControl" "1LiNe" $StaSys/a_Init/0_Patches
  59.  $rEd movetext s:startup-sequence "PatchControl" "1LiNe" $StaSys/a_Init/0_Patches
  60.  $rEd movetext s:startup-sequence "ramlibpatch" "1LiNe" $StaSys/a_Init/0_Patches
  61.  $rEd movetext s:startup-sequence "iprefspatch" "1LiNe" $StaSys/a_Init/0_Patches
  62.  $rEd movetext s:startup-sequence "iprefspatch" "1LiNe" $StaSys/a_Init/0_Patches
  63.  $rEd movetext s:startup-sequence "PatchOpenWB" "1LiNe" $StaSys/a_Init/0_Patches
  64.  $rEd movetext s:startup-sequence "PatchOpenWB" "1LiNe" $StaSys/a_Init/0_Patches
  65.  $rEd movetext s:startup-sequence "betteropenlibs" "1LiNe" $StaSys/a_Init/0_Patches
  66.  
  67.  $rEd movetext s:startup-sequence "c:MCP" "1LiNe" $StaSys/a_Init/8_MCP
  68.  $rEd movetext s:startup-sequence "/MCP" "1LiNe" $StaSys/a_Init/8_MCP
  69.  $rEd movetext s:startup-sequence "MCP" "1LiNe" $StaSys/a_Init/8_MCP
  70.  
  71.  $rEd movetext s:startup-sequence "IF EXISTS DEVS:MONITORS/VGAONLY" "ENDIF" $StaSys/a_Init/_5_MonitorSetupVGA
  72.  $rEd movetext s:startup-sequence "IF EXISTS DEVS:MONITORS/MULTISYNC" "ENDIF" $StaSys/a_Init/_5_MonitorSetupMSync
  73.  $rEd movetext s:startup-sequence "IF EXISTS DEVS:MONITORS/MULTISCAN" "ENDIF" $StaSys/a_Init/_5_MonitorSetupMScan
  74.  $rEd movetext s:startup-sequence "IF EXISTS DEVS:MONITORS" "ENDIF" $StaSys/a_Init/_5_MonitorSetup.bak
  75.  $rEd movetext s:startup-sequence "DEVS:MONITORS" "*sAmE" $StaSys/a_Init/_5_MonitorSetup.bak
  76.  
  77.  ;remove redundant extractions of previous setups (thanks to B.Breuer!)
  78.  $rEd movetext $StaSys/a_Init/3_assigns.user "DEVS:PRINTERS" "1LiNe" T:Trash
  79.  $rEd movetext $StaSys/a_Init/3_assigns.user "DEVS:Keymaps" "1LiNe" T:Trash
  80.  $rEd movetext $StaSys/a_Init/3_assigns.user "SYS:Locale/HELP" "1LiNe" T:Trash
  81.  $rEd movetext $StaSys/a_Init/3_assigns.user "Locale:HELP" "1LiNe" T:Trash
  82.  $rEd movetext $StaSys/a_Init/3_assigns.user "SYS:Locale" "1LiNe" T:Trash
  83.  $rEd movetext $StaSys/a_Init/3_assigns.user "SYS:Classes" "1LiNe" T:Trash
  84.  
  85.  copy "$srcSys/btn-images" $StaSys/btn-Images CLONE ALL QUIET
  86.  
  87. ;b_GUI phase
  88.  copy "$srcSys/b_GUI/6_MCP" $StaSys/b_GUI CLONE QUIET
  89.  
  90.  if exists s:Shell-Startup.bakM
  91.   echo >>$StaSys/b_GUI/7_ShellConfig "*n;BEGIN Shell-Startup.bakM added. Please remove if obsolete!"
  92.   type >>$StaSys/b_GUI/7_ShellConfig s:Shell-Startup.bakM
  93.   echo >>$StaSys/b_GUI/7_ShellConfig "*n;END Shell-Startup.bakM added. Please remove if obsolete!*n"
  94.   delete >NIL: s:Shell-Startup.bakM FORCE QUIET
  95.  endif
  96.  
  97. ;c_Prepare phase
  98.  delete >NIL: $StaSys/c_Prepare/#?.profile FORCE QUIET
  99.  delete >NIL: $StaSys/c_Prepare/#?KCON#? FORCE QUIET
  100.  delete >NIL: $StaSys/c_Prepare/XPK#? FORCE QUIET
  101.  delete >NIL: $StaSys/c_Prepare/ToolManager FORCE QUIET
  102.  delete >NIL: $StaSys/c_Prepare/#?ToolManager_#? FORCE QUIET
  103.  
  104. ;d_System phase
  105.  copy "$srcSys/d_System/2_Devices" $StaSys/d_System CLONE QUIET
  106.  copy s:Startup-Sequence.before_ModAS T:sseq.tmp
  107.  $rEd movetext T:sseq.tmp "BindDrivers" "DEVS:DOSDRIVERS" $StaSys/d_System/2_Devices
  108.  $rEd movetext T:sseq.tmp "DEVS:DOSDRIVERS" "*sAmE" $StaSys/d_System/2_Devices
  109.  
  110.  ;in any way remove that here, too:
  111.  $rEd movetext s:startup-sequence "BindDrivers" "DEVS:DOSDRIVERS" T:Trash
  112.  $rEd movetext s:startup-sequence "DEVS:DOSDRIVERS" "*sAmE" T:Trash
  113.  
  114.  ;and update this
  115.  copy "$srcSys/d_System/3_User#?" $StaSys/d_System CLONE QUIET
  116.  delete >NIL: $StaSys/d_System/0_Modas_deamon FORCE QUIET  ;moved to e_WB/6_ModAS_deamon
  117.  delete >NIL: $StaSys/d_system/#?MenuShortCuts FORCE QUIET ;moved to e_WB/2_MenuShortCuts
  118.  
  119. ;e_WB phase
  120.  copy "$srcSys/e_WB/1_Workbench" $StaSys/e_WB CLONE QUIET
  121.  delete >NIL: $StaSys/e_WB/3_Workbench FORCE QUIET
  122.  $rEd movetext s:startup-sequence "LOADWB" "1LiNe" $StaSys/e_WB/1_Workbench
  123.  $rEd movetext s:startup-sequence "LOADWB" "1LiNe" $StaSys/e_WB/1_Workbench
  124.  $rEd movetext s:startup-sequence "ScalosWB" "1LiNe" $StaSys/e_WB/1_Workbench
  125.  $rEd movetext s:startup-sequence "ScalosWB" "1LiNe" $StaSys/e_WB/1_Workbench
  126.  $rEd movetext s:startup-sequence "DOpus" "1LiNe" $StaSys/e_WB/1_Workbench
  127.  $rEd movetext s:startup-sequence "DOpus" "1LiNe" $StaSys/e_WB/1_Workbench
  128.  $rEd movetext s:startup-sequence "DirectoryOpus" "1LiNe" $StaSys/e_WB/1_Workbench
  129.  $rEd movetext s:startup-sequence "DirectoryOpus" "1LiNe" $StaSys/e_WB/1_Workbench
  130.  
  131.  delete >NIL: $StaSys/e_WB/#?_ModAS_deamon FORCE QUIET
  132.  delete >NIL: $StaSys/e_WB/2_User_Icons FORCE QUIET
  133.  delete >NIL: $StaSys/e_WB/2_User_WBstartup FORCE QUIET
  134.  copy "$srcSys/e_WB/4_StartShell" $StaSys/e_WB CLONE QUIET
  135.  copy "$srcSys/e_WB/8_CleanUp" $StaSys/e_WB CLONE QUIET
  136.  $rEd movetext s:User-Startup ";BEGIN _ModAS_deamon" ";END _ModAS_deamon" T:Trash
  137.  
  138. ;remove old stuff
  139.  delete >NIL: SYS:WBstartup/MultiNotify#? FORCE QUIET
  140.  delete >NIL: $StaSys/MultiNotify#? FORCE QUIET
  141.  delete >NIL: $StaSys/bin/MultiNotify#? FORCE QUIET
  142.  
  143. ;ShutDown
  144.  delete >NIL: sys:ShutDown/QuitSys.ilbm FORCE QUIET
  145.  delete >NIL: SYS:ShutDown/System/#? QUIET
  146.  delete >NIL: SYS:ShutDown/SaveProfile#? QUIET
  147.  copy iGuide_root:ModAS_System/ShutDown SYS:ShutDown CLONE ALL QUIET
  148.  
  149. ;replace vars
  150.  if not <userver> ge 4.6.3
  151.   rename ENV:Flags/StartVerbose ENV:Flags/StartVerb
  152.   rx Install_C:ReplaceFileContents.rexx "if exists ENV:Flags/StartVerbose" "IF ${Flags/StartVerbose} EQ 1" $StaSys/ AUTO
  153.   $renstr S:Startup-Sequence "if exists ENV:Flags/StartVerbose" "IF ${Flags/StartVerbose} EQ 1" I
  154.   rename ENV:Flags/StartVerb ENV:Flags/StartVerbose
  155.  
  156.   rx Install_C:ReplaceFileContents.rexx "Profile:Flags" "Profile:ENV/Flags" $StaSys/ AUTO
  157.  endif
  158.  
  159. ;new activated-Flag
  160.  delete >NIL: $StaSys/ModAS_activated FORCE QUIET
  161.  delete >NIL: ENVARC:ModAS_activated FORCE QUIET
  162.  delete >NIL: ENV:ModAS_activated FORCE QUIET
  163.  date >$StaSys/ModAS_activated
  164.  protect $StaSys/ModAS_activated -wd
  165.  
  166.  delete >NIL: T:Trash FORCE QUIET
  167.  
  168.  ;new startup-sequence module
  169.  $red replacetext iGuide:init/ModAS.sseq ";BEGIN ModAS" ";END ModAS" s:startup-sequence
  170. endif
  171.