home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 16 / AmigaOS_LeserCD16_02.bin / Online / GoPortscan / Install next >
Text File  |  2002-05-15  |  6KB  |  195 lines

  1. ; $VER: Go Portscan 0.8 Install (OS3.5+)
  2. ; By Ian Chapman
  3.  
  4. ; THIS LINE SHOULD BE COMMENTED OUT TO PRODUCE A PRE OS3.5 VERSION
  5. ;(effect "center" "radial" $FFFF00 $FF0000)
  6.  
  7. (procedure p_copynicons
  8.  
  9.     (set #temp @default-dest)
  10.     (copyfiles
  11.         (source "icons/gpexe.new.info")
  12.         (newname "GoPortscan!.info")
  13.         (dest @default-dest)
  14.     )
  15.     (copyfiles
  16.         (source "icons/gpexe.new.info")
  17.         (newname "def_goportscan.info")
  18.         (dest "ENVARC:Sys/")
  19.     )
  20.     (copyfiles
  21.         (source "icons/doc_en.new.info")
  22.         (newname "GoPortscan!_en.guide.info")
  23.         (dest @default-dest)
  24.     )
  25.     (set #temp (pathonly #temp ))
  26.     (copyfiles
  27.         (source "icons/gpdir.new.info")
  28.         (newname "GoPortscan!.info")
  29.         (dest #temp)
  30.     )
  31. )
  32.  
  33. (procedure p_copy35icons
  34.     (set #temp @default-dest)
  35.  
  36.     (copyfiles
  37.         (source "icons/gpexe.35.info")
  38.         (newname "GoPortscan!.info")
  39.         (dest @default-dest)
  40.     )
  41.  
  42.     (copyfiles
  43.         (source "icons/gpexe.35.info")
  44.         (newname "def_goportscan.info")
  45.         (dest "ENVARC:Sys/")
  46.     )
  47.     (copyfiles
  48.         (source "icons/doc_en.35.info")
  49.         (newname "GoPortscan!_en.guide.info")
  50.         (dest @default-dest)
  51.     )
  52.     (set #temp (pathonly #temp ))
  53.     (copyfiles
  54.         (source "icons/gpdir.35.info")
  55.         (newname "GoPortscan!.info")
  56.         (dest #temp)
  57.     )    
  58. )
  59.  
  60.  
  61. ; THIS LINE SHOULD BE COMMENTED OUT TO PRODUCE A PRE OS3.5 VERSION
  62. ;(showmedia '#logo' "images/logo.jpg" "upper_left" "none" 0)
  63.  
  64. (message "Welcome to the Go Portscan! 0.8 Installation Utility\n By Ian Chapman\n\nGo Portscan! is a TCP/UDP Portscanner\nwith service lookup and many other features.")
  65.  
  66. (set @default-dest
  67.     (askdir
  68.         (prompt "Where would you like to install Go Portscan! 0.8?\n(Note: A new directory called GoPortscan! will be created, if it does not exist.)")
  69.         (help "The installer is asking where you would like Go Portscan! and related files to be installed. A new directory called GoPortscan! will be created for you, if it does not already exist. Currently no backups are made of an existing installation.")
  70.         (default @default-dest)
  71.     )
  72. )
  73.  
  74. (set @default-dest (tackon @default-dest "GoPortscan!"))
  75. (makedir @default-dest)
  76. (set #arexxdir @default-dest)
  77. (set #arexxdir (tackon #arexxdir "AREXX"))
  78. (makedir #arexxdir)
  79.  
  80.  
  81. ; Catalog related stuff
  82.  
  83. (set #catalogdir @default-dest)
  84. (set #catalogdir (tackon #catalogdir "catalogs"))
  85. (makedir #catalogdir)
  86. (copyfiles
  87.     (source "catalogs/GoPortscan.cd")
  88.     (dest #catalogdir)
  89. )
  90.  
  91. (set #processor
  92.     (askchoice
  93.         (default 1)
  94.         (prompt "Go Portscan! has two versions for different processors. Please choose one.")
  95.         (help "The installer is asking what version of the Go Portscan! executable you would like to install. If your machine has a 68000 or 68010 installed you should choose this version. For all other processors choose the 68020 version")
  96.         (choices "68000 version (010)" "68020 version (030/040/060)")
  97.     )
  98. )
  99.  
  100.  
  101. (if
  102.     (= 0 #processor)
  103.     (copyfiles
  104.         (source "exes/GoPortscan!.68000")
  105.         (newname "GoPortscan!")
  106.         (dest @default-dest)
  107.     )
  108. )
  109.  
  110. (if
  111.     (= 1 #processor)
  112.     (copyfiles
  113.         (source "exes/GoPortscan!.68020")
  114.         (newname "GoPortscan!")
  115.         (dest @default-dest)
  116.     )
  117. )
  118.  
  119. (set #docdir @default-dest)
  120.  
  121. (askdir
  122.     (prompt "Where would you like me to place the documentation?\n(Currently documentation is only in English)")
  123.     (help "The installer is asking where you would like the Go Portscan! documentation installed. If you are unsure then choose the default location. Note: If you wish to use online help then you must install the documentation in the default location")
  124.     (default #docdir)
  125. )
  126.  
  127. (copyfiles
  128.     (infos)
  129.     (source "docs/GoPortscan!_en.guide")
  130.     (dest #docdir)
  131. )
  132.  
  133.  
  134. (copyfiles
  135.     (prompt "Where would you like me to install the example AREXX scripts?")
  136.     (infos)
  137.     (all)
  138.     (source "arexx")
  139.     (dest #arexxdir)
  140.     (help "The installer is asking which AREXX scripts you would like to install, and where you would like to install them. If you are unsure, it is recommended that you choose the default")
  141.     (confirm)
  142. )
  143.  
  144. (copylib
  145.     (prompt "About to install reqtools.library")
  146.     (source "libs/reqtools.library")
  147.     (dest "libs:")
  148.     (help "Reqtools is a required library for use with Go Portscan!. You must have it installed in order to use Go Portscan!")
  149.     (confirm)
  150. )
  151.  
  152. (copylib
  153.     (prompt "About to install Busy.mcc")
  154.     (source "libs/Busy.mcc")
  155.     (dest "MUI:libs/mui")
  156.     (help "This is a required MUI library. You must have it installed in order to use Go Portscan!")
  157.     (confirm)
  158. )
  159.  
  160. (copylib
  161.     (prompt "About to install Busy.mcp")
  162.     (source "libs/Busy.mcp")
  163.     (dest "MUI:libs/mui")
  164.     (help "This is a required MUI library. You must have it installed in order to use Go Portscan!")
  165.     (confirm)
  166. )
  167.  
  168. ; THIS LINE SHOULD BE COMMENTED OUT TO PRODUCE A PRE OS3.5 VERSION
  169. ;(closemedia #logo)
  170. ; THIS LINE SHOULD BE COMMENTED OUT TO PRODUCE A PRE OS3.5 VERSION
  171. ;(showmedia '#iconpic' "images/icons.iff" "upper_left" "none" 0)
  172.  
  173. (set #iconchoice (askchoice
  174.                     (prompt "Please choose the icon set you would like to use\n(If you have any important tooltypes set, then do not install these icons)")
  175.                     (choices "GlowIcons (requires OS3.5+)" "NewIcons (by Luca Longone)" "NONE/Keep current icons")
  176.                     (help "The installer is asking which set of icons you would like installed.\n\n'NewIcons' require the NewIcons patched installed, or OS3.5+ with NewIcons enabled.\n\n'GlowIcons' required OS3.5+\n\nThe standard 8 colour icons will work with any setup.\n\nNote: If you have any important tooltypes set on your current installation you should choose not to install the icons, otherwise they will be overwritten. You can still install the icons manually, later")
  177.                     (default 0)
  178.                     )
  179. )
  180.  
  181. ; THIS LINE SHOULD BE COMMENTED OUT TO PRODUCE A PRE OS3.5 VERSION
  182. ;(closemedia #iconpic)
  183.  
  184. (if
  185.     (= #iconchoice 0)
  186.     (p_copy35icons)
  187. )
  188.  
  189. (if (= #iconchoice 1)
  190.     (p_copynicons)
  191. )
  192.  
  193. ; THIS LINE SHOULD BE COMMENTED OUT TO PRODUCE A PRE OS3.5 VERSION
  194. ;(openwbobject @default-dest)
  195.