home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / comm / amicomsys / install < prev    next >
Encoding:
Text File  |  1998-03-03  |  7.7 KB  |  191 lines
  1. ; Install script for AmiComSys 1.17
  2. ;
  3. ; $VER: AmiComSys-install 1.4 (03.03.98) Håkan Parting
  4. (set highcpu 1)
  5.  
  6. ; ** set system variables **
  7. (set cpu (database "cpu"))
  8. (if (= cpu 68000) (set #cpu 0))
  9. (if (= cpu 68010) (set #cpu 1))
  10. (if (= cpu 68020) (set #cpu 2))
  11. (if (= cpu 68030) (set #cpu 3))
  12. (if (= cpu 68040) (set #cpu 4))
  13. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  14. (set osver (/ (getversion) 65536))
  15. (set foundbetterstring 0)
  16.  
  17. ; set texts
  18. (set #nonlist "AmiComSys requires the MUI-costum-class\nNList.mcc version 19+ by Gilles Masson\n\nIt must be installed before AmiComSys\nPlease, download it from Aminet:dev/mui/MCC_NList0.75.lha\nAnd install it with the included installer script\nThen try to install AmiComSys again ...")
  19. (set #nomui "AmiComSys requires Magic User Interface (MUI) 3.8!\n\nYou can find it on Aminet:dev/gui/mui38usr.lha")
  20. (set #wrongcpu0 "This archive does only include a version for 68020 and\nhigher.\n\nYou may download a 68000 version from\nhttp://hem.passagen.se/hparting/amigapa.html\nAt the bottom of the page\n\nInstallation is aborted")
  21. (set #wrongcpu2 "This archive does only include a version for 68000 and\nhigher. A version for 68020 and higher is available\nat http://hem.passagen.se/hparting/amigapa.html\nor\nAminet:comm/net/AmiComSysMUI.lha")
  22. (set #noamarquee "AmiComSys requires AMarquee.library version 47+ by Jeremy Friesner!\n\nPlease download it from Aminet:comm/net/AMarquee1_47.lha")
  23. (set #seldocs "Select which documentation you want to install!")
  24. (set #selscr "Do you want to install the following Arexx-scripts?\nThey may be executed at different occasions.\nIf you already have a costum version of these you\nshould not check the checkboxes infront of the names.")
  25. (set #selscrhelp "The NotifyArexx.amicomsys may be executed when someone is\nconnecting or disconnecting. A simple example is included in this\narchive, but a more versatile one can be found at\nAminet:comm/net/ACS-Notify.lha and is written by Scott Beardwood\nThe MessageArexx.amicomsys script may be executed when someone\nmessage you. There is a simple example script in this archive.\nThese scripts does only work if you have registered AmiComSys.")
  26. (set #readmefile "AmiComSysMUI1.17.readme");
  27. (set #notextinput "If you are using Amiga Kickstart 36, 37 or 38\nAmiComSys requires the costum MUI class\nTextinput.mcc.\nThis class couldn't be found in\nyour LIBS:/mui directory.\n\nPlease download it from\nftp://ftp.vapor.com/misc/textinpt_13.XX.lzx\nwhere XX is 34 or higher.");
  28.  
  29. (message
  30.      "Welcome to the AmiComSys 1.17 installer!\n\n"
  31.     "You may either use this for a first\n"
  32.     "time install or for updating a former\n"
  33.     "version of AmiComSys.\n\n\n"
  34.     "AmiComSys © Håkan Parting 1997-1998\n"
  35.     "68020 version\n"
  36.     "Requires:\n"
  37.     "MUI 3.8+ © Stefan Stuntz\n"
  38.     "AMarquee 1.47+ © Jeremy Friesner\n"
  39.     "NList.mcc 19+ © Gilles Masson\n"
  40.     "BetterString.mcc © Allan Odgaard\n"    
  41. )
  42.  
  43. (if (< (exists "MUI:") 2) (exit #nomui) )
  44. (if (exists "LIBS:muimaster.library") (
  45.     (set muiver (/(getversion "LIBS:muimaster.library") 65536))
  46. ))
  47. (if (< muiver 19) ( 
  48.     (exit #nomui)
  49. ))
  50.  
  51. (set muiver 0)
  52. (if (exists "LIBS:MUI/NList.mcc") (
  53.     (set muiver (/(getversion "LIBS:MUI/NList.mcc") 65536))
  54. ))
  55. (if (< muiver 19) ( 
  56.     (exit #nonlist)
  57. ))
  58.  
  59. (set amaver 0)
  60. (if (exists "LIBS:amarquee.library") (
  61.     (set amaver (/(getversion "LIBS:amarquee.library") 65536))
  62. ))
  63. (if (< amaver 47) ( 
  64.     (exit #noamarquee)
  65. ))
  66.  
  67. (set texver 0)
  68. (if (< osver 39) (
  69.     (if (exists "LIBS:mui/Textinput.mcc") (
  70.         (set texver (/(getversion "LIBS:mui/Textinput.mcc") 65536))
  71.     ))
  72.     (if (< texver 13) ( 
  73.         (exit #notextinput)
  74.     ))
  75.     (if (exists "LIBS:mui/BetterString.mcc") (
  76.         (set foundbetterstring 1)
  77.     ))
  78. ))
  79.  
  80. (welcome)
  81. (set cpuVal (askchoice (choices "68000" "68010" "68020" "68030"
  82.                          "68040" "68060"
  83.                     )
  84.                 (prompt "Please, select the processor your Amiga have")
  85.                 (help   "Recommended is to leave it as default")
  86.                   (default #cpu)
  87.           )
  88. )
  89.  
  90. (if (= highcpu 1) (if (< cpuVal 2) (exit #wrongcpu0) ))
  91. (if (= highcpu 0) (if (> cpuVal 1) (message #wrongcpu2) ))
  92.  
  93. (set DefDir (getassign "MIAMI"))
  94. (if (= DefDir "") (set DefDir (getassign "AmiTCP")) )
  95. (if (= DefDir "") (set DefDir (getassign "Inet")) )
  96.  
  97. (set #target (askdir    (prompt "Where do you want to install AmiComSys?\nA directory named AmiComSys will be created.")
  98.                         (help "Select a directory, where you want to install AmiComSys!\nA directory named AmiComSys will be created there.")
  99.                         (default @default-dest)
  100. ))
  101.  
  102. (set instdir (tackon #target "AmiComSys"))
  103. (set @default-dest instdir)
  104.  
  105. (makedir instdir (infos))
  106.  
  107. ; copy over files
  108.  
  109. (copyfiles (source "AmiComSys") (dest instdir) )
  110.  
  111. (if (= (exists (tackon instdir "AmiComSys.info")) 1))
  112. (
  113.     (makedir (tackon instdir "icons") (infos))
  114.     (copyfiles (source "AmiComSys.info") (dest (tackon instdir "icons")))
  115. )
  116. (if (= (exists (tackon instdir "AmiComSys.info")) 0))
  117.     (copyfiles (source "AmiComSys.info") (dest instdir))
  118.  
  119. ;(tooltype (dest (tackon instdir "AmiComSys")) (settooltype "PROGDIR" instdir) )
  120.  
  121. (copyfiles (source "Contrib") (dest (tackon instdir "Contrib")) (all) (infos))
  122. (copyfiles (source "Register") (dest (tackon instdir "Register")) (all) (infos))
  123.  
  124. (copyfiles (source "Rexx") (pattern "~(NotifyArexx.amicomsys|MessageArexx.amicomsys)") (dest (tackon instdir "Rexx")))
  125.  
  126. (set arscrp (askoptions (choices "NotifyArexx.amicomsys" "MessageArexx.amicomsys")
  127.                     (prompt #selscr)
  128.                     (help #selscrhelp)
  129.                     (default 0)
  130. ))
  131.  
  132. (if (<> arscrp 0) (
  133.     (if (IN arscrp 0) (copyfiles (source "Rexx/NotifyArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  134.     (if (IN arscrp 1) (copyfiles (source "Rexx/MessageArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  135. ))
  136.  
  137. ; install docs
  138. (set docs (askoptions (choices "AmiComSysMUI.guide" "AmiComSys.readme" "BetterString.readme" "Readme.mui")
  139.                 (prompt #seldocs)
  140.                 (help #seldocs)
  141.                 (default 15)
  142. ))
  143.  
  144. (if (<> docs 0) (
  145.     (if (IN docs 1) (copyfiles (source #readmefile) (dest instdir) (newname "AmiComSys.readme") (infos) ) )
  146.     (if (IN docs 0) (
  147.         (set #doctarget (askdir (prompt "Where do you want to install the guide?")
  148.                 (default instdir)
  149.                 (help "Select where to install the documentation.\nRecommended is the AmiComSys directory\nor your HELP: directory.")
  150.         ))
  151.         (copyfiles (source "AmiComSysMUI.guide") (dest #doctarget) (infos))
  152.     ))
  153.     (if (IN docs 2) (
  154.         (copyfiles (source "mui/libs/mui/BetterString.doc") (dest instdir) (infos))
  155.     ))
  156.     (if (IN docs 3) (
  157.         (copyfiles (source "Readme.mui") (dest instdir) (infos))
  158.     ))
  159. ))
  160.  
  161. (if (= foundbetterstring 1) (
  162. (delete "LIBS:mui/BetterString.mcc" (prompt "Do you want to delete the MUI costum class\nBetterString.mcc?\nIt will hang your system when you open MUI-prefs!" )
  163.          (help "This MUI costum class does hang your system on a Kickstart V37 Amiga.")
  164.          (confirm "average")
  165.          (optional "oknodelete" "force")
  166. )
  167. ))
  168.  
  169.  
  170. (if (> osver 38) (
  171. (copylib (prompt #prompt_copy "\n\nBetterString.mcc" )
  172.          (help @copylib-help)
  173.          (confirm "average")
  174.          (source "mui/libs/mui/BetterString.mcc")
  175.          (dest "LIBS:mui/")
  176.          (optional "oknodelete" "force")
  177. )
  178.  
  179. (copylib (prompt #prompt_copy "\n\nBetterString.mcp" )
  180.          (help @copylib-help)
  181.          (confirm "average")
  182.          (source "mui/libs/mui/BetterString.mcp")
  183.          (dest "LIBS:mui/")
  184.          (optional "oknodelete" "force")
  185. )
  186. ))
  187. (message "Thanks for using AmiComSys!\n\n"
  188.         "If the MUI-costum class Newstring.mcc is installed\nit will be used instead of BetterString.mcc\nfor almost every string-gadget. This is optional\nin the General settings - Program page -Various tab\n"
  189.         "You should now start AmiComSys and configure it.\nMost important is that you enter a login name\nand your emailaddress.\nThe emailaddress is your unique name on server\nIt will not be visible for any other user.\n"
  190.         "\nPlease support further development by registering. Read guide for more info.")
  191.