home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / misc / bootute / install < prev    next >
Encoding:
Text File  |  1995-09-26  |  3.2 KB  |  183 lines
  1. ; This is an Installer script that installs BootUte 2.62.
  2. ;
  3. ; Script written by Paul Toyne.
  4. ;
  5. ; ©1995 TLS Software.
  6.  
  7. (set @default-dest "")
  8. (set @app-name "BootUte")
  9. (complete 0)
  10.  
  11. (if (< (/ (getversion) 65536) 37)
  12. (
  13.     (exit "Sorry BootUte only works on Kickstart 2.0 or above\n"
  14.           "I suggest you upgrade immediately")
  15. ))
  16.  
  17. (set update
  18.     (askbool
  19.         (prompt "Do you wish to update an older version of BootUte?")
  20.         (help @askbool-help)
  21.     )
  22. )
  23.  
  24. (complete 10)
  25.  
  26. (if (= update 1)
  27. (
  28.     (set bu_name
  29.         (askfile
  30.             (prompt "Please select your old BootUte executable")
  31.             (help @askfile-help)
  32.             (default "")
  33.         )
  34.     )
  35.  
  36.     (complete 30)
  37.  
  38.     (working "Deleting your previous version of BootUte")
  39.  
  40.     (if (exists bu_name)
  41.     (
  42.         (delete bu_name)
  43.         (delete (cat bu_name ".info"))
  44.     ))
  45.  
  46.     (if (exists "ENV:BootUte" (noreq))
  47.     (
  48.         (delete "ENV:BootUte")
  49.     ))
  50.  
  51.     (if (exists "ENVARC:BootUte" (noreq))
  52.     (
  53.         (delete "ENVARC:BootUte")
  54.     ))
  55.  
  56. ))
  57.  
  58. (complete 50)
  59.  
  60. (if (= update 1)
  61. (
  62.     (set tls_dir (pathonly bu_name))
  63. )
  64. (
  65.     (set tls_dir
  66.         (askdir
  67.             (prompt "Please select a location to install the BootUte directory")
  68.             (help @askfile-help)
  69.             (default "Work:")
  70.         )
  71.     )
  72.  
  73.     (set tls_dir (tackon tls_dir "BootUte"))
  74. ))
  75.  
  76. (if (NOT (exists tls_dir))
  77. (
  78.     (makedir tls_dir
  79.         (infos)
  80.     )
  81. ))
  82.  
  83. (if (NOT (exists (tackon tls_dir "Docs")))
  84. (
  85.     (makedir (tackon tls_dir "Docs")
  86.     )
  87. ))
  88.  
  89. (complete 60)
  90.  
  91. (copyfiles
  92.     (prompt "Copying BootUte's files")
  93.     (source "")
  94.     (dest tls_dir)
  95.     (choices "BootUte_2"
  96.              "README")
  97. )
  98.  
  99. (copyfiles
  100.     (prompt "Copying BootUte's files")
  101.     (source "Docs/")
  102.     (dest (tackon tls_dir "Docs"))
  103.     (choices    "BootUte_2.guide"
  104.                 "BootUte_2.doc"
  105.                 "Register_BU.doc")
  106. )
  107.  
  108. (complete 90)
  109.  
  110. (set magicwb
  111.     (askbool
  112.         (prompt "Do you want to install the MagicWB icons ?")
  113.         (help @askbool-help)
  114.     )
  115. )
  116.  
  117. (if (= magicwb 0)
  118. (
  119.     (copyfiles
  120.         (prompt "Copying normal icons")
  121.         (source "")
  122.         (dest tls_dir)
  123.         (choices    "BootUte_2.info"
  124.                     "README.info"
  125.                     "Docs.info")
  126.     )
  127.  
  128.     (copyfiles
  129.         (prompt "Copying normal icons")
  130.         (source "Docs/")
  131.         (dest (tackon tls_dir "Docs"))
  132.         (choices    "BootUte_2.guide.info"
  133.                     "BootUte_2.doc.info"
  134.                     "Register_BU.doc.info")
  135.     )
  136. )
  137. (
  138.     (copyfiles
  139.         (prompt "Copying MagicWB icons")
  140.         (source "MagicWB/")
  141.         (dest tls_dir)
  142.         (choices    "BootUte_2.info"
  143.                     "README.info"
  144.                     "Docs.info")
  145.     )
  146.  
  147.     (copyfiles
  148.         (prompt "Copying MagicWB icons")
  149.         (source "MagicWB/Docs/")
  150.         (dest (tackon tls_dir "Docs"))
  151.         (choices    "BootUte_2.guide.info"
  152.                     "BootUte_2.doc.info"
  153.                     "Register_BU.doc.info")
  154.     )
  155. )
  156. )
  157.  
  158. (complete 95)
  159.  
  160. (set @default-dest tls_dir)
  161.  
  162. (if (NOT (exists "ENV:TLS"))
  163. (
  164.     (makedir "ENV:TLS")
  165. ))
  166.  
  167. (if (NOT (exists "ENV:TLS/BootUte"))
  168. (
  169.     (makedir "ENV:TLS/BootUte")
  170. ))
  171.  
  172. (if (NOT (exists "ENVARC:TLS"))
  173. (
  174.     (makedir "ENVARC:TLS")
  175. ))
  176.  
  177. (if (NOT (exists "ENVARC:TLS/BootUte"))
  178. (
  179.     (makedir "ENV:TLS/BootUte")
  180. ))
  181.  
  182. (complete 100)
  183.