home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 17 / amigaformatcd17.iso / -look_here_1st!- / af_on_the_web / voyager-288 / install_voyager < prev    next >
Text File  |  1997-06-07  |  24KB  |  573 lines
  1. ;******************************************************************************
  2. ;         __  __                                     
  3. ;        / / / /                                    
  4. ;       / / / /______ __  __ ______  ______ ______ _____
  5. ;      / / / // __  / \ \/ // __  / / __  // ____// .__/
  6. ;     /  \/ // /_/ /   \  // __  / / /_/ // __/_ / /
  7. ;     \____//_____/    / //_/ /_/ _\__  //_____//_/
  8. ;                     /_/        /_____/   
  9. ;
  10. ; $VER: Voyager_Installer 2.0j (April-29-1997) 
  11. ; Installer by Robert C. Reiswig ©1995,1996,1997
  12. ; Voyager by Oliver Wagner ©1995,1996,1997
  13. ;
  14. ; If you wish to use any part of this installer you must ask. May not be 
  15. ; integrated/placed into any other package. Changes, suggestions or problems:
  16. ; voyager@vgr.com or vgr@best.com
  17. ;******************************************************************************
  18. (set Vkey 1) ; 0=NoKey, 1=LookForKey
  19. (set #Voyager_Archive "v_ng.lha")
  20. (set #Compress "lhex")
  21.  
  22. ;*** System Stuff ***
  23. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  24. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  25. (set osver (/ (getversion "LIBS:version.library") 65536))
  26. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  27. (set fastmem (- totmem graphmem))
  28.  
  29. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  30. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  31. (if (= osver 41) (set workbench "3.2"))
  32.  
  33. (set cpu (database "cpu"))
  34. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  35. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  36. (if (= cpu 68040) (set #cpu 4)) 
  37. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  38.  
  39. (set vernum1 (getversion "V")) (set ver1 (/ vernum1 65536))
  40. ;(set vernum1 (getversion "mui/StringNumeric.mcc")) (set ver1 (/ vernum1 65536)) 
  41.  
  42. (set rev1 (- vernum1 (* ver1 65536) ) ) (set Voyagerver (cat ver1 "." rev1))
  43.  
  44. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  45. (set lan 0)
  46.  
  47. (if (= "english"    lanfound) (set lan 0))  (if (= "deutsch"    lanfound) (set lan 1))
  48. (set #English    "English")  (set #Deutsch    "Deutsch")
  49.  
  50. (set mfound 0) (set newicon1 1) 
  51. (set keeper 1) (set firsttime 0)
  52.  
  53. ;********************************************************************
  54. ; English Strings
  55. ;********************************************************************
  56. (set #about (cat "\n\n\n\nWelcome to Voyager-NG " Voyagerver "\n\n\nCopyright © 1995-1997 by\n\nOliver Wagner\n") )
  57. (set #installup " Install or Update Voyager-NG")
  58. (set #clearcache " Clear Cache Directory")
  59. (set #task "\nWhat would you like to do?\n")
  60. (set #whereVoyager "Where do you wish to install Voyager-NG. The directory 'Voyager' will be created if it is not there. If a copy of Voyager-NG is found it will be backed up.")
  61. (set muiver "No Version Installed")
  62. (set #newermui "\nVoyager-NG needs version 3.6 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\nYou can find mui36usr.lha on Aminet in util/libs\n\nIt looks like you have: \n\n")
  63. (set #nomuiarc "\nThe installer could not find the MUI dir in the archive. Because of this the MUI Classes used by VoyagerNG were not installed.\n\n If you are Updating VoyagerNG then this is not a problem. If it is your first time installing VoyagerNG you will need to get an archive with these files.")
  64. (set #nompc "\nThe .MCC files for VoyagerNG can not be installed to 'mui:libs/mui'")
  65. (set #need-os "\n\nVoyager-NG needs version 3.0 or higher of the Amiga OS installed to work correctly.\n\n It looks like you have: \n\n")
  66. (set #000used "\n\nThe 68000 version will be installed.") 
  67. (set #nompc "\nThe .MPC files for Voyager-NG can not be installed to 'mui:libs/mui'")
  68. (set #noreg1 "\nThe installer could not find 'S:Voyager.Key' or '")
  69. (set #noreg2 "' on your system. It also does not seem to be in the archive you are installing Voyager-NG from. You may need to get the archive again.\n\nThe installer will now run the Registration Utility, 'Register-Voyager'.")   
  70. (set #filethere1 "\n\nThe installer has found Voyager-NG version ")
  71. (set #filethere2 " at ")
  72. (set #filethere3 "\n\nThe file will be renamed to ")
  73. (set #filethere4 " and it will then be moved to ")
  74. (set #backuptoXXX "Back-UP to file named 'Voyager-NG.")
  75. (set #copyover "Copy Over Old Version")
  76. (set #oktodelete1 "\nIs it ok to delete the older Voyager-NG binary so that the Voyager-NG Directory can be made?\n")
  77. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ Voyager-NG binary so that the Voyager-NG Directory can be made?\n")
  78. (set #Voyagerfound "\nThe Installer has found a copy of Voyager-NG already installed. What do you want to do?\n")
  79. (set #no030found "\n\nThe 68030+FPU Version of Voyager-NG, V030, was not found in this archive this is why the 68000 version was installed.")
  80. (set #newicon "\nDo you wish to copy over The Voyager-NG Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  81. (set #nonewicon  "No  - ToolTypes already set.")
  82. (set #yesnewicon "Yes - Copy over Icon.")
  83. (set #yesnewicon "Yes - Copy over Icon.")
  84. (set #whatcat "\nSelect the Voyager-NG Language catalog you wish to install.\n")
  85. (set #wherecat "\nWhere do you wish to install the Voyager-NG Language Catalog? Default is ")
  86. (set #catnofind "Can not find this catalog in this Voyager-NG archive. You may need to get a newer archive.")
  87. (set #whattools "\nWhat Tools would you like to install? They will be placed in: ")
  88. (set #updatingmuic "\nUpdating the MUI Classes if needed.\n\n(#?.mcc & #?.mcp)")
  89. (set #nomuiarc "\nThe installer could not find the MUI dir in the archive. Because of this the MUI Classes used by Voyager-NG were not installed.\n\n If you are Updating Voyager-NG then this is not a problem. If it is your first time installing Voyager-NG you will need to get an archive with these files.")
  90. (set #whatdocs "\nWhat Voyager-NG documentation would you like to install?\n")
  91. (set #wheredocs "Where would you like the Voyager-NG documentation you selected to be installed?")
  92. (set #byebye (cat "\nVoyager-NG Install Complete!\n\n" ))
  93.  
  94. (set #whereUnpack "Where would you like to Uncompress the VoyagerNG Archive to, so that you may install it from there?")
  95. (set #uncompressingbin (cat "\n\nUncompressing the " #Voyager_Archive " archive.\n\nPlease wait."))
  96. (set #errorbin (cat "\n\nThe " #Voyager_Archive " is missing or has an error in it. You might try to reinstall.  If that does not work you will need to get a new VoyagerNG disk/archive."))
  97. (set #oktoinstall "\nThe VoyagerNG archive has been un-packed. You can now run the installer to complete the install in:\n\n")
  98.  
  99. (set #askcpu "\nWhat version of Voyager-NG would you like to install?\n")
  100. (set #noregdir "\nThe Register-Voyager directory was not found. This means that the archive has been altered or is bad. Please get another copy of the Voyager-NG Archive.\n\nOR\n\nThe Keyfile is missing. Please contact your REG site.")
  101. (set #updatesetpatch "\nThe installer looked for 'c:setpatch' and did not find it or you have a version lower then 40.16. Voyager-NG needs version 40.16 to work correctly. You wany want to upgrade soon. (NOTE: if you keep 'setpatch' in a different place than 'c:' and its 40.16 or higher then this message is void.)")
  102. (set #updateinstaller "\nJust to let you know ESCOM AG has released a new version of the installer program.\n\n\nVersion 43.3 can be found on Aminet in:\n\n/util/misc/Installer-43_3.lha\n\n\nYou might want to upgrade soon, if you can.")
  103. ;can you add provision for Java/Applets and Java/Classes dirs?
  104. (set #nossl "\nNote that the Voyager SSL module must not be used in the USA due to patent law restrictions. Are you living in the USA?\n")
  105. (set #okssl "\n\n\nUS citizens can legaly use the MiamiSSL library which ships with Miami 2.1.\n\nVoyagerNG will use this SSL library if it was installed with Miami 2.1.")
  106. (set #yesc "Yes - In USA")
  107. (set #noc "No - Other Country")
  108.  
  109. ;********************************************************************
  110. ; German Strings
  111. ;********************************************************************
  112. (if (= lan 1) (set OlliShareSomePizza TRUE) )
  113.  
  114.  
  115. ;********************************************************************
  116. ; Check for LHA voyager.. if there unpack then install. Oh the floppy
  117. ;********************************************************************
  118. (if (= 1 (exists #Voyager_Archive) )
  119.  (
  120.    (welcome)
  121.    (set VoyagerUdir  (askdir (prompt #whereUnpack)
  122.                         (help   #whereUnpack)
  123.                          (default "Ram:")
  124.                     )  
  125.    )
  126.  
  127.    (working (cat #uncompressingbin ""))
  128.    (set ToDo  ("%s \"-qfw=%s\" x %s %s" #Compress VoyagerUdir #Voyager_Archive)) 
  129.    (set error (run ToDo))
  130.    (if (> error 0) (message #errorbin))
  131.   
  132.    (if (exists "Voyager.KEY")
  133.     (copyfiles (source "Voyager.key") (dest (tackon VoyagerUdir "V-NG-Prelease2")) (optional "nofail") ) 
  134.    )
  135.  
  136.    (set @default-dest VoyagerUdir)
  137.    ;(run (cat "run Installer \"" (tackon VoyagerUdir "V-NG-Prelease2/Install_Voyager") "\" APPNAME \"VoyagerNG-Installer\" MINUSER AVERAGE DEFUSER AVERAGE LOGFILE RAM:VoyagerNG-Install.LOG") ) 
  138.    (exit (cat #oktoinstall (tackon VoyagerUdir "V-NG-Prelease2/Install_Voyager")) (quiet))
  139.  )
  140.  
  141. )
  142.  
  143. ;********************************************************************
  144. ; Hello
  145. ;********************************************************************
  146. (message #about)
  147. (welcome) 
  148.  
  149. ;********************************************************************
  150. ; Checks for MUI & OS versions
  151. ;********************************************************************
  152. (set ver 0)
  153. (if (<> (getassign "mui") "")
  154. (
  155.   (if (exists "mui:mui") 
  156.    (
  157.     (set vernum (getversion "mui:mui") )
  158.     (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  159.  
  160.     (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  161.     (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  162.     (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  163.     (if (= ver 13) (set muiver "3.2") )  (if (= ver 14) (set muiver "3.3") )
  164.     (if (= ver 15) (set muiver "3.4") )  (if (= ver 16) (set muiver "3.5") )
  165.     (if (= ver 17) (set muiver "3.6") )  (if (= ver 18) (set muiver "3.7") )
  166.     (if (= ver 19) (set muiver "3.8") )  (if (= ver 20) (set muiver "3.9") )
  167.    )
  168.   )
  169. )
  170. )
  171.  
  172. (if (< ver 17)   ( (message (cat #newermui muiver))   (set cpuPick 0) ))
  173. (if (< osver 39) ( (message (cat #need-os workbench)) (set cpuPick 0) ))
  174.  
  175. ;********************************************************************
  176. ; check for Register-Voyager-NG
  177. ;********************************************************************
  178. (if (OR (exists "Register-Voyager") (exists "Voyager.KEY"))
  179.  (set tempz 0) (abort #noregdir)
  180. )
  181. ;********************************************************************
  182. ; Ask where to put Voyager-NG & Make dir if needed
  183. ;********************************************************************
  184. (set Package (getassign "AmiTCP"))
  185. (if (= Package "") (set Package (getassign "Inet")) )
  186.  
  187. (set Voyagerdir  (askdir (prompt #whereVoyager)
  188.                 (help   #whereVoyager)
  189.                      (default Package)
  190.                )  
  191. )
  192.  
  193. (set where Voyagerdir)
  194.  
  195. ;********************************************************************
  196. ; Check for Key file
  197. ;********************************************************************
  198. ;(if (AND (= Vkey 1) (OR (= (exists "Voyager.Key") 0) (OR (= (exists "S:Voyager.Key") 0)  (= (exists (tackon where "Voyager.Key")) 0) ) ) )
  199. ; (
  200. ;  (message (cat #noreg1 (tackon where "Voyager/Voyager.Key") #noreg2))
  201. ;  (run (cat "run Register-Voyager") )
  202. ;  ;;** (exit (quiet))
  203. ; )
  204. ;) 
  205.  
  206. ;********************************************************************
  207. ; Check to see if Voyager-NG is already there, if so ask to backup
  208. ;********************************************************************
  209. (if (= 1 (exists (tackon where "V") ) ) 
  210.   (
  211.     (set vernum1 (getversion (tackon where "V") ))
  212.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  213.     (set Voyager_old (cat ver1 "." rev1))
  214.  
  215.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  216.                   (cat "V" Voyager_old) #filethere4 (tackon Voyagerdir "V") )
  217.     )
  218.  
  219.     (copyfiles (source (tackon where "V"))
  220.                (dest where) 
  221.                (infos)
  222.                (newname (cat "V." Voyager_old))
  223.     )
  224.     
  225.     (delete (tackon Voyagerdir "V") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  226.  
  227.     (if (< (exists (tackon Voyagerdir "V")) 2) (makedir (tackon Voyagerdir "V") (infos)) )    
  228.  
  229.     (copyfiles (source (tackon where (cat "V." Voyager_old) ))
  230.                        (dest (tackon Voyagerdir "V")) 
  231.                        (infos)
  232.                
  233.     )
  234.  
  235.     (delete (tackon where (cat "V" Voyager_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  236.  
  237.     ;(set firsttime 1)
  238.  
  239.   )
  240. )
  241.  
  242. (if (< (exists (tackon Voyagerdir "Voyager")) 2) (makedir (tackon Voyagerdir "Voyager") (infos)) )
  243.  
  244. (if (exists "/V-NG-Prerelease1.info")
  245.  (copyfiles (source "/V-NG-Prerelease1.info") (dest (tackon "/" where)) (newname "Voyager.info") (optional "nofail") ) 
  246. )
  247.  
  248.  
  249. (set where (tackon Voyagerdir "Voyager"))
  250. (set @default-dest where)
  251.  
  252. ;********************************************************************
  253. ; Check for old & backup
  254. ;********************************************************************
  255. (if (exists (tackon where "V")) 
  256.   (
  257.       (set vernum1 (getversion (tackon where "V") ))
  258.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  259.       (set Voyager_old (cat ver1 "." rev1))
  260.  
  261.       (set keeper  (askchoice (choices  (cat #backuptoXXX Voyager_old "'")  #copyover)
  262.                      (prompt #Voyagerfound)
  263.                  (help   #Voyagerfound)
  264.                      (default 0)
  265.                )
  266.       )    
  267.  
  268.       (if (= keeper 0)
  269.          (copyfiles (source (tackon where "V"))
  270.                      (dest where) 
  271.                      (infos)
  272.                      (newname (cat "V" Voyager_old))
  273.          )
  274.       )          
  275.  
  276.       (set firsttime 1)
  277.   )
  278. )
  279.  
  280. ;********************************************************************
  281. ; Copy over correct Voyager and Icon if wanted
  282. ;********************************************************************
  283. (set gcpu 0)
  284. (if (AND (> #cpu 1) (exists ("V030")) ) (set gcpu 1) ) 
  285.  
  286.  
  287.  
  288. (set cpuPick (askchoice (choices "68000" "68030+FPU")
  289.              (prompt #askcpu)
  290.                      (help   #askcpu)
  291.                    (default gcpu)
  292.       )
  293. )
  294.  
  295. (if (AND (= cpuPick 1) (exists ("V030")) )
  296.  (copyfiles (source "V030") (dest where) (newname "V") (optional "nofail") )
  297.  (copyfiles (source "V") (dest where) (optional "nofail") )
  298. )
  299.  
  300. (if (AND (> #cpu 1) (= (exists ("V030")) 0) )
  301.  (message #no030found)
  302. )
  303.  
  304. (if (= firsttime 0)  (copyfiles (source "V.info") (dest where) (optional "nofail") ) )
  305.  
  306. (if (OR (= keeper 0) (= (exists (tackon where "V.info")) 0))
  307.   (
  308.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  309.                            (prompt #newicon)
  310.                        (help   #newicon)
  311.                            (default 0)
  312.             )
  313.    )
  314.   
  315.    (if (= newicon 0) 
  316.      (copyfiles (source "V.info") (dest where)  (optional "nofail") )
  317.    )
  318.   )
  319. )
  320.  
  321.  
  322. ;********************************************************************
  323. ; Copy over Other stuff
  324. ;********************************************************************
  325. (if (exists ("RegisterVoyager"))
  326.  (copyfiles (source "RegisterVoyager") (dest where)  (infos) (optional "nofail") )
  327. )
  328.  
  329. ;*** Copy Key 
  330. (if (> (exists "Voyager.KEY") 0)
  331.  (copyfiles (source "Voyager.KEY") (dest where) (infos) (optional "nofail") ) 
  332. )
  333.  
  334. (if (> (exists "TransferAnim") 0)
  335.  (copyfiles (source "TransferAnim") (dest where) (infos) (optional "nofail") ) 
  336. )
  337.  
  338. (makedir (tackon where "Cache"))
  339. (if (> (exists "CacheBrowser") 0)
  340.  (copyfiles (source "CacheBrowser") (dest where) (infos) (optional "nofail") ) 
  341. )
  342. ;******************************************************************************** 
  343. ; Copy over Plugins stuff
  344. ;********************************************************************************
  345. (if (< (exists (tackon where "Plugins")) 2) (makedir (tackon where "Plugins") (infos)) )    
  346. (if (exists "Plugins.info")
  347.  (copyfiles (source "Plugins.info") (dest where) (optional "nofail") ) 
  348. )
  349.  
  350. (if (> (exists "Plugins") 0)
  351.  (
  352.   (foreach "Plugins" "#?"
  353.      (copylib (source (tackon "Plugins" @each-name)) (dest (tackon where "Plugins")) (optional "nofail") ) 
  354.   )
  355.  
  356.   (set USA (askchoice (choices #yesc  #noc)
  357.                   (prompt #nossl)
  358.                   (help #nossl)
  359.                       (default 1)
  360.        )
  361.   )
  362.  
  363.   (if (= USA 0) 
  364.    (
  365.     (delete (tackon where "Plugins/voyager_ssleay.vlib")) 
  366.     (message #okssl)
  367.    )
  368.   )
  369.  
  370.  )
  371. )
  372. ;******************************************************************************** 
  373. ; Copy over rexx stuff
  374. ;********************************************************************************
  375. (if (< (exists (tackon where "rexx")) 2) (makedir (tackon where "rexx") (infos)) )    
  376. (if (exists "Rexx.info")
  377.  (copyfiles (source "Rexx.info") (dest where) (optional "nofail") ) 
  378. )
  379.  
  380. (if (> (exists "rexx") 0)
  381.   (foreach "rexx" "#?"
  382.      (copylib (source (tackon "rexx" @each-name)) (dest (tackon where "rexx")) (optional "nofail") ) 
  383.   )
  384. )
  385.  
  386. ;******************************************************************************** 
  387. ; Copy over Submissions stuff
  388. ;********************************************************************************
  389. (if (< (exists (tackon where "Submissions")) 2) (makedir (tackon where "Submissions") (infos)) )    
  390. (if (exists "Submissions.info")
  391.  (copyfiles (source "Submissions.info") (dest where) (optional "nofail") ) 
  392. )
  393.  
  394. (if (> (exists "Submissions") 0)
  395.   (foreach "Submissions" "#?"
  396.      (copylib (source (tackon "Submissions" @each-name)) (dest (tackon where "Submissions")) (optional "nofail") ) 
  397.   )
  398. )
  399.  
  400. ;********************************************************************
  401. ; Copy over DOCS (home.html and Vpics dir) & Other Docs
  402. ;********************************************************************
  403. (set docs (askoptions (choices " Docs In HTML format" " V.readme") ;" V.history"
  404.               (prompt #whatdocs) 
  405.                       (help #whatdocs)
  406.                   (default 3)
  407.       )
  408. )
  409.  
  410. (if (<> docs 0)
  411.  (
  412.    ;(set docsdir (askdir (prompt (cat #wheredocs " (V.readme)" )) ; & V.history
  413.    ;                (help   (cat #wheredocs " (V.readme)" )) ; & V.history
  414.    ;                   (default where)
  415.    ;             )  
  416.    ;)
  417.  
  418.    (set docsdir where)  
  419.  
  420.    (if (IN docs 0)
  421.     (
  422.       (if (< (exists (tackon where "Voyager_home")) 2) (makedir (tackon where "Voyager_home") (infos)) )    
  423.       (if (< (exists (tackon where "Voyager_home/images")) 2) (makedir (tackon where "Voyager_home/images") (infos)) )    
  424.       (if (exists "Voyager_home.info")
  425.         (copyfiles (source "Voyager_home.info") (dest where) (optional "nofail") ) 
  426.       )
  427.  
  428.       (if (exists "Voyager_home")
  429.         (foreach "Voyager_home" "#?.html"
  430.            (copyfiles (source (tackon "Voyager_home" @each-name)) (dest (tackon where "Voyager_home")) (optional "nofail") ) 
  431.         )
  432.       )
  433.  
  434.       (if (exists "Voyager_home/images")
  435.         (foreach "Voyager_home/images" "#?.gif"
  436.           (copyfiles (source (tackon "Voyager_home/images" @each-name)) (dest (tackon where "Voyager_home/images")) (optional "nofail") ) 
  437.         )
  438.       )
  439.     )
  440.    )
  441.  
  442.    (if (IN docs 1) (copyfiles (source "V.readme") (dest docsdir) (infos) (optional "nofail") ) )
  443.    (if (IN docs 2) (copyfiles (source "V.history") (dest docsdir) (infos) (optional "nofail") ) )
  444.  )
  445. )
  446.  
  447. ;********************************************************************
  448. ; Copy over TOOLS if wanted
  449. ;********************************************************************
  450. (if (> (exists "Tools") 0)
  451.  (
  452.   (set tools (askoptions (choices " ClearCacheDir" " Uninstall")
  453.                    (prompt (cat #whattools (tackon where "Tools\n"))) 
  454.                          (help   (cat #whattools (tackon where "Tools\n")))
  455.                      (default 1)
  456.              )
  457.   )
  458.  
  459.   (if (<> tools 0)
  460.    (
  461.      (if (< (exists (tackon where "Tools")) 2) (makedir (tackon where "Tools") (infos)) )    
  462.      (set toolsdir (tackon where "Tools"))   
  463.  
  464.      (if (IN tools 0) (copyfiles (source "Tools/ClearCacheDir") (dest toolsdir) (infos) (optional "nofail") ) )
  465.      (if (IN tools 1) (copyfiles (source "Tools/Uninstall") (dest toolsdir) (infos) (optional "nofail") ) )
  466.    
  467.    )
  468.   )
  469.  
  470.  )
  471. )
  472.  
  473. ;********************************************************************
  474. ; Copy over #?.mpc|#?.mcc (Need to be in mui:libs/mui)
  475. ;********************************************************************
  476. (if (<> (getassign "mui") "")
  477. (
  478.   (if (> (exists "mui:libs/mui") 0) 
  479.    (
  480.     (working #updatingmuic)
  481.     (foreach "mui" "#?.mcp"
  482.         (copylib (source (tackon "mui" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  483.     )
  484.     (foreach "mui" "#?.mcc"
  485.         (copylib (source (tackon "mui" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  486.     )
  487.    )
  488.  
  489.    (message (cat #newermui muiver #nompc)) 
  490.   )
  491. )
  492. )
  493.  
  494. ;********************************************************************
  495. ; Reg stuff 
  496. ;********************************************************************
  497. (if (exists"Register-Voyager") 
  498.  (
  499.   (if (< (exists (tackon where "Register-Voyager")) 2) (makedir (tackon where "Register-Voyager") (infos)) )    
  500.   (if (exists "Register-Voyager.info")
  501.     (copyfiles (source "Register-Voyager.info") (dest where) (optional "nofail") ) 
  502.   )
  503.   (set whereR (tackon where "Register-Voyager"))
  504.  
  505.  
  506.   (set whatreg  (askchoice (choices "English"  "Deutsch" "Francais" "Svenska" )
  507.                            (prompt "What Registration Files (Language) would you like to install?")
  508.                        (help   "What Registration Files (Language) would you like to install?")
  509.                         (default 0)
  510.                 )  
  511.   )
  512.  
  513.   (if (= whatreg 0) ((set basereg "English")  (set baseregTT "English") ) )
  514.   (if (= whatreg 1) ((set basereg "Deutsch")  (set baseregTT "Deutsch") ) )
  515.   (if (= whatreg 2) ((set basereg "Francais") (set baseregTT "French")  ) )
  516.   (if (= whatreg 3) ((set basereg "Svenska")  (set baseregTT "Svenska")  ) )
  517.  
  518.   (if (exists "Register-Voyager/RegistrationUtility") 
  519.     (copyfiles (source "Register-Voyager/RegistrationUtility")
  520.                (dest whereR) 
  521.     )
  522.   )
  523.  
  524.   (if (exists (tackon "Register-Voyager" (cat "Regtool-" basereg ".info")) )
  525.     (copyfiles (source (tackon "Register-Voyager" (cat "Regtool-" basereg ".info")) )
  526.                (dest whereR) 
  527.                (newname "RegistrationUtility.info")
  528.     )
  529.   )
  530.  
  531.   (if (exists (tackon "Register-Voyager" (cat "Reg_" basereg ".guide")) ) 
  532.     (copyfiles (source (tackon "Register-Voyager" (cat "Reg_" basereg ".guide")))
  533.                (dest whereR) 
  534.                (infos)
  535.     )
  536.   )
  537.  
  538.   (if (exists (tackon "Register-Voyager" (cat "Reg_" basereg ".doc")) )
  539.     (copyfiles (source (tackon "Register-Voyager" (cat "Reg_" basereg ".doc")))
  540.                (dest whereR) 
  541.                (infos)
  542.     )
  543.   )
  544.  
  545.  
  546.  )
  547. )
  548. ;********************************************************************
  549. ; Check on Setpatch 
  550. ;********************************************************************
  551. (set vernum1 (getversion "c:setpatch")) (set ver1 (/ vernum1 65536)) 
  552. (set rev1 (- vernum1 (* ver1 65536) ) ) (set setpatchver (cat ver1 "." rev1))
  553. (set current_setpatch "40.16")
  554. (if (< setpatchVer current_setpatch) (message #updatesetpatch) )
  555.  
  556. ;********************************************************************
  557. ; Check on New installer 
  558. ;********************************************************************
  559. (set InstallerVer 0)
  560. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  561. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  562. (set current_installer "43.3")
  563. (if (< InstallerVer current_installer) (message #updateinstaller) )
  564.  
  565. ;********************************************************************
  566. ; End Bye 
  567. ;********************************************************************
  568. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  569. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  570. (run (cat "run " #mpath "/multiview V.readme") )
  571.  
  572. (exit #byebye)
  573.