home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Online / Voyager3pre5 / Install_Voyager < prev    next >
Text File  |  1999-10-28  |  46KB  |  1,090 lines

  1. ;******************************************************************************
  2. ;         __  __                                     
  3. ;        / / / /                                    
  4. ;       / / / /______ __  __ ______  ______ ______ _____
  5. ;      / / / // __  / \ \/ // __  / / __  // ____// .__/
  6. ;     /  \/ // /_/ /   \  // __  / / /_/ // __/_ / /
  7. ;     \____//_____/    / //_/ /_/ _\__  //_____//_/      NG
  8. ;                     /_/        /_____/   
  9. ;
  10. ; $VER: Voyager_Installer 3.0n (October-24-1999) 
  11. ; Installer by Robert C. Reiswig ©1995,1996,1997,1998,1999
  12. ; Voyager by Oliver Wagner ©1995,1996,1997,1998,1999
  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 0) ; 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.5"))
  32.  
  33. (set cpu (database "cpu"))
  34. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  35. (if (> (exists ("68060.library") (resident)) 0) (set #cpu 5) )
  36. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  37. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  38. (if (= cpu 68040) (set #cpu 4)) (if (= cpu 68050) (set #cpu 5)) 
  39.  
  40.  
  41. (set vernum1 (getversion "V")) (set ver1 (/ vernum1 65536))
  42. ;(set vernum1 (getversion "mui/StringNumeric.mcc")) (set ver1 (/ vernum1 65536)) 
  43.  
  44. (set rev1 (- vernum1 (* ver1 65536) ) ) (set Voyagerver (cat ver1 "." rev1))
  45.  
  46. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  47. (set lan 0)
  48.  
  49. (if (= "english"    lanfound) (set lan 0))  (if (= "deutsch"    lanfound) (set lan 1))
  50. (set #English    "English")  (set #Deutsch    "Deutsch")
  51.  
  52. (set mfound 0) (set newicon1 1) 
  53. (set keeper 1) (set firsttime 0)
  54.  
  55. ;********************************************************************
  56. ; English Strings
  57. ;********************************************************************
  58. (set #about (cat "\n\nWelcome to Voyager " Voyagerver "\n\nCopyright © 1995-1999 by\n\nOliver Wagner\n<owagner@vapor.com>\n\nhttp://www.vapor.com/\nftp://ftp.vapor.com/pub/voyager/") )
  59. (set #installup " Install or Update Voyager")
  60. (set #clearcache " Clear Cache Directory")
  61. (set #task "\nWhat would you like to do?\n")
  62. (set #whereVoyager "Where do you wish to install Voyager. The directory 'Voyager' will be created if it is not there. If a copy of Voyager is found it will be backed up.")
  63. (set muiver "No Version Installed")
  64. (set #newermui "\nVoyager 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 mui38usr.lha on Aminet in util/libs\n\nIt looks like you have: \n\n")
  65. (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.")
  66. (set #nompc "\nThe .MCC files for VoyagerNG can not be installed to 'mui:libs/mui'")
  67. (set #need-os "\n\nVoyager needs version 3.0 or higher of the Amiga OS installed to work correctly.\n\n It looks like you have: \n\n")
  68. (set #000used "\n\nThe 68000 version will be installed.") 
  69. (set #nompc "\nThe .MPC files for Voyager can not be installed to 'mui:libs/mui'")
  70. (set #noreg1 "\nThe installer could not find 'S:Voyager.Key' or '")
  71. (set #noreg2 "' on your system. It also does not seem to be in the archive you are installing Voyager from. You may need to get the archive again.\n\nThe installer will now run the Registration Utility, 'Register-Voyager'.")   
  72. (set #filethere1 "\n\nThe installer has found Voyager version ")
  73. (set #filethere2 " at ")
  74. (set #filethere3 "\n\nThe file will be renamed to ")
  75. (set #filethere4 " and it will then be moved to ")
  76. (set #backuptoXXX "Back-UP to file named 'Voyager.")
  77. (set #copyover "Copy Over Old Version")
  78. (set #oktodelete1 "\nIs it ok to delete the older Voyager binary so that the Voyager Directory can be made?\n")
  79. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ Voyager binary so that the Voyager Directory can be made?\n")
  80. (set #Voyagerfound "\nThe Installer has found a copy of Voyager already installed. What do you want to do?\n")
  81. (set #no030found "\n\nThe 68030+FPU Version of Voyager, V030, was not found in this archive this is why the 68000 version was installed.")
  82. (set #newicon "\nDo you wish to copy over The Voyager Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  83. (set #nonewicon  "No  - ToolTypes already set.")
  84. (set #yesnewicon "Yes - Copy over Icon.")
  85. (set #yesnewicon "Yes - Copy over Icon.")
  86. (set #whatcat "\nSelect the Voyager Language catalog you wish to install.\n")
  87. (set #wherecat "\nWhere do you wish to install the Voyager Language Catalog? Default is ")
  88. (set #catnofind "Can not find this catalog in this Voyager archive. You may need to get a newer archive.")
  89. (set #whattools "\nWhat Tools would you like to install? They will be placed in: ")
  90. (set #updatingmuic "\nUpdating the MUI Classes if needed.\n\n(#?.mcc & #?.mcp)")
  91. (set #nomuiarc "\nThe installer could not find the MUI dir in the archive. Because of this the MUI Classes used by Voyager were not installed.\n\n If you are Updating Voyager then this is not a problem. If it is your first time installing Voyager you will need to get an archive with these files.")
  92. (set #whatdocs "What Voyager documentation would you like to install? (* = Not found in this archive)")
  93. (set #wheredocs "Where would you like the Voyager documentation you selected to be installed?")
  94. (set #byebye (cat "\nVoyager Install Complete!\n\n" ))
  95.  
  96. (set #whereUnpack "Where would you like to Uncompress the VoyagerNG Archive to, so that you may install it from there?")
  97. (set #uncompressingbin (cat "\n\nUncompressing the " #Voyager_Archive " archive.\n\nPlease wait."))
  98. (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."))
  99. (set #oktoinstall "\nThe VoyagerNG archive has been un-packed. You can now run the installer to complete the install in:\n\n")
  100.  
  101. (set #askcpu "\nWhat CPU does the machine have that you will run Voyager on?\n")
  102. (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 Archive.\n\nOR\n\nThe Keyfile is missing. Please contact your REG site.")
  103. (set #updatesetpatch "\nThe installer looked for 'c:setpatch' and did not find it or you have a version lower then 40.16. Voyager 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.)")
  104. (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.")
  105. ;can you add provision for Java/Applets and Java/Classes dirs?
  106. (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")
  107. (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.")
  108. (set #yesc "Yes - In USA")
  109. (set #noc "No - Other Country")
  110.  
  111. (set #wheremp "\nWhere do you wish to install the MimePrefs program?\n")
  112.  
  113. (set #updatedlibs "\nInstall/Update the Vapor Libraries?\n* = Must be installed to work correctly\n(Click 'Help' for more info on the libs.)\n")
  114. (set #lib1 " Update library(*)")
  115. (set #lib2 " Toolkit library (*)")
  116. (set #lib3 " Registration library")
  117. (set #libC " CManager lib [Bookmarks] (*)")
  118. (set #libhelp1 "vapor_update.library:\nIf installed every Vapor app will automagically check for updates by querying the Vapor server via Internet. You will be informed and offered automatic downloading if there is an update.")
  119. (set #libhelp2 "\n\nvapor_toolkit.library:\nContains support functions which are used by most Vapor applications and thus can be shared to reduce individual application code size. ie: Async I/O library, crytographically strong random number generator, math support.")
  120. (set #libhelp3 "\n\nvapor_registration.library:\nContains the core code for the registration utility\n")
  121. (set #libhelpC "\n\nCManager.library:\nThe Contact Manager is a unique product for the Amiga. It's best described as a diary / address book which allows you to store all your contacts' user information, favourite web & ftp sites and IRC server/channels. Voyager uses CManager.library for its 'Bookmarks section'")
  122. (set #wherelibs "Where do you wish to place the Vapor lib(s), 'Libs:' is default.")
  123. (set #flushing "\n\nRunning:\n\n'avail flush >NIL:'\n\n to try to flush old Vapor libraries from memory.")
  124.  
  125. (set #insregstuff " Install Register information")
  126. (set #insregstuffno " Don't Install Register information")
  127. (set #installerreg "\nThe installer did not find an AmIRC key in the usual places. Do you wish to install the Register information?\n") 
  128.  
  129. (set #updateplug "\n\n\nInstalling or Updating Plugins")
  130. (set #cpuver "\nWhat version of TextInput would you like to be installed?\n")
  131.  
  132. (set #neednlist1 "\nThe installer could not find:\n")
  133. (set #neednlist2 "\n\nVoyager 3 needs the CManager package to run. The CManager components needed to let voyager run are included in the Voyager archive.\n\nCManager needs to have the NList classes/package installed. You can find the NList package on Aminet in dev/mui. Current file name is: MCC_NList0_89.lha")
  134.  
  135. (set #needpopph1 "\nThe installer could not find:\n")
  136. (set #needpopph2 "\n\nVoyager 3 needs to have the Popup Placeholder classes/package installed. You can find the latest Popup Placeholder classes/package at:\n\nhttp://amiga.com.pl/mcc/\n\nCurrent file name is: CC_Popph.lha")
  137.  
  138. ;********************************************************************
  139. ; German Strings
  140. ;********************************************************************
  141. (if (= lan 1) (set OlliShareSomePizza TRUE_But_From_Long_Ago) )
  142.  
  143.  
  144. ;********************************************************************
  145. ; Check for LHA voyager.. if there unpack then install. Oh the floppy
  146. ;********************************************************************
  147. (if (= 1 (exists #Voyager_Archive) )
  148.  (
  149.    (welcome)
  150.    (set VoyagerUdir  (askdir (prompt #whereUnpack)
  151.                         (help   #whereUnpack)
  152.                          (default "Ram:")
  153.                     )  
  154.    )
  155.  
  156.    (working (cat #uncompressingbin ""))
  157.    (set ToDo  ("%s \"-qfw=%s\" x %s %s" #Compress VoyagerUdir #Voyager_Archive)) 
  158.    (set error (run ToDo))
  159.    (if (> error 0) (message #errorbin))
  160.   
  161.    (if (exists "Voyager.KEY")
  162.     (copyfiles (source "Voyager.key") (dest (tackon VoyagerUdir "Voyager-30-Prerelease1")) (optional "nofail") ) 
  163.    )
  164.  
  165.    (set @default-dest VoyagerUdir)
  166.    ;(run (cat "run Installer \"" (tackon VoyagerUdir "Voyager-30-Prerelease1/Install_Voyager") "\" APPNAME \"Voyager3-Installer\" MINUSER AVERAGE DEFUSER AVERAGE LOGFILE RAM:Voyager3-Install.LOG") ) 
  167.    (exit (cat #oktoinstall (tackon VoyagerUdir "Voyager-30-Prerelease1/Install_Voyager")) (quiet))
  168.  )
  169.  
  170. )
  171.  
  172. ;********************************************************************
  173. ; Check on New installer 
  174. ;********************************************************************
  175. (set InstallerVer 0)
  176. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  177. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  178. (set current_installer "43.3")
  179. (if (< InstallerVer current_installer) (message #updateinstaller) )
  180.  
  181. ;********************************************************************
  182. ; Check on Setpatch 
  183. ;********************************************************************
  184. (set vernum1 (getversion "c:setpatch")) (set ver1 (/ vernum1 65536)) 
  185. (set rev1 (- vernum1 (* ver1 65536) ) ) (set setpatchver (cat ver1 "." rev1))
  186. (set current_setpatch "40.16")
  187. (if (< setpatchVer current_setpatch) (message #updatesetpatch) )
  188.  
  189. ;********************************************************************
  190. ; Hello
  191. ;********************************************************************
  192. (message #about)
  193.  
  194.  ;*** For Olli
  195.   (message "\n\n\nThe Voyager 3 pre-release requires a keyfile.\n\nVoyager.KEY, Voyager-3.KEY and NetConnect.library will work.")
  196.  
  197. (welcome) 
  198.  
  199. ;********************************************************************
  200. ; Checks for MUI & OS versions
  201. ;********************************************************************
  202. (set ver 0)
  203. (if (<> (getassign "mui") "")
  204. (
  205.   (if (exists "mui:mui") 
  206.    (
  207.     (set vernum (getversion "mui:mui") )
  208.     (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  209.  
  210.     (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  211.     (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  212.     (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  213.     (if (= ver 13) (set muiver "3.2") )  (if (= ver 14) (set muiver "3.3") )
  214.     (if (= ver 15) (set muiver "3.4") )  (if (= ver 16) (set muiver "3.5") )
  215.     (if (= ver 17) (set muiver "3.6") )  (if (= ver 18) (set muiver "3.7") )
  216.     (if (= ver 19) (set muiver "3.8") )  (if (= ver 20) (set muiver "3.9") )
  217.    )
  218.   )
  219. )
  220. )
  221.  
  222. (if (< ver 17)   ( (message (cat #newermui muiver))   (set cpuPick 0) ))
  223. (if (< osver 39) ( (message (cat #need-os workbench)) (set cpuPick 0) ))
  224.  
  225. ;********************************************************************
  226. ; Double Check on the CPU
  227. ;********************************************************************
  228. (set cpuPick (askchoice (choices "68000" "68010" "68020" "68030"
  229.                          "68040" "68060"
  230.                 )
  231.              (prompt #askcpu)
  232.                      (help   #askcpu)
  233.                    (default #cpu)
  234.       )
  235. )
  236.  
  237.  
  238. ;********************************************************************
  239. ; check for Register-Voyager
  240. ;********************************************************************
  241. ;(if (OR (exists "Register-Voyager") (exists "Voyager.KEY"))
  242. ; (set tempz 0) (abort #noregdir)
  243. ;)
  244.  
  245. ;********************************************************************
  246. ; Check Last ENV
  247. ;********************************************************************
  248. (if (> (exists "env:Vapor/Voyager_LASTUSEDDIR") 0) 
  249.  (
  250.   (set lastdir (getenv "Vapor/Voyager_LASTUSEDDIR"))
  251.   (set lastdirlen (strlen lastdir))
  252.   (set tricklen (+ 1 (strlen (fileonly lastdir))))
  253.   (set lastdir (substr lastdir 0 (- lastdirlen tricklen) ) )
  254.   (if (= 0 (exists lastdir (noreq))) (set lastdir (cat lastdir ":"))) 
  255.  )
  256.  (set lastdir 0)
  257. )
  258.  
  259.  
  260. ;********************************************************************
  261. ; Ask where to put Voyager & Make dir if needed
  262. ;********************************************************************
  263. (set Package (getassign "AmiTCP"))
  264. (if (= Package "") (set Package (getassign "Inet")) )
  265. (if (<> lastdir 0) (set Package lastdir))
  266.  
  267. (set Voyagerdir  (askdir (prompt #whereVoyager)
  268.                 (help   #whereVoyager)
  269.                      (default Package)
  270.                )  
  271. )
  272.  
  273. (set where Voyagerdir)
  274.  
  275. ;********************************************************************
  276. ; Check for Key file
  277. ;********************************************************************
  278. ;(if (AND (= Vkey 1) (OR (= (exists "Voyager.Key") 0) (OR (= (exists "S:Voyager.Key") 0)  (= (exists (tackon where "Voyager.Key")) 0) ) ) )
  279. ; (
  280. ;  (message (cat #noreg1 (tackon where "Voyager/Voyager.Key") #noreg2))
  281. ;  (run (cat "run Register-Voyager") )
  282. ;  ;;** (exit (quiet))
  283. ; )
  284. ;) 
  285.  
  286. ;********************************************************************
  287. ; Check to see if Voyager is already there, if so ask to backup
  288. ;********************************************************************
  289. (if (= 1 (exists (tackon where "V") ) ) 
  290.   (
  291.     (set vernum1 (getversion (tackon where "V") ))
  292.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  293.     (set Voyager_old (cat ver1 "." rev1))
  294.  
  295.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  296.                   (cat "V" Voyager_old) #filethere4 (tackon Voyagerdir "V") )
  297.     )
  298.  
  299.     (copyfiles (source (tackon where "V"))
  300.                (dest where) 
  301.                (infos)
  302.                (newname (cat "V." Voyager_old))
  303.     )
  304.     
  305.     (delete (tackon Voyagerdir "V") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  306.  
  307.     (if (< (exists (tackon Voyagerdir "V")) 2) (makedir (tackon Voyagerdir "V") (infos)) )    
  308.  
  309.     (copyfiles (source (tackon where (cat "V." Voyager_old) ))
  310.                        (dest (tackon Voyagerdir "V")) 
  311.                        (infos)
  312.                
  313.     )
  314.  
  315.     (delete (tackon where (cat "V" Voyager_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  316.  
  317.     ;(set firsttime 1)
  318.  
  319.   )
  320. )
  321.  
  322. (if (< (exists (tackon Voyagerdir "Voyager")) 2) (makedir (tackon Voyagerdir "Voyager") (infos)) )
  323.  
  324. ;********************************************************************
  325. ; copy rooticon if there
  326. ;********************************************************************
  327. (set pathI @icon)  (set pathIlen (strlen pathI))
  328. (set Inamelen (fileonly @icon))
  329. (set Inamelen (+ (strlen Inamelen) 1) )
  330. (set pathI (substr pathI 0 (- pathIlen Inamelen) ) )
  331.  
  332. (if (exists (cat pathI ".info"))
  333.   (copyfiles (source (cat pathI ".info")) (dest (tackon "/" where)) (newname "Voyager.info") (optional "nofail") ) 
  334. )
  335.  
  336. (set where (tackon Voyagerdir "Voyager"))
  337. (set @default-dest where)
  338.  
  339. ;********************************************************************
  340. ; Check for old & backup
  341. ;********************************************************************
  342. (if (exists (tackon where "V")) 
  343.   (
  344.       (set vernum1 (getversion (tackon where "V") ))
  345.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  346.       (set Voyager_old (cat ver1 "." rev1))
  347.  
  348.       (set keeper  (askchoice (choices  (cat #backuptoXXX Voyager_old "'")  #copyover)
  349.                      (prompt #Voyagerfound)
  350.                  (help   #Voyagerfound)
  351.                      (default 0)
  352.                )
  353.       )    
  354.  
  355.       (if (= keeper 0)
  356.          (copyfiles (source (tackon where "V"))
  357.                      (dest where) 
  358.                      (infos)
  359.                      (newname (cat "V" Voyager_old))
  360.          )
  361.       )          
  362.  
  363.       (set firsttime 1)
  364.   )
  365. )
  366.  
  367. ;********************************************************************
  368. ; Copy over correct Voyager and Icon if wanted
  369. ;********************************************************************
  370. ;(set gcpu 0)
  371. ;(if (AND (> #cpu 1) (exists ("V030")) ) (set gcpu 1) ) 
  372.  
  373. ;(if (exists "V030") (set v030there "") (set v030there " (N/A in this Archive)") ) 
  374.  
  375. ;(set cpuPick (askchoice (choices "68000" (cat "68030+FPU" v030there) )
  376. ;             (prompt #askcpu)
  377. ;                     (help   #askcpu)
  378. ;                   (default gcpu)
  379. ;      )
  380. ;)
  381.  
  382. ;(if (AND (= cpuPick 1) (exists ("V030")) )
  383. ; (copyfiles (source "V030") (dest where) (newname "V") (optional "nofail") )
  384. ; (copyfiles (source "V") (dest where) (optional "nofail") )
  385. ;)
  386.  
  387.  
  388. (set #need000archive1 "\n(or you selected 68000 or 68010 as your CPU)\nAs of Voyager V3 Prerelease 4 the main archive will only have a version of the binary for OS3.0 or OS3.1 and needs to have a 68020 CPU or higher. You can get the 68000 archive (if available) at the following addresses:\n\nhttp://v3.vapor.com/\nftp://ftp.vapor.com/pub/voyager/")
  389. (set #need000archive2 "\n\nPress 'Proceed' and the installer will updated the other parts needed to run Voyager")
  390. (set #need000archiveA "The installer found AmigaOS: ")
  391. (set #need000archiveB " & CPU: ") 
  392.  
  393. (set voyagercpu "")
  394.  
  395. (if (OR (< cpuPick 2) (< osver 39))
  396.  (message (cat #need000archiveA workbench #need000archiveB cpu #need000archive1 #need000archive2))
  397.  
  398.  (copyfiles (source (cat "V" voyagercpu)) (dest where) (optional "nofail") )
  399. )
  400.  
  401.  
  402. ;;;(copyfiles (source "V") (dest where) (optional "nofail") )
  403.  
  404. ;(if (AND (> #cpu 1) (= (exists ("V030")) 0) )
  405. ; (message #no030found)
  406. ;)
  407.  
  408. (if (= firsttime 0)  (copyfiles (source "V.info") (dest where) (optional "nofail") ) )
  409.  
  410. (if (OR (= keeper 0) (= (exists (tackon where "V.info")) 0))
  411.   (
  412.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  413.                            (prompt #newicon)
  414.                        (help   #newicon)
  415.                            (default 0)
  416.             )
  417.    )
  418.   
  419.    (if (= newicon 0) 
  420.      (copyfiles (source "V.info") (dest where)  (optional "nofail") )
  421.    )
  422.   )
  423. )
  424.  
  425.  
  426. ;********************************************************************
  427. ; Copy over Other stuff
  428. ;********************************************************************
  429. (if (exists ("RegisterVoyager"))
  430.  (copyfiles (source "RegisterVoyager") (dest where)  (infos) (optional "nofail") )
  431. )
  432.  
  433. ;*** Copy Key 
  434. (if (> (exists "Voyager.KEY") 0)
  435.  (copyfiles (source "Voyager.KEY") (dest where) (infos) (optional "nofail") ) 
  436. )
  437.  
  438. (if (= (exists (tackon where "TransferAnim")) 0)
  439.   (if (exists "TransferAnim")
  440.    (copyfiles (source "TransferAnim") (dest where) (infos) (optional "nofail") ) 
  441.   )
  442. )
  443.  
  444. (makedir (tackon where "Cache"))
  445. (if (> (exists "CacheBrowser") 0)
  446.  (copylib (source "CacheBrowser") (dest where) (infos) (optional "nofail") ) 
  447. )
  448.  
  449.  
  450. ;********************************************************************
  451. ; BackUp bookmarks if there
  452. ;********************************************************************
  453. (if (> (exists "env:Vapor/CManager_path") 0) 
  454.  (
  455.   (set lastdir1 (getenv "Vapor/CManager_path"))
  456.   (set lastdirlen (strlen lastdir1))
  457.   (set tricklen (+ 1 (strlen (fileonly lastdir1))))
  458.   (set lastdir1 (substr lastdir1 0 (- lastdirlen tricklen) ) )
  459.   (if (= 0 (exists lastdir1 (noreq))) (set lastdir1 (cat lastdir1 ":"))) 
  460.  )
  461.  (set lastdir1 "")
  462. )
  463.  
  464. (if (> (exists (tackon lastdir1 "Default.data")) 0)
  465.  (copyfiles (source (tackon lastdir1 "Default.data")) (dest where) (optional "nofail") (newname (cat (getsum (tackon lastdir1 "Default.data")) "_Default.data")) )
  466. )
  467.  
  468. ;********************************************************************
  469. ; Copy MimePrefs
  470. ;********************************************************************
  471. (if (exists "MimePrefs")  
  472.  (
  473.   (if (exists "sys:prefs/MimePrefs" (noreq)) (set mpguess 1) (set mpguess 0))
  474.  
  475.   (set wheremp  (askchoice (choices where "SYS:Prefs")
  476.                            (prompt (cat #wheremp "\n"))
  477.                       (help   #wheremp)
  478.                         (default mpguess)
  479.                 )  
  480.   )
  481.  
  482.   (if (= wheremp 0) (set destmp where) (set destmp "SYS:Prefs"))
  483.  
  484.   (if (= (exists (tackon destmp "MimePrefs.info")) 0)  
  485.    (copylib (source "MimePrefs") (dest destmp) (infos) (optional "nofail") ) 
  486.    (copylib (source "MimePrefs") (dest destmp) (optional "nofail") ) 
  487.   )
  488.  
  489.  )
  490. )
  491.  
  492. ;******************************************************************************** 
  493. ; Copy over Plugins stuff
  494. ;********************************************************************************
  495. (set #askimageP1 "What version of the Image Decoder would you like to install (or update)? The average size for a Image Decoder plugin is about: ")
  496. (set #askflashP1 "What version of the VFlash plugin would you like to install (or update)? The average size for a VFlash plugin is about: ")
  497. (set #flashno000 "\n\nNOTE\n~~~~~~~~~~~~~~~~~~~~~~~~~~~\nThe VFlash plugin needs to be installed on an Amiga with at least a 68020 CPU. The installer did not find this. You can install the VFlash plugin but it will not work on 68000 and 68010 based Amigas.")
  498. (set #imageno000 "\n\nNOTE\n~~~~~~~~~~~~~~~~~~~~~~~~~~~\nThe Image plugin needs to be installed on an Amiga with at least a 68020 CPU. The installer did not find this. You can install the Image plugin but it will not work on 68000 and 68010 based Amigas.")
  499. (set #noppclib   "\n\nNOTE\n~~~~~~~~~~~~~~~~~~~~~~~~~~~\nYou selected a PPC plugin that needs PowerUp installed. The installer did not find 'libs:ppc.library' or the library resident. The installer will install the _ppc version of the plugin, if it is in the archive, but without a PPC (with PowerUp) it will not work and you may need to install a different version of the plugin.")
  500. (set #noplugfound "\n\nNOTE\n~~~~~~~~~~~~~~~~~~~~~~~~~~~\nThe Plugin you selected was not found it this archive. You will need to install a different version.\n\nPlugin not found:\n")
  501.  
  502.  
  503. (if (> (exists "Plugins") 0)
  504.  (
  505.  
  506.   (if (< (exists (tackon where "Plugins")) 2) (makedir (tackon where "Plugins") (infos)) )    
  507.   (if (exists "Plugins.info")
  508.    (copyfiles (source "Plugins.info") (dest where) (optional "nofail") ) 
  509.   )
  510.  
  511.   (if (OR (= cpuPick 0) (= cpuPick 1)) 
  512.      (set #cpuguess 0)
  513.      (set #cpuguess (- cpuPick 1))
  514.   )
  515.  
  516.  ;***** Image Decoder Plugin  ******************************
  517.  (if (> (exists "Plugins/vimgdecode_68020.vlib") 0)
  518.  (
  519.   (if (< #cpu 2) (message #imageno000)) 
  520.  
  521.   (set size 0) (set totalplug 0)
  522.   (foreach "Plugins" "vimgdecode#?"  (set size (+ size (getsize (tackon "Plugins" @each-name)))) (set totalplug (+ totalplug 1)) )
  523.   (set sizek-vimg (/ size 1024))
  524.  
  525.   (set cpuPickI (askchoice (choices "None" "68020" "68030+FPU" "68040+FPU" "68060" "PPC (PowerUp)" (cat "All Versions [" sizek-vimg "K]") )
  526.                   (prompt (cat #askimageP1 (/ sizek-vimg totalplug) "K.") )
  527.                       (help   (cat #askimageP1 (/ sizek-vimg totalplug) "K.") )
  528.                     (default #cpuguess)
  529.             )
  530.   )
  531.  
  532.   (if (= cpuPickI 1) (set imageplugin "68020"))    (if (= cpuPickI 2) (set imageplugin "68030fpu")) 
  533.   (if (= cpuPickI 3) (set imageplugin "68040fpu")) (if (= cpuPickI 4) (set imageplugin "68060"))
  534.   (if (= cpuPickI 5) (set imageplugin "PPC"))
  535.  
  536.   (working #updateplug)
  537.  
  538.   (if (= cpuPickI 6)
  539.    (foreach "Plugins" "vimgdecode#?"
  540.      (copylib (source (tackon "Plugins" @each-name)) (dest (tackon where "Plugins")) (optional "nofail") ) 
  541.    )
  542.    
  543.    (if (> cpuPickI 0)
  544.     (copylib (source (tackon "Plugins" (cat "vimgdecode_" imageplugin ".vlib"))) (dest (tackon where "Plugins")) (optional "nofail") ) 
  545.    )
  546.   )
  547.  
  548.  )
  549.  )
  550.  
  551.  ;***** VFlash Plugin ******************************
  552.  (if (> (exists "Plugins/VFlash.VPlug") 0)
  553.  (
  554.     (if (< #cpu 2) (message #flashno000)) 
  555.   
  556.     (set size 0) (set totalplug 0)
  557.     (foreach "Plugins" "VFlash_#?"  (set size (+ size (getsize (tackon "Plugins" @each-name)))) (set totalplug (+ totalplug 1)) )
  558.     (set sizek-vflash (/ size 1024))
  559.  
  560.    
  561.     (if (exists "libs:ppc.library") (set #cpuguess 5))
  562.     (if (exists "ppc.library" (resident)) (set #cpuguess 5))
  563.    
  564.     (set cpuPickI (askchoice (choices  "None" "68020" "68030+FPU" "68040+FPU" "68060" "PPC (PowerUp)" (cat "All Versions [" sizek-vimg "K]") )
  565.                     (prompt (cat #askflashP1 (/ sizek-vimg totalplug) "K.") )
  566.                        (help   (cat #askflashP1 (/ sizek-vimg totalplug) "K.") )
  567.                      (default #cpuguess)
  568.               )
  569.     )
  570.  
  571.     (if (= cpuPickI 1) (set flashplugin "68020"))    (if (= cpuPickI 2) (set flashplugin "68030fpu")) 
  572.     (if (= cpuPickI 3) (set flashplugin "68040fpu")) (if (= cpuPickI 4) (set flashplugin "68060"))
  573.     (if (= cpuPickI 5) (set flashplugin "PPC"))
  574.  
  575.     (set PPCthere 0)
  576.      (if (exists "libs:ppc.library") (set PPClibthere 1)  )
  577.      (if (exists "ppc.library" (resident)) (set PPClibthere 1) )
  578.     (if (AND (= PPClibthere 0) (= flashplugin "PPC")) (message #noppclib)) 
  579.  
  580.     (working #updateplug)
  581.  
  582.     (if (= cpuPickI 6)
  583.      (foreach "Plugins" "VFlash_#?"
  584.        (copylib (source (tackon "Plugins" @each-name)) (dest (tackon where "Plugins")) (optional "nofail") ) 
  585.      )
  586.    
  587.      (if (> cpuPickI 0)
  588.        (if (exists (tackon "Plugins" (cat "VFlash_" flashplugin ".module"))) 
  589.          (copylib (source (tackon "Plugins" (cat "VFlash_" flashplugin ".module"))) (dest (tackon where "Plugins")) (optional "nofail") ) 
  590.          (message (cat #noplugfound (tackon "Plugins" (cat "VFlash_" flashplugin ".module")) ) )
  591.        )
  592.      )
  593.     )
  594.  
  595.     (copylib (source (tackon "Plugins" "VFlash.VPlug")) (dest (tackon where "Plugins")) (optional "nofail") ) 
  596.  )
  597.  )
  598.  
  599.  
  600.  ;***** ssl Plugin ******************************
  601.   ;(set USA (askchoice (choices #yesc  #noc)
  602.   ;                  (prompt #nossl)
  603.   ;                  (help #nossl)
  604.   ;                     (default 1)
  605.   ;       )
  606.   ;)
  607.  
  608.   ;(if (= USA 0) ; 0=InUSA
  609.   ; (message #okssl)
  610.   ; (copylib (source (tackon "Plugins" "voyager_ssl.vlib")) (dest (tackon where "Plugins")) (optional "nofail") ) 
  611.   ;)
  612.  
  613.  ;***** About & Search Plugin ******************************
  614.   (copylib (source (tackon "Plugins" "voyager_about.vlib")) (dest (tackon where "Plugins")) (optional "nofail") ) 
  615.   (copylib (source (tackon "Plugins" "Search.VPlug")) (dest (tackon where "Plugins")) (optional "nofail") ) 
  616.   (copylib (source (tackon "Plugins" "voyager_ssl.vlib")) (dest (tackon where "Plugins")) (optional "nofail") ) 
  617.  
  618.  
  619.  )
  620. )
  621.  
  622. ;******************************************************************************** 
  623. ; Copy over Buttons if wanted
  624. ;********************************************************************************
  625.  
  626. (set #but1 " Devo's (Default Set Used)")
  627. (set #but2 " Brad's Buttons")
  628. (set #but3 " Loony's Buttons")
  629. (set #installbut "What Button set(s) do you wish to install? If you have created your own or don't wish to use graphics for buttons you should deselect the options below.")
  630.  
  631. (if (> (exists "buttons") 0)
  632.  (
  633.   
  634.   (set defbut 7)
  635.      (if (exists "buttons/Devo")
  636.       (
  637.        (set size 0)
  638.        (foreach "buttons/Devo" "#?"  (set size (+ size (getsize (tackon "buttons/Devo" @each-name)))) )
  639.        (set sizek-devo (/ size 1024))
  640.       )
  641.       ( (set defbut (- defbut 1))  (set sizek-devo "(N/A) 0") )
  642.      )
  643.  
  644.      (if (exists "buttons/Brad")
  645.       (
  646.        (set size 0)
  647.        (foreach "buttons/Brad" "#?"  (set size (+ size (getsize (tackon "buttons/Brad" @each-name)))) )
  648.        (set sizek-brad (/ size 1024))
  649.       )
  650.       ( (set defbut (- defbut 2))  (set sizek-brad "(N/A) 0") )
  651.      )
  652.  
  653.      (if (exists "buttons/Loony")
  654.       (
  655.        (set size 0)
  656.        (foreach "buttons/Loony" "#?"  (set size (+ size (getsize (tackon "buttons/Loony" @each-name)))) )
  657.        (set sizek-loon (/ size 1024)) 
  658.       )
  659.       ( (set defbut (- defbut 4))  (set sizek-loon "(N/A) 0") )
  660.      )
  661.  
  662.   (set butPick (askoptions (choices (cat #but1 " [" sizek-devo "K]")  (cat #but2 " [" sizek-brad "K]") (cat #but3 " [" sizek-loon "K]") )
  663.               (prompt #installbut)
  664.                       (help   #installbut)
  665.                     (default defbut)
  666.            )
  667.   )
  668.  
  669.   (if (<> butPick 0)
  670.    (
  671.      (if (< (exists (tackon where "buttons")) 2) (makedir (tackon where "buttons") (infos)) )    
  672.      (if (exists "buttons.info")
  673.        (copyfiles (source "buttons.info") (dest where) (optional "nofail") ) 
  674.      )
  675.  
  676.      (if (IN butPick 0)
  677.       (
  678.        (if (< (exists (tackon where "buttons/Devo")) 2) (makedir (tackon where "buttons/Devo") ) )    
  679.        (foreach "buttons/Devo" "#?"
  680.         (copyfiles (source (tackon "buttons/Devo" @each-name)) (dest (tackon where "buttons/Devo")) (optional "nofail") ) 
  681.        )
  682.       )
  683.      )
  684.  
  685.      (if (IN butPick 1)
  686.       (
  687.        (if (< (exists (tackon where "buttons/Brad")) 2) (makedir (tackon where "buttons/Brad") ) )    
  688.        (foreach "buttons/Brad" "#?"
  689.         (copyfiles (source (tackon "buttons/Brad" @each-name)) (dest (tackon where "buttons/Brad")) (optional "nofail") ) 
  690.        )
  691.       )
  692.      )
  693.  
  694.      (if (IN butPick 2)
  695.       (
  696.        (if (< (exists (tackon where "buttons/Loony")) 2) (makedir (tackon where "buttons/Loony") ) )    
  697.        (foreach "buttons/Loony" "#?"
  698.         (copyfiles (source (tackon "buttons/Loony" @each-name)) (dest (tackon where "buttons/Loony")) (optional "nofail") ) 
  699.        )
  700.       )
  701.      )
  702.  
  703.    )
  704.   )
  705.  
  706.  )
  707. )
  708.  
  709. ;******************************************************************************** 
  710. ; Copy over rexx stuff
  711. ;********************************************************************************
  712. (if (> (exists "rexx") 0) 
  713. (
  714.  (if (< (exists (tackon where "rexx")) 2) (makedir (tackon where "rexx") (infos)) )    
  715.  (if (exists "Rexx.info")
  716.   (copyfiles (source "Rexx.info") (dest where) (optional "nofail") ) 
  717.  )
  718.  
  719.  (if (> (exists "rexx") 0)
  720.    (foreach "rexx" "#?"
  721.       (copylib (source (tackon "rexx" @each-name)) (dest (tackon where "rexx")) (optional "nofail") ) 
  722.    )
  723.  )
  724. )
  725. )
  726.  
  727. ;******************************************************************************** 
  728. ; Copy over Certificates stuff
  729. ;********************************************************************************
  730. (if (> (exists "Certificates") 0) 
  731. (
  732.  
  733.  (if (< (exists (tackon where "Certificates")) 2) (makedir (tackon where "Certificates") (infos)) )    
  734.  (if (exists "Certificates.info")
  735.   (copyfiles (source "Certificates.info") (dest where) (optional "nofail") ) 
  736.  )
  737.  
  738.  (foreach "Certificates" "#?"
  739.     (copyfiles (source (tackon "Certificates" @each-name)) (dest (tackon where "Certificates")) (optional "nofail") ) 
  740.  )
  741.  
  742. )
  743. )
  744.  
  745. ;******************************************************************************** 
  746. ; Copy over Submissions stuff
  747. ;********************************************************************************
  748. (if (> (exists "Submissions") 0) 
  749.  (
  750.   (if (< (exists (tackon where "Submissions")) 2) (makedir (tackon where "Submissions") (infos)) )    
  751.   (if (exists "Submissions.info")
  752.    (copyfiles (source "Submissions.info") (dest where) (optional "nofail") ) 
  753.   )
  754.  
  755.   (if (> (exists "Submissions") 0)
  756.     (foreach "Submissions" "#?"
  757.        (copylib (source (tackon "Submissions" @each-name)) (dest (tackon where "Submissions")) (optional "nofail") ) 
  758.     )
  759.   )
  760.  
  761.  )
  762. )
  763.  
  764. ;********************************************************************
  765. ; Copy over DOCS (home.html and Vpics dir) & Other Docs
  766. ;********************************************************************
  767. (set defdocs 63)
  768. (if (exists "Voyager_home") (set html_found "") ( (set help_found " (*)") (set defdocs (- defdocs 1)) ) ) 
  769. (if (exists "V.readme")     (set readme_found "") ( (set readme_found " (*)") (set defdocs (- defdocs 2)) ) ) 
  770. (if (exists "Docs/Readme.mui") (set muidoc_found "") ( (set muidoc_found " (*)") (set defdocs (- defdocs 4)) ) ) 
  771. (if (exists "Docs/Readme.TearOff") (set tear_found "") ( (set tear_found " (*)") (set defdocs (- defdocs 8)) ) ) 
  772. (if (exists "Docs/VFlash.readme") (set flash_found "") ( (set flash_found " (*)") (set defdocs (- defdocs 16)) ) ) 
  773. (if (exists "Docs/VFlash_ppc.readme") (set flashppc_found "") ( (set flashppc_found " (*)") (set defdocs (- defdocs 32)) ) ) 
  774.  
  775.  
  776. (set docs (askoptions (choices (cat " Docs In HTML format" html_found) 
  777.                                (cat " V.readme" readme_found)
  778.                                (cat " ReadMe.mui" muidoc_found)
  779.                                (cat " ReadMe.TearOff" tear_found)
  780.                                (cat " VFlash.readme" flash_found)
  781.                                (cat " VFlash_ppc.readme" flashppc_found)
  782.                       ) 
  783.  
  784.               (prompt #whatdocs) 
  785.                       (help #whatdocs)
  786.                   (default defdocs)
  787.       )
  788. )
  789.  
  790. (if (<> docs 0)
  791.  (
  792.    ;(set docsdir (askdir (prompt (cat #wheredocs " (V.readme)" )) ; & V.history
  793.    ;                (help   (cat #wheredocs " (V.readme)" )) ; & V.history
  794.    ;                   (default where)
  795.    ;             )  
  796.    ;)
  797.  
  798.    (set docsdir where)  
  799.  
  800.    (if (IN docs 0)
  801.     (
  802.       (if (< (exists (tackon where "Voyager_home")) 2) (makedir (tackon where "Voyager_home") (infos)) )    
  803.       (if (< (exists (tackon where "Voyager_home/images")) 2) (makedir (tackon where "Voyager_home/images") (infos)) )    
  804.       (if (exists "Voyager_home.info")
  805.         (copyfiles (source "Voyager_home.info") (dest where) (optional "nofail") ) 
  806.       )
  807.  
  808.       (if (exists "Voyager_home")
  809.         (foreach "Voyager_home" "#?.html"
  810.            (copyfiles (source (tackon "Voyager_home" @each-name)) (dest (tackon where "Voyager_home")) (optional "nofail") ) 
  811.         )
  812.       )
  813.  
  814.       (if (exists "Voyager_home/images")
  815.         (foreach "Voyager_home/images" "#?.gif"
  816.           (copyfiles (source (tackon "Voyager_home/images" @each-name)) (dest (tackon where "Voyager_home/images")) (optional "nofail") ) 
  817.         )
  818.       )
  819.     )
  820.    )
  821.  
  822.    (if (IN docs 1) (copyfiles (source "V.readme") (dest docsdir) (infos) (optional "nofail") ) )
  823.  
  824.      (set docsdirneeded 0)                  (if (IN docs 2) (set docsdirneeded 1))   
  825.      (if (IN docs 3) (set docsdirneeded 1)) (if (IN docs 4) (set docsdirneeded 1))
  826.      (if (IN docs 5) (set docsdirneeded 1))
  827.  
  828.      (if (= docsdirneeded 1)
  829.       (    
  830.        (if (< (exists (tackon where "Docs")) 2) (makedir (tackon where "Docs") (infos)) )    
  831.        (if (exists "Docs.info")
  832.         (copyfiles (source "Docs.info") (dest where) (optional "nofail") ) 
  833.        )
  834.       )
  835.      )
  836.  
  837.    (if (IN docs 2)  (copyfiles (source "Docs/ReadMe.mui") (dest (tackon where "Docs")) (infos) (optional "nofail") ) )
  838.    (if (IN docs 3)  (copyfiles (source "Docs/ReadMe.TearOff") (dest (tackon where "Docs")) (infos) (optional "nofail") ) )
  839.    (if (IN docs 4) (copyfiles (source "Docs/VFlash.readme") (dest (tackon where "Docs")) (infos) (optional "nofail") ) )
  840.    (if (IN docs 5) (copyfiles (source "Docs/VFlash_ppc.readme") (dest (tackon where "Docs")) (infos) (optional "nofail") ) )
  841.  
  842.  )
  843. )
  844.  
  845. ;********************************************************************
  846. ; Copy over TOOLS if wanted
  847. ;********************************************************************
  848. (if (> (exists "Tools") 0)
  849.  (
  850.   (set tools (askoptions (choices " ClearCacheDir" " Uninstall")
  851.                    (prompt (cat #whattools (tackon where "Tools\n"))) 
  852.                          (help   (cat #whattools (tackon where "Tools\n")))
  853.                      (default 1)
  854.              )
  855.   )
  856.  
  857.   (if (<> tools 0)
  858.    (
  859.      (if (< (exists (tackon where "Tools")) 2) (makedir (tackon where "Tools") (infos)) )    
  860.      (set toolsdir (tackon where "Tools"))   
  861.  
  862.      (if (IN tools 0) (copyfiles (source "Tools/ClearCacheDir") (dest toolsdir) (infos) (optional "nofail") ) )
  863.      (if (IN tools 1) (copyfiles (source "Tools/Uninstall") (dest toolsdir) (infos) (optional "nofail") ) )
  864.    
  865.    )
  866.   )
  867.  
  868.  )
  869. )
  870.  
  871. ;********************************************************************
  872. ; Copy over #?.mpc|#?.mcc (Need to be in mui:libs/mui)
  873. ;********************************************************************
  874. (if (> #cpu 1) (set guesscpu 1) (set guesscpu 0)) 
  875.  
  876. ;Check for MUI stuff in 'Libs' or 'MUI/Libs'
  877.  (if (exists "Libs/MUI") (set mui_localdir "Libs/MUI"))
  878.  (if (exists "MUI") (set mui_localdir "MUI"))
  879.  
  880. (if (<> (getassign "mui") "")
  881. (
  882.   (if (> (exists "mui:libs/mui") 0) 
  883.    (
  884.  
  885.     (if (> (exists (tackon mui_localdir "Textinput.mcc.020")) 0)
  886.       (set whatver (askchoice (choices  "68000" "68020")
  887.                       (prompt #cpuver)
  888.                   (help   #cpuver)
  889.                       (default guesscpu)
  890.                )
  891.       )
  892.     )
  893.  
  894.     (working #updatingmuic)
  895.     (foreach mui_localdir "#?.mcp"
  896.       (if (AND (= whatver 1) (exists (cat (tackon mui_localdir @each-name) ".020") ) )
  897.         (copylib (source (cat (tackon mui_localdir @each-name) ".020")) (dest "mui:libs/mui") (newname @each-name) (optional "nofail") ) 
  898.         (copylib (source (tackon mui_localdir @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  899.       )
  900.     )
  901.  
  902.     (foreach mui_localdir "#?.mcc"
  903.        (if (AND (= whatver 1) (exists (cat (tackon mui_localdir @each-name) ".020") ) )
  904.         (copylib (source (cat (tackon mui_localdir @each-name) ".020")) (dest "mui:libs/mui") (newname @each-name) (optional "nofail") ) 
  905.         (copylib (source (tackon mui_localdir @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  906.        )  
  907.     )
  908.    )
  909.  
  910.    (message (cat #newermui muiver #nompc)) 
  911.   )
  912. )
  913. )
  914.  
  915.  
  916.  
  917. ;********************************************************************
  918. ; Copy update Lib if wanted 
  919. ;********************************************************************
  920. (set deflibs 15)
  921. (if (> (exists "libs") 0)
  922.  (
  923.   (set deflibs 0)
  924.   (if (> (exists (tackon "libs" "vapor_update.library")) 0)       (set deflibs (+ deflibs 1)))
  925.   (if (> (exists (tackon "libs" "vapor_toolkit.library")) 0)      (set deflibs (+ deflibs 2)))
  926.   (if (> (exists (tackon "libs" "vapor_registration.library")) 0) (set deflibs (+ deflibs 4)))
  927.   (if (> (exists (tackon "libs" "CManager.library")) 0)           (set deflibs (+ deflibs 8)))
  928.  
  929.   (set libPick (askoptions (choices #lib1 #lib2 #lib3 #libC)
  930.               (prompt #updatedlibs)
  931.                       (help   (cat #libhelp1 #libhelp2 #libhelp3 #libhelpC))
  932.                     (default deflibs)
  933.            )
  934.   )
  935.  
  936.   (if (> libPick 0)
  937.    (
  938.     (set wherelibs (askdir (prompt #wherelibs)
  939.                   (help   #wherelibs)
  940.                        (default "LIBS:")
  941.                    )  
  942.     )
  943.     
  944.     (if (IN libPick 0)
  945.      (if (> (exists (tackon "libs" "vapor_update.library")) 0)
  946.       (copylib (source (tackon "libs" "vapor_update.library")) (dest wherelibs) (optional "nofail"))  
  947.      )
  948.     )
  949.  
  950.     (if (IN libPick 1)
  951.      (if (> (exists (tackon "libs" "vapor_toolkit.library")) 0)
  952.       (copylib (source (tackon "libs" "vapor_toolkit.library")) (dest wherelibs) (optional "nofail"))  
  953.      )
  954.     )
  955.  
  956.     (if (IN libPick 2)
  957.      (if (> (exists (tackon "libs" "vapor_registration.library")) 0)
  958.       (copylib (source (tackon "libs" "vapor_registration.library")) (dest wherelibs) (optional "nofail"))  
  959.      )
  960.     )
  961.  
  962.     (if (IN libPick 3)
  963.      (if (> (exists (tackon "libs" "CManager.library")) 0)
  964.       (copylib (source (tackon "libs" "CManager.library")) (dest wherelibs) (optional "nofail"))  
  965.      )
  966.     )
  967.  
  968.    (working #flushing)
  969.    (run "avail flush > NIL:")
  970.    (run "avail flush > NIL:")
  971.    (run "avail flush > NIL:")
  972.  
  973.    )
  974.  
  975.   )
  976.  )
  977. )
  978.  
  979. ;********************************************************************
  980. ; Check for NList for CManager
  981. ;********************************************************************
  982. (if (exists (tackon "mui:libs/mui" "NListview.mcc")) 
  983.  (set NListfound 1)
  984.  (message (cat #neednlist1 (tackon "MUI:Libs/mui" "NListview.mcc") "\n(" (tackon (expandpath "mui:libs/mui") "NListview.mcc") ")" #neednlist2) ) 
  985. )
  986.  
  987. ;********************************************************************
  988. ; Check for Popph 
  989. ;********************************************************************
  990. (if (exists (tackon "mui:libs/mui" "popplaceholder.mcc")) 
  991.  (set Popph 1)
  992.  (message (cat #needpopph1 (tackon "MUI:Libs/mui" "popplaceholder.mcc") "\n(" (tackon (expandpath "mui:libs/mui") "popplaceholder.mcc") ")" #needpopph2) ) 
  993. )
  994.  
  995.  
  996. ;********************************************************************
  997. ; Reg stuff Register-Voyager
  998. ;********************************************************************
  999. (procedure checkforkey
  1000.  (set foundkey 0) 
  1001.  (set kc "Voyager.key")
  1002.  
  1003.  (if (exists kc (noreq)) (set foundkey 1) )
  1004.  (if (exists (tackon where kc) (noreq)) (set foundkey 1) )
  1005.  (if (exists (tackon "s:" kc) (noreq)) (set foundkey 1) )
  1006.  (if (exists (tackon "l:" kc) (noreq)) (set foundkey 1) )
  1007.  (if (exists (tackon "libs:" kc) (noreq)) (set foundkey 1) )
  1008.  (if (exists (tackon "keypath:" kc) (noreq)) (set foundkey 1) )
  1009.  (if (exists (tackon "keyfiles:" kc) (noreq)) (set foundkey 1) )
  1010.  
  1011.  (if (= foundkey 0)
  1012.   (set wantkey (askchoice  (choices #insregstuffno #insregstuff)
  1013.                        (prompt #installerreg)
  1014.                            (help #installerreg)
  1015.                        (default 1)
  1016.                )
  1017.   )
  1018.  
  1019.   (set wantkey 0)
  1020.  )
  1021. )
  1022.  
  1023.  
  1024. (if (exists "Register-Voyager") 
  1025.  (checkforkey)
  1026. )
  1027.  
  1028.  
  1029.  
  1030. (if (AND (exists "Register-Voyager") (= wantkey 1))
  1031.  (
  1032.   (if (< (exists (tackon where "Register-Voyager")) 2) (makedir (tackon where "Register-Voyager") (infos)) )    
  1033.   (if (exists "Register-Voyager.info")
  1034.     (copyfiles (source "Register-Voyager.info") (dest where) (optional "nofail") ) 
  1035.   )
  1036.   (set whereR (tackon where "Register-Voyager"))
  1037.  
  1038.  
  1039.   (set whatreg  (askchoice (choices "English"  "Deutsch" "Francais" )
  1040.                            (prompt "What Registration Files (Language) would you like to install?")
  1041.                        (help   "What Registration Files (Language) would you like to install?")
  1042.                         (default 0)
  1043.                 )  
  1044.   )
  1045.  
  1046.   (if (= whatreg 0) ((set basereg "English")  (set baseregTT "English") ) )
  1047.   (if (= whatreg 1) ((set basereg "Deutsch")  (set baseregTT "Deutsch") ) )
  1048.   (if (= whatreg 2) ((set basereg "Francais") (set baseregTT "French")  ) )
  1049.  
  1050.   (if (exists "Register-Voyager/RegistrationUtility") 
  1051.     (copyfiles (source "Register-Voyager/RegistrationUtility")
  1052.                (dest whereR)
  1053.                (infos)
  1054.     )
  1055.   )
  1056.  
  1057.   ;(if (exists (tackon "Register-Voyager" (cat "Regtool-" basereg ".info")) )
  1058.   ;  (copyfiles (source (tackon "Register-Voyager" (cat "Regtool-" basereg ".info")) )
  1059.   ;             (dest whereR) 
  1060.   ;             (newname "RegistrationUtility.info")
  1061.   ;  )
  1062.   ;)
  1063.  
  1064.   (if (exists (tackon "Register-Voyager" (cat "Reg_" basereg ".guide")) ) 
  1065.     (copyfiles (source (tackon "Register-Voyager" (cat "Reg_" basereg ".guide")))
  1066.                (dest whereR) 
  1067.                (infos)
  1068.     )
  1069.   )
  1070.  
  1071.   (if (exists (tackon "Register-Voyager" (cat "Reg_" basereg ".doc")) )
  1072.     (copyfiles (source (tackon "Register-Voyager" (cat "Reg_" basereg ".doc")))
  1073.                (dest whereR) 
  1074.                (infos)
  1075.     )
  1076.   )
  1077.  
  1078.  
  1079.  )
  1080. )
  1081.  
  1082. ;********************************************************************
  1083. ; End Bye 
  1084. ;********************************************************************
  1085. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  1086. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  1087. (run (cat "run " #mpath "/multiview V.readme") )
  1088.  
  1089. (exit #byebye)
  1090.