home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / netinfo / old / netinfo_136.lha / NetInfo1_36 / Install_NetInfo < prev    next >
Encoding:
Text File  |  1997-07-11  |  20.6 KB  |  471 lines
  1. ;******************************************************************************
  2. ;
  3. ;     _   __         __   ______               
  4. ;    / \ / /       _/ /_ /_  __/              
  5. ;   /   \ /______ /  __/  / /  ______ ______ ______
  6. ;  / /\  // ____/ / /    / /  / __  // ____// __  /
  7. ; / / / // __/_  / /_ __/ /_ / / / // __/  / /_/ /
  8. ;/_/ /_//_____/ /___//_____//_/ /_//_/    /_____/ The Clone
  9. ;
  10. ; $VER: NetInfo_Installer 0.79 (July-07-1997) 
  11. ; NetInfo by Oliver Wagner & Philip Law ⌐1997
  12. ; Installer by Robert C. Reiswig ⌐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. ; NetInfo@vgr.com or vgr@best.com
  17. ;******************************************************************************
  18.  
  19. ;*** System Stuff ***
  20. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  21. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  22. (set osver (/ (getversion "LIBS:version.library") 65536))
  23. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  24. (set fastmem (- totmem graphmem))
  25.  
  26. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  27. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  28. (if (= osver 41) (set workbench "3.2"))
  29.  
  30. (set cpu (database "cpu"))
  31. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  32. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  33. (if (= cpu 68040) (set #cpu 4)) 
  34. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  35.  
  36. (set vernum1 (getversion "NetInfo")) (set ver1 (/ vernum1 65536))
  37. ;(set vernum1 (getversion "mui/StringNumeric.mcc")) (set ver1 (/ vernum1 65536)) 
  38.  
  39. (set rev1 (- vernum1 (* ver1 65536) ) ) (set NetInfover (cat ver1 "." rev1))
  40.  
  41. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  42. (set lan 0)
  43.  
  44. (if (= "english"    lanfound) (set lan 0))  (if (= "deutsch"    lanfound) (set lan 1))
  45. (set #English    "English")  (set #Deutsch    "Deutsch")
  46.  
  47. (set mfound 0) (set newicon1 1) 
  48. (set keeper 1) (set firsttime 0)
  49.  
  50. ;********************************************************************
  51. ; English Strings
  52. ;********************************************************************
  53. (set #about (cat "\n\n\n\nWelcome to NetInfo " NetInfover "\n\n\nCopyright ⌐ 1997 by\n\nOliver Wagner & Philip Law\n") )
  54. (set #installup " Install or Update NetInfo")
  55. (set #clearcache " Clear Cache Directory")
  56. (set #task "\nWhat would you like to do?\n")
  57. (set #whereNetInfo "Where do you wish to install NetInfo. The directory 'NetInfo' will be created if it is not there. If a copy of NetInfo is found it will be backed up.")
  58. (set muiver "No Version Installed")
  59. (set #newermui "\nNetInfo 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")
  60. (set #nomuiarc "\nThe installer could not find the MUI dir in the archive. Because of this the MUI Classes used by NetInfoNG were not installed.\n\n If you are Updating NetInfoNG then this is not a problem. If it is your first time installing NetInfoNG you will need to get an archive with these files.")
  61. (set #updatingmuic "\nUpdating the MUI Classes if needed.\n\n(#?.mcc & #?.mcp)")
  62. (set #nompc "\nThe .MCC files for NetInfoNG can not be installed to 'mui:libs/mui'")
  63. (set #need-os "\n\nNetInfo needs version 3.0 or higher of the Amiga OS installed to work correctly.\n\n It looks like you have: \n\n")
  64. (set #000used "\n\nThe 68000 version will be installed.") 
  65. (set #nompc "\nThe .MPC files for NetInfo can not be installed to 'mui:libs/mui'")
  66. (set #noreg1 "\nThe installer could not find 'S:NetInfo.Key' or '")
  67. (set #noreg2 "' on your system. It also does not seem to be in the archive you are installing NetInfo from. You may need to get the archive again.\n\nThe installer will now run the Registration Utility, 'Registrationutility'.")   
  68. (set #filethere1 "\n\nThe installer has found NetInfo version ")
  69. (set #filethere2 " at ")
  70. (set #filethere3 "\n\nThe file will be renamed to ")
  71. (set #filethere4 " and it will then be moved to ")
  72. (set #backuptoXXX "Back-UP to file named 'NetInfo.")
  73. (set #copyover "Copy Over Old Version")
  74. (set #oktodelete1 "\nIs it ok to delete the older NetInfo binary so that the NetInfo Directory can be made?\n")
  75. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ NetInfo binary so that the NetInfo Directory can be made?\n")
  76. (set #NetInfofound "\nThe Installer has found a copy of NetInfo already installed. What do you want to do?\n")
  77. (set #no030found "\n\nThe 68030+FPU Version of NetInfo, V030, was not found in this archive this is why the 68000 version was installed.")
  78. (set #newicon "\nDo you wish to copy over The NetInfo Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  79. (set #nonewicon  "No  - ToolTypes already set.")
  80. (set #yesnewicon "Yes - Copy over Icon.")
  81. (set #yesnewicon "Yes - Copy over Icon.")
  82. (set #whatcat "\nSelect the NetInfo Language catalog you wish to install.\n")
  83. (set #wherecat "\nWhere do you wish to install the NetInfo Language Catalog? Default is ")
  84. (set #catnofind "Can not find this catalog in this NetInfo archive. You may need to get a newer archive.")
  85. (set #whattools "\nWhat Tools would you like to install? They will be placed in: ")
  86. (set #updatingmuic "\nUpdating the MUI Classes if needed.\n\n(#?.mcc & #?.mcp)")
  87. (set #nomuiarc "\nThe installer could not find the MUI dir in the archive. Because of this the MUI Classes used by NetInfo were not installed.\n\n If you are Updating NetInfo then this is not a problem. If it is your first time installing NetInfo you will need to get an archive with these files.")
  88. (set #whatdocs "\nWhat NetInfo documentation would you like to install?\n")
  89. (set #wheredocs "Where would you like the NetInfo documentation you selected to be installed?")
  90. (set #byebye (cat "\nNetInfo Install Complete!\n\n" ))
  91.  
  92. (set #askcpu "\nWhat version of NetInfo would you like to install?\n")
  93. (set #noregdir "\nThe Registration directory was not found. This means that the archive has been altered or is bad. Please get another copy of the NetInfo Archive.\n\nOR\n\nThe Keyfile is missing. Please contact your REG site.")
  94. (set #updatesetpatch "\nThe installer looked for 'c:setpatch' and did not find it or you have a version lower then 40.16. NetInfo 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.)")
  95. (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.")
  96.  
  97. (set #whatcat "\nSelect the NetInfo Language catalog you wish to install.\n")
  98. (set #wherecat "\nWhere do you wish to install the NetInfo Language Catalog? Default is ")
  99. (set #catnofind "Can not find this catalog in this NetInfo archive. You may need to get the complete archive from the support site.")
  100.  
  101. ;********************************************************************
  102. ; German Strings
  103. ;********************************************************************
  104. (if (= lan 1) (set OlliShareSomePizza TRUE) )
  105.  
  106. ;********************************************************************
  107. ; Hello
  108. ;********************************************************************
  109. (message #about)
  110. (welcome) 
  111.  
  112. ;********************************************************************
  113. ; Checks for MUI & OS versions
  114. ;********************************************************************
  115. (set ver 0)
  116. (if (<> (getassign "mui") "")
  117. (
  118.   (if (exists "mui:mui") 
  119.    (
  120.     (set vernum (getversion "mui:mui") )
  121.     (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  122.  
  123.     (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  124.     (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  125.     (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  126.     (if (= ver 13) (set muiver "3.2") )  (if (= ver 14) (set muiver "3.3") )
  127.     (if (= ver 15) (set muiver "3.4") )  (if (= ver 16) (set muiver "3.5") )
  128.     (if (= ver 17) (set muiver "3.6") )  (if (= ver 18) (set muiver "3.7") )
  129.     (if (= ver 19) (set muiver "3.8") )  (if (= ver 20) (set muiver "3.9") )
  130.    )
  131.   )
  132. )
  133. )
  134.  
  135. (if (< ver 17)   ( (message (cat #newermui muiver))   (set cpuPick 0) ))
  136. (if (< osver 39) ( (message (cat #need-os workbench)) (set cpuPick 0) ))
  137.  
  138. ;********************************************************************
  139. ; Ask where to put NetInfo & Make dir if needed
  140. ;********************************************************************
  141. (set Package (getassign "AmiTCP") )
  142. (if (= Package "") (set Package (getassign "Inet")) )
  143.  
  144. (set NetInfodir  (askdir (prompt #whereNetInfo)
  145.                 (help   #whereNetInfo)
  146.                      (default Package)
  147.                )  
  148. )
  149.  
  150. (set where NetInfodir)
  151.  
  152. ;********************************************************************
  153. ; Check to see if NetInfo is already there, if so ask to backup
  154. ;********************************************************************
  155. (if (= 1 (exists (tackon where "NetInfo") ) ) 
  156.   (
  157.     (set vernum1 (getversion (tackon where "NetInfo") ))
  158.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  159.     (set NetInfo_old (cat ver1 "." rev1))
  160.  
  161.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  162.                   (cat "NetInfo" NetInfo_old) #filethere4 (tackon NetInfodir "NetInfo") )
  163.     )
  164.  
  165.     (copyfiles (source (tackon where "NetInfo"))
  166.                (dest where) 
  167.                (infos)
  168.                (newname (cat "NetInfo." NetInfo_old))
  169.     )
  170.     
  171.     (delete (tackon NetInfodir "NetInfo") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  172.  
  173.     (if (< (exists (tackon NetInfodir "NetInfo")) 2) (makedir (tackon NetInfodir "NetInfo") (infos)) )    
  174.  
  175.     (copyfiles (source (tackon where (cat "NetInfo." NetInfo_old) ))
  176.                        (dest (tackon NetInfodir "NetInfo")) 
  177.                        (infos)
  178.                
  179.     )
  180.  
  181.     (delete (tackon where (cat "NetInfo" NetInfo_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  182.  
  183.     ;(set firsttime 1)
  184.  
  185.   )
  186. )
  187.  
  188. (if (< (exists (tackon NetInfodir "NetInfo")) 2) (makedir (tackon NetInfodir "NetInfo") (infos)) )
  189.  
  190. (set where (tackon NetInfodir "NetInfo"))
  191. (set @default-dest where)
  192.  
  193. ;********************************************************************
  194. ; Check for old & backup
  195. ;********************************************************************
  196. (if (exists (tackon where "NetInfo")) 
  197.   (
  198.       (set vernum1 (getversion (tackon where "NetInfo") ))
  199.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  200.       (set NetInfo_old (cat ver1 "." rev1))
  201.  
  202.       (set keeper  (askchoice (choices  (cat #backuptoXXX NetInfo_old "'")  #copyover)
  203.                      (prompt #NetInfofound)
  204.                  (help   #NetInfofound)
  205.                      (default 0)
  206.                )
  207.       )    
  208.  
  209.       (if (= keeper 0)
  210.          (copyfiles (source (tackon where "NetInfo"))
  211.                      (dest where) 
  212.                      (infos)
  213.                      (newname (cat "NetInfo" NetInfo_old))
  214.          )
  215.       )          
  216.  
  217.       (set firsttime 1)
  218.   )
  219. )
  220.  
  221. ;********************************************************************
  222. ; Copy over correct NetInfo and Icon if wanted
  223. ;********************************************************************
  224. (copyfiles (source "NetInfo") (dest where) (optional "nofail") )
  225.  
  226. (if (= firsttime 0)  (copyfiles (source "NetInfo.info") (dest where) (optional "nofail") ) )
  227.  
  228. (if (OR (= keeper 1) (= (exists (tackon where "NetInfo.info")) 0))
  229.   (
  230.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  231.                            (prompt #newicon)
  232.                        (help   #newicon)
  233.                            (default 0)
  234.             )
  235.    )
  236.   
  237.    (if (= newicon 0) 
  238.      (copyfiles (source "NetInfo.info") (dest where)  (optional "nofail") )
  239.    )
  240.   )
  241. )
  242.  
  243. ;********************************************************************
  244. ; copy ButtonImages/#? if there 
  245. ;********************************************************************
  246. (if (> (exists "ButtonImages") 0)
  247.  (
  248.    (if (< (exists (tackon where "ButtonImages")) 2) (makedir (tackon where "ButtonImages"))  )
  249.    (foreach "ButtonImages" "#?"
  250.       (copyfiles (source (tackon "ButtonImages" @each-name)) (dest (tackon where "ButtonImages")) (infos) (optional "nofail") ) 
  251.    )
  252.  )
  253. )
  254.  
  255. ;********************************************************************
  256. ; Select and copy over NetInfo Catalog
  257. ;********************************************************************
  258. (if (> (exists "catalogs") 0) 
  259. (
  260. (set XX 0) (set lan 0)
  261. (foreach "Catalogs" "#?"
  262.  (
  263.   (set XX (+ XX 1)) 
  264.   (textfile (dest (cat "ENV:i.h°ld." XX)) (append @each-name) ) 
  265.   (if (= lanfound @each-name) (set lan XX))
  266.  
  267.   (if (= (patmatch "#?.c#?" @each-name) 1) 
  268.      ( (delete (cat "ENV:i.h°ld." XX)) (set XX (- XX 1))  )
  269.   )
  270.  
  271.  )
  272. )
  273.  
  274. (set l1 "N/A") (set l2 "N/A") (set l3 "N/A") (set l4 "N/A") (set l5 "N/A")
  275. (set l6 "N/A") (set l7 "N/A") (set l8 "N/A") (set l9 "N/A") (set l10 "N/A")
  276. (set l11 "N/A") (set l12 "N/A") (set l13 "N/A") (set l14 "N/A") (set l15 "N/A") 
  277.  
  278. (set l0 "English")
  279. (if (> (exists ("ENV:i.h°ld.1")) 0)   (set l1 (getenv "ENV:i.h°ld.1")) ) (if (> (exists ("ENV:i.h°ld.2")) 0)   (set l2 (getenv "ENV:i.h°ld.2")) )
  280. (if (> (exists ("ENV:i.h°ld.3")) 0)   (set l3 (getenv "ENV:i.h°ld.3")) ) (if (> (exists ("ENV:i.h°ld.4")) 0)   (set l4 (getenv "ENV:i.h°ld.4")) )
  281. (if (> (exists ("ENV:i.h°ld.5")) 0)   (set l5 (getenv "ENV:i.h°ld.5")) ) (if (> (exists ("ENV:i.h°ld.6")) 0)   (set l6 (getenv "ENV:i.h°ld.6")) )
  282. (if (> (exists ("ENV:i.h°ld.7")) 0)   (set l7 (getenv "ENV:i.h°ld.7")) ) (if (> (exists ("ENV:i.h°ld.8")) 0)   (set l8 (getenv "ENV:i.h°ld.8")) )
  283. (if (> (exists ("ENV:i.h°ld.9")) 0)   (set l9 (getenv "ENV:i.h°ld.9")) ) (if (> (exists ("ENV:i.h°ld.10")) 0) (set l10 (getenv "ENV:i.h°ld.10")) )
  284. (if (> (exists ("ENV:i.h°ld.11")) 0) (set l11 (getenv "ENV:i.h°ld.11")) )(if (> (exists ("ENV:i.h°ld.12")) 0) (set l12 (getenv "ENV:i.h°ld.12")) )
  285. (if (> (exists ("ENV:i.h°ld.12")) 0) (set l13 (getenv "ENV:i.h°ld.13")) )(if (> (exists ("ENV:i.h°ld.14")) 0) (set l14 (getenv "ENV:i.h°ld.14")) )
  286. (if (> (exists ("ENV:i.h°ld.15")) 0) (set l15 (getenv "ENV:i.h°ld.15")) )(if (> (exists ("ENV:i.h°ld.16")) 0) (set l15 (getenv "ENV:i.h°ld.16")) )
  287. (run "delete env:i.h°ld.#?")
  288.  
  289. (set catalog (askchoice (choices l0 l1 l2 l3 l4 l5 l6 l7 l8)            
  290.                         (prompt #whatcat)
  291.                     (help   #whatcat)
  292.                         (default lan)
  293.              )
  294. )
  295.  
  296. (if (= catalog 0)  (set #lcat l0))  
  297. (if (= catalog 1)  (set #lcat l1))  (if (= catalog 2)  (set #lcat l2))  (if (= catalog 3)  (set #lcat l3))  
  298. (if (= catalog 4)  (set #lcat l4))  (if (= catalog 5)  (set #lcat l5))  (if (= catalog 5)  (set #lcat l5))
  299. (if (= catalog 6)  (set #lcat l6))  (if (= catalog 7)  (set #lcat l7))  (if (= catalog 8)  (set #lcat l8))  
  300. (if (= catalog 9)  (set #lcat l9))  (if (= catalog 10) (set #lcat l10)) (if (= catalog 11) (set #lcat l11))
  301. (if (= catalog 12) (set #lcat l12)) (if (= catalog 13) (set #lcat l13)) (if (= catalog 14) (set #lcat l14)) 
  302. (if (= catalog 15) (set #lcat l15)) (if (= catalog 16) (set #lcat l16))
  303.  
  304.  
  305. (if (AND (<> catalog 0) (<> #lcat "N/A"))
  306.  (
  307.   (if (> (exists (cat "Catalogs/" #lcat "/NetInfo.catalog")) 0)
  308.     (
  309.         (set wherecat  (askchoice (choices (tackon where (cat "Catalogs/" #lcat)) (cat "Locale:Catalogs/" #lcat) )
  310.                                   (prompt (cat #wherecat (tackon where (cat "Catalogs/" #lcat)) "\n"))
  311.                             (help   #wherecat)
  312.                                (default 0)
  313.                        )  
  314.         )
  315.  
  316.       (if (= wherecat 1)
  317.         (
  318.          (if (< (exists "Locale:") 2) ( (makedir "sys:Locale") (makeassign "Locale" "sys:Locale") ) )
  319.          (if (< (exists "Locale:Catalogs") 2) (makedir "sys:Locale/Catalogs") )
  320.          (if (< (exists (cat "Locale:Catalogs/" #lcat)) 2) (makedir (cat "sys:Locale/Catalogs/" #lcat)) )
  321.          (copylib (source (cat "Catalogs/" #lcat "/NetInfo.catalog")) (dest (cat "sys:Locale/Catalogs/" #lcat)) )
  322.         )
  323.   
  324.         (
  325.          (if (< (exists (tackon where "Catalogs")) 2) (makedir (tackon where "Catalogs")) )
  326.          (if (< (exists (tackon where (cat "Catalogs/" #lcat)) ) 2) (makedir (tackon where (cat "Catalogs/" #lcat)) ) )
  327.          (copylib (source (cat "Catalogs/" #lcat "/NetInfo.catalog")) (dest (tackon where (cat "Catalogs/" #lcat)) ) (optional "nofail") )
  328.         )
  329.       )
  330.  
  331.     )
  332.  
  333.     (message (cat "\nCatalogs/" #lcat "/NetInfo.catalog\n\n" #catnofind))
  334.   )
  335.  
  336.  )
  337. )
  338. ); End if Catalog dir
  339. ); 
  340.  
  341.  
  342. ;********************************************************************
  343. ; Ask and and copy docs if wanted!
  344. ;********************************************************************
  345. (set nodocs 0)
  346.  
  347. (set docs (askoptions (choices " NetInfo.readme")
  348.               (prompt #whatdocs)
  349.                       (help #whatdocs)
  350.                   (default 1)
  351.       )
  352. )
  353.  
  354.  
  355. (if (<> docs 0)
  356.  (
  357.    (set docsdir (askdir (prompt #wheredocs)
  358.                (help   #wheredocs)
  359.                     (default where)
  360.                 )  
  361.    )
  362.  
  363.    (if (IN docs 0)
  364.     (copyfiles (source "netinfo.readme") (dest docsdir) (infos) (optional "nofail") )
  365.    )
  366.  )
  367. )
  368.  
  369. ;********************************************************************
  370. ; Copy over #?.mpc|#?.mcc (Need to be in mui:libs/mui)
  371. ;********************************************************************
  372. (if (<> (getassign "mui") "")
  373. (
  374.   (if (> (exists "mui:libs/mui") 0) 
  375.    (
  376.     (working #updatingmuic)
  377.     (foreach "mui" "#?.mcp"
  378.         (copylib (source (tackon "mui" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  379.     )
  380.     (foreach "mui" "#?.mcc"
  381.         (copylib (source (tackon "mui" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  382.     )
  383.    )
  384.  
  385.    (message (cat #newermui muiver #nompc)) 
  386.   )
  387. )
  388. )
  389.  
  390. ;********************************************************************
  391. ; Reg stuff 
  392. ;********************************************************************
  393. (if (exists"Registration") 
  394.  (
  395.   (if (< (exists (tackon where "Registration")) 2) (makedir (tackon where "Registration") (infos)) )    
  396.   (if (exists "Registration.info")
  397.     (copyfiles (source "Registration.info") (dest where) (optional "nofail") ) 
  398.   )
  399.   (set whereR (tackon where "Registration"))
  400.  
  401.  
  402.   (set whatreg  (askchoice (choices "English"  "Deutsch" "Francais" "Svenska" )
  403.                            (prompt "What Registration Files (Language) would you like to install?")
  404.                        (help   "What Registration Files (Language) would you like to install?")
  405.                         (default 0)
  406.                 )  
  407.   )
  408.  
  409.   (if (= whatreg 0) ((set basereg "English")  (set baseregTT "English") ) )
  410.   (if (= whatreg 1) ((set basereg "Deutsch")  (set baseregTT "Deutsch") ) )
  411.   (if (= whatreg 2) ((set basereg "Francais") (set baseregTT "French")  ) )
  412.   (if (= whatreg 3) ((set basereg "Svenska")  (set baseregTT "Svenska")  ) )
  413.  
  414.   (if (exists "Registration/RegistrationUtility") 
  415.     (copyfiles (source "Registration/RegistrationUtility")
  416.                (dest whereR) 
  417.     )
  418.   )
  419.  
  420.   (if (exists (tackon "Registration" (cat "Regtool-" basereg ".info")) )
  421.     (copyfiles (source (tackon "Registration" (cat "Regtool-" basereg ".info")) )
  422.                (dest whereR) 
  423.                (newname "RegistrationUtility.info")
  424.     )
  425.   )
  426.  
  427.   (if (exists (tackon "Registration" (cat "Reg_" basereg ".guide")) ) 
  428.     (copyfiles (source (tackon "Registration" (cat "Reg_" basereg ".guide")))
  429.                (dest whereR) 
  430.                (infos)
  431.     )
  432.   )
  433.  
  434.   (if (exists (tackon "Registration" (cat "Reg_" basereg ".doc")) )
  435.     (copyfiles (source (tackon "Registration" (cat "Reg_" basereg ".doc")))
  436.                (dest whereR) 
  437.                (infos)
  438.     )
  439.   )
  440.  
  441.  
  442.  )
  443. )
  444.  
  445. ;********************************************************************
  446. ; Check on Setpatch 
  447. ;********************************************************************
  448. (set vernum1 (getversion "c:setpatch")) (set ver1 (/ vernum1 65536)) 
  449. (set rev1 (- vernum1 (* ver1 65536) ) ) (set setpatchver (cat ver1 "." rev1))
  450. (set current_setpatch "40.16")
  451. (if (< setpatchVer current_setpatch) (message #updatesetpatch) )
  452.  
  453. ;********************************************************************
  454. ; Check on New installer 
  455. ;********************************************************************
  456. (set InstallerVer 0)
  457. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  458. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  459. (set current_installer "43.3")
  460. (if (< InstallerVer current_installer) (message #updateinstaller) )
  461.  
  462. ;********************************************************************
  463. ; End Bye 
  464. ;********************************************************************
  465. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  466. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  467.  
  468. (run (cat "run " #mpath "/multiview netinfo.readme") )
  469. (exit (quiet) #byebye)
  470.  
  471.