home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / boot / astart / install.script < prev    next >
Encoding:
Text File  |  1998-02-27  |  7.7 KB  |  299 lines
  1. ; $VER: Install script for AStart 4.1 (30.1.98)
  2. ; LANGUAGES
  3.  
  4. (procedure polish (
  5.     (set language0 "Polski")
  6.     (set MSG_WELCOME "\nWitaj w AStart\n\nostatecznym programie do\n\nbootowania \"alternatywnego\"\n\nAStart © 1997-8 Wojciech Kocjan\n\nAStart jest mailware\n\n(nowy uûytkownik/czka)")
  7.     (set MSG_WELCOMEU "\nWitaj w AStart\n\nostatecznym programie do\n\nbootowania \"alternatywnego\"\n\nAStart © 1997-8 Wojciech Kocjan\n\nAStart jest mailware\n\n(upgrade ze starszej wersji)")
  8.     (set MSG_ASKPREFDIR "Podaj ôcieûkë docelowâ dla programu konfiguracji")
  9.     (set MSG_COPYCMD "Kopiowanie komendy uruchamiajâcej AStart")
  10.     (set MSG_COPYPREF "Kopiowanie programu ustawieï AStart")
  11.     (set MSG_COPYASTARTUP "Kopiowanie skryptu alternate-startup")
  12.     (set MSG_COPYLOCALE "Kopiowanie plików LOCALE")
  13.     (set MSG_ASK_YES "Tak")
  14.     (set MSG_ASK_NO "Nie")
  15.     (set MSG_ASKMODIFY "Czy mam modyfikowaê plik s:startup-sequence?\n(jest to konieczne, jeûeli nie zainstalowaîeô(aô)\njeszcze poprzednich wersji AStart,\nJeûeli tak, to nie jest to zalecane)")
  16.     (set MSG_ASKMODIFY_YES "Modyfikuj")
  17.     (set MSG_ASKMODIFY_NO "Nie modyfikuj")
  18.     (set MSG_ASKBACKUP "Czy mam zrobiê kopië oryginalnego pliku s:startup-sequence?")
  19.     (set MSG_ASKBACKUP_YES "Zrób kopië")
  20.     (set MSG_ASKBACKUP_NO "Nie rób kopii")
  21.     (set MSG_MODIFYSTARTUP0 "Modyfikowanie pliku startup-sequence")
  22.     (set MSG_COPYSTARTUP "Kopiowanie zmodyfikowanego pliku startup-sequence")
  23.     (set MSG_RUNPREF "Czy mam uruchomiê program ustawieï? (wymaga MUI 3.1)\n\nCzynnoôê ta jest konieczna przy KAÛDEJ instalacji!")
  24.     (set MSG_ASK_COPYDOC "Czy mam skopiowaê plik pomocy?")
  25.     (set MSG_COPYDOC "Kopiujë plik pomocy...")
  26.     (set MSG_ASKDOCSDIR "Gdzie mam umieôciê plik pomocy?")
  27.     (set MSG_COPYENVARC "Kopiujë podstawowe ustawienia...")
  28.     (set MSG_INSTALLGFI "Instalujë GoForIt...")
  29.     (set MSG_COPYLIBRARY "Kopiujë bibliotekë astart.library")
  30.     (set MSG_DELETEWBSP "Znaleziono program WBStartup+\nCzy mam go usunâê?\n(GoForIt sîuûy do tego samego)")
  31.     (set MSG_DELETINGWBSP "Usuwam program WBStartup+")
  32. ))
  33.  
  34. (procedure english (
  35.     (set language0 "English")
  36.     (set MSG_WELCOME "\nWelcome to AStart\n\nthe ultimate alternate bootup maker\n\nAStart © 1997-8 Wojciech Kocjan\n\nAStart is mailware\n\n(you are a new AStart user)")
  37.     (set MSG_WELCOMEU "\nWelcome to AStart\n\nthe ultimate alternate bootup maker\n\nAStart © 1997-8 Wojciech Kocjan\n\nAStart is mailware\n\n(you are upgrading from older versions of AStart)")
  38.     (set MSG_ASKPREFDIR "Enter path for preferences")
  39.     (set MSG_COPYCMD "Copying AStart running command")
  40.     (set MSG_COPYPREF "Copying AStart preferences file")
  41.     (set MSG_COPYASTARTUP "Copying alternate-startup script")
  42.     (set MSG_COPYLOCALE "Copying LOCALE files")
  43.     (set MSG_ASK_YES "Yes")
  44.     (set MSG_ASK_NO "No")
  45.     (set MSG_ASKMODIFY "Should I modify s:startup-sequence?\n(it's neccessary if you haven't installed\nAStart yet, if you already have, then it's not reccommended)")
  46.     (set MSG_ASKMODIFY_YES "Modify")
  47.     (set MSG_ASKMODIFY_NO "Don't modify")
  48.     (set MSG_ASKBACKUP "Should I backup the original s:startup-sequence?")
  49.     (set MSG_ASKBACKUP_YES "Backup")
  50.     (set MSG_ASKBACKUP_NO "Don't backup")
  51.     (set MSG_MODIFYSTARTUP0 "Modyfying s:startup-sequence")
  52.     (set MSG_COPYSTARTUP "Copying modified startup-sequence")
  53.     (set MSG_RUNPREF "Shall I run the preferences program? (requires MUI 3.1)\n\nThis needs to be done upon EVERY installation")
  54.     (set MSG_ASK_COPYDOC "Shall I copy the docs?")
  55.     (set MSG_COPYDOC "Copying the docs...")
  56.     (set MSG_ASKDOCSDIR "Where shall I copy the docs?")
  57.     (set MSG_COPYENVARC "Copying default settings...")
  58.     (set MSG_INSTALLGFI "Installing GoForIt...")
  59.     (set MSG_COPYLIBRARY "Copying astart.library")
  60.     (set MSG_DELETEWBSP "WBStartup+\nCzy mam go usunâê?\n(GoForIt replaces it)")
  61.     (set MSG_DELETINGWBSP "Deleting WBStartup+")
  62. ))
  63.  
  64. (set language0 "")
  65.  
  66. (if (= @language "english")  (english))
  67. (if (= @language "polski")  (polish))
  68. (if (= language0 "") (english))
  69.  
  70. (procedure modifystartup (
  71.     (textfile (dest "T:startup-sequence")
  72.     (append ("; This part was added by AStart\n; AStart © 1997 Wojciech Kocjan\n\nC:AStart S:alternate-startup\nIF WARN\n  EndCLI >NIL:\nEndIF\n\n" firstline)) (include "s:startup-sequence"))
  73.     (copyfiles
  74.         (prompt MSG_COPYSTARTUP)
  75.         (help @copyfiles-help)
  76.         (source "T:startup-sequence")
  77.         (dest "S:")
  78.         (files)
  79.         (confirm)
  80.     )    
  81. ))
  82.  
  83. (welcome)
  84.  
  85. (run "setenv ASTART_WASINSTALLED `c/MatchLine s:startup-sequence 1 \"(;?This part?was?added?by?AStart|#?AStart#?alternate-startup)\"`" (safe))
  86. (set upgrading (getenv "ASTART_WASINSTALLED"))
  87. (delete "ENV:ASTART_WASINSTALLED" (prompt "") (help "") (optional force) (safe))
  88.  
  89. (if (= upgrading 0)
  90.     (message MSG_WELCOME)
  91.     (message MSG_WELCOMEU)
  92. )
  93.  
  94. (complete 0)
  95.  
  96. (set dest_dir "C:")
  97. (set @default-dest "SYS:")
  98.  
  99. (set pref_dest_dir
  100.    (askdir (prompt MSG_ASKPREFDIR)
  101.            (help @askdir-help)
  102.            (default "SYS:Prefs"))
  103. )
  104.  
  105. (if (= upgrading 0)
  106.     (
  107.         (set backup
  108.             (askbool 
  109.                 (prompt MSG_ASKBACKUP)
  110.                 (help @askbool-help)
  111.                 (default 1)
  112.                 (choices MSG_ASKBACKUP_YES MSG_ASKBACKUP_NO))
  113.         )
  114.         
  115.         (set modify
  116.             (askbool 
  117.                 (prompt MSG_ASKMODIFY)
  118.                 (help @askbool-help)
  119.                 (default 1)
  120.                 (choices MSG_ASKMODIFY_YES MSG_ASKMODIFY_NO))
  121.         )
  122.     )
  123.     (
  124.         (set backup 0)
  125.         (set modify 0)
  126.     )
  127. )
  128.         
  129. (complete 10)
  130.  
  131. (set copydocs
  132.     (askbool
  133.         (prompt MSG_ASK_COPYDOC)
  134.         (help @askbool-help)
  135.         (default 1)
  136.         (choices MSG_ASK_YES MSG_ASK_NO))
  137. )
  138.  
  139. (if (= copydocs 1)
  140.     (set docs_dest_dir
  141.        (askdir (prompt MSG_ASKDOCSDIR)
  142.                (help @askdir-help)
  143.                (default "HELP:"))
  144.     )
  145. )
  146.  
  147. (complete 20)
  148.  
  149. (copyfiles
  150.     (prompt MSG_COPYCMD)
  151.     (help @copyfiles-help)
  152.     (source "C")
  153.     (dest dest_dir)
  154.     (choices "AStart" "ConvertX" "IsAlt" "asSetMode")
  155.     (confirm)
  156.     (files)
  157. )
  158.  
  159. (complete 30)
  160.  
  161. (copylib
  162.     (prompt MSG_COPYLIBRARY)
  163.     (help @copylib-help)
  164.     (source "libs/astart.library")
  165.     (dest "LIBS:")
  166.     (confirm)
  167. )
  168.  
  169. (copyfiles
  170.     (prompt MSG_COPYASTARTUP)
  171.     (help @copyfiles-help)
  172.     (source "S/alternate-startup")
  173.     (dest "S:")
  174.     (confirm)
  175.     (files)
  176. )
  177.  
  178. (makedir "S:AStart"
  179.     (help @makedir-help)
  180.     )
  181.  
  182. (copyfiles
  183.     (prompt MSG_COPYASTARTUP)
  184.     (help @copyfiles-help)
  185.     (source "S/AStart/alternate-startup")
  186.     (dest "S:AStart")
  187.     (confirm)
  188.     (files)
  189. )
  190.  
  191. (copyfiles
  192.     (prompt MSG_COPYLOCALE)
  193.     (help @copyfiles-help)
  194.     (source "Locale")
  195.     (dest "LOCALE:Catalogs")
  196.     (choices "deutsch" "español" "hrvatski" "italiano" "nederlands" "polski" "russian" "srpski")
  197.     (confirm)
  198.     )
  199.  
  200. (complete 40)
  201.  
  202. (if (= copydocs 1)
  203.     (
  204.     (copyfiles
  205.         (prompt MSG_COPYDOC)
  206.         (help @copyfiles-help)
  207.         (source "astart.guide")
  208.         (dest docs_dest_dir)
  209.         (infos)
  210.         )
  211.     )
  212. )
  213.  
  214. (complete 50)
  215.  
  216. (if backup
  217.     (copyfiles
  218.         (prompt MSG_COPYSTARTUP)
  219.         (help @copyfiles-help)
  220.         (source "S:startup-sequence")
  221.         (dest "Sys:Storage")
  222.         (newname "startup-sequence.bak")
  223.     )
  224. )
  225.  
  226. (complete 60)
  227.  
  228. (if modify 
  229.     (modifystartup)
  230. )
  231.  
  232. (complete 70)
  233.  
  234. (copyfiles
  235.     (prompt MSG_COPYPREF)
  236.     (help @copyfiles-help)
  237.     (source "Prefs")
  238.     (dest pref_dest_dir)
  239.     (choices "AStart")
  240.     (confirm)
  241.     (infos)
  242.     (files)
  243. )
  244.  
  245. (complete 80)
  246.  
  247. (makedir "SYS:WBStartup/WBStartup (Enabled)"
  248.     (help @makedir-help)
  249.     )
  250.  
  251. (makedir "SYS:WBStartup/WBStartup (Disabled)"
  252.     (help @makedir-help)
  253.     )
  254.  
  255. (makedir "SYS:WBStartup/WBStartup (Dontrun)"
  256.     (help @makedir-help)
  257.     )
  258.  
  259. (if (= (exists "SYS:WBStartup/WBStartup+") 1)
  260.     (if
  261.         (askbool
  262.             (prompt MSG_DELETEWBSP)
  263.             (help @askbool-help)
  264.             (default 1)
  265.             (choices MSG_ASK_YES MSG_ASK_NO))
  266.         (run "Delete <>NIL: SYS:WBStartup/WBStartup+(|.info) FORCE")
  267.     )
  268. )
  269.  
  270. (run "List >T:ASTART_RENAME_TEMP_FILE SYS:WBStartup/~(GoForIt|.additionalfiles|#?.info) FILES LFORMAT=\"Rename QUIET *\"%s%s(|.info)*\" *\"SYS:WBStartup/WBStartup (Enabled)*\"\"")
  271.  
  272. (complete 90)
  273.  
  274. (run "Execute <>NIL: T:ASTART_RENAME_TEMP_FILE")
  275.  
  276. (copyfiles
  277.     (prompt MSG_INSTALLGFI)
  278.     (help @copyfiles-help)
  279.     (source "WBStartup")
  280.     (dest "SYS:WBStartup")
  281.     (confirm)
  282.     (all)
  283. )
  284.  
  285. (complete 95)
  286.  
  287. (if
  288.     (askbool 
  289.         (prompt MSG_RUNPREF)
  290.         (help @askbool-help)
  291.         (default 1)
  292.         (choices MSG_ASK_YES MSG_ASK_NO))
  293.     (run "Prefs/AStart FORCESAVE")
  294. )
  295.  
  296. (complete 100)
  297.  
  298. (exit)
  299.