home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / on-line / simpleftp / installos3.5 < prev    next >
Encoding:
Text File  |  2000-06-16  |  6.7 KB  |  294 lines
  1. ; Installer Script for SimpleFTP (AmigaOS 3.5)
  2. ; $VER: SimpleFTP-Install v1.5 (16.6.00) (OS3.5)
  3.  
  4. (effect "lower_left" "horizontal" $000000 $000000)
  5. (set #logo "Install-Logo.gif")
  6. (set #register "Install-Register.gif")
  7. (set #thanks "Install-Thanks.gif")
  8.  
  9. (set #ask-email
  10. (cat "Please enter your e-mail address, this is needed for\n"
  11.      "logging into servers that require anonymous access."
  12. ))
  13.  
  14. (set #install-docs
  15. (cat "Install documentation?\n"
  16. ))
  17.  
  18. (set #select-lang
  19. (cat "Select language:"
  20. ))
  21.  
  22. (set #not-installed
  23. (cat "\nSimpleFTP has NOT been installed.\n"
  24. ))
  25.  
  26. (set #goodbye
  27. (cat "\nInstallation of SimpleFTP is complete.\n\n"
  28.      "Don't forget to configure it before you use it!"
  29. ))
  30.  
  31. (set #select-dir
  32. (cat "Please select somewhere to install SimpleFTP\n"
  33.      "(A directory is NOT created for you)"
  34. ))
  35.  
  36. (set #my-address
  37. (cat "\nContact Information\n\n"
  38.      "Author: Rick Hodger\n"
  39.      "e-Mail: rick@simpleftp.co.uk\n"
  40.      "Bugs: bugs@simpleftp.co.uk\n"
  41.      "Web: http://www.simpleftp.co.uk\n"
  42. ))
  43.  
  44. (set #copyright
  45. (cat "\nSimpleFTP is (C) Copyright 1999-2000 Rick Hodger\n"
  46.      "Written by Rick Hodger\n\n"
  47.      "The author in no way offers any guarantees or warranties "
  48.      "with this program.  By continuing this installation, "
  49.      "you agree that the author is in no way responsable "
  50.      "for any damage caused.\n\n"
  51.      "Do you agree to these terms?"
  52. ))
  53.  
  54. (set #not-enough-space
  55. (cat "\nSorry, you do not have enough space on this drive\n"
  56.      "to install SimpleFTP.  The installation requires 290kb\n"
  57.      "of free space."
  58. ))
  59.  
  60. (set #ask-install-default-mime
  61. (cat "\nDo you want to install the default MIME types?"
  62. ))
  63.  
  64. (set #ask-install-samples
  65. (cat "\nDo you want to install some sound samples\nfor use with SimpleFTP?"
  66. ))
  67.  
  68. (set #ask-install-mui
  69. (cat "\nDo you want to install the NList, NListview and BetterString MUI classes?\n\n"
  70.       "They will be installed to the SimpleFTP directory, and should not\n"
  71.       "interfere with any other MUI programs."
  72. ))
  73.  
  74. ;**************************************************************************************************
  75.  
  76. (showmedia 'logo' #logo 'upper_right' 'none' 0)
  77.  
  78. (user 2)
  79.  
  80. (welcome
  81. (complete 5)
  82. (set agree (askbool (prompt #copyright)
  83.       (help #install-docs-help)
  84.       (choices "Yes" "No")
  85.      )
  86. )
  87.  
  88. (if (= agree 0)       (
  89.   (message #not-installed)
  90.   (exit (quiet))
  91. ))
  92.  
  93. ;******************************************** Locale Stuff 
  94.  
  95. (complete 10)
  96.   (set catalog
  97.     (askchoice
  98.       (choices "English (Built-in)" "Czech" "Deutsch" "Español" "Français" "Greek" "Hungarian" "Italiano" "Norsk" "Português" "Svenska" "Turkish")
  99.        (prompt #select-lang)
  100.       (help   "None here")
  101.     )
  102.   )
  103.   (set loc-target "LOCALE:Catalogs/")
  104.   (set loc-source "locale/")
  105.  
  106.   (if (= catalog 1)     (
  107.     (set loc-target (tackon loc-target "Czech"))
  108.     (set loc-source (tackon loc-source "Czech"))
  109.     (set loc-use 1)
  110.   ))
  111.  
  112.   (if (= catalog 2)     (
  113.     (set loc-target (tackon loc-target "Deutsch"))
  114.     (set loc-source (tackon loc-source "Deutsch"))
  115.     (set loc-use 1)
  116.   ))
  117.    
  118.   (if (= catalog 3)     (
  119.     (set loc-target (tackon loc-target "Español"))
  120.     (set loc-source (tackon loc-source "Español"))
  121.     (set loc-use 1)
  122.   ))
  123.  
  124.   (if (= catalog 4)     (
  125.     (set loc-target (tackon loc-target "Français"))
  126.     (set loc-source (tackon loc-source "Français"))
  127.     (set loc-use 1)
  128.   ))
  129.  
  130.   (if (= catalog 5)     (
  131.     (set loc-target (tackon loc-target "Greek"))
  132.     (set loc-source (tackon loc-source "Greek"))
  133.     (set loc-use 1)
  134.   ))
  135.  
  136.   (if (= catalog 6)     (
  137.     (set loc-target (tackon loc-target "Hungarian"))
  138.     (set loc-source (tackon loc-source "Hungarian"))
  139.     (set loc-use 1)
  140.   ))
  141.  
  142.   (if (= catalog 7)     (
  143.     (set loc-target (tackon loc-target "Italiano"))
  144.     (set loc-source (tackon loc-source "Italiano"))
  145.     (set loc-use 1)
  146.   ))
  147.  
  148.   (if (= catalog 8)     (
  149.     (set loc-target (tackon loc-target "Norsk"))
  150.     (set loc-source (tackon loc-source "Norsk"))
  151.     (set loc-use 1)
  152.   ))
  153.  
  154.   (if (= catalog 9)     (
  155.     (set loc-target (tackon loc-target "Português"))
  156.     (set loc-source (tackon loc-source "Português"))
  157.     (set loc-use 1)
  158.   ))
  159.  
  160.   (if (= catalog 10)     (
  161.     (set loc-target (tackon loc-target "Svenska"))
  162.     (set loc-source (tackon loc-source "Svenska"))
  163.     (set loc-use 1)
  164.   ))
  165.  
  166.   (if (= catalog 11)    (
  167.     (set loc-target (tackon loc-target "Turkish"))
  168.     (set loc-source (tackon loc-source "Turkish"))
  169.   ))
  170.  
  171. (if (= loc-use 1)    (
  172.   (set loc-source (tackon loc-source "SimpleFTP.catalog"))
  173. ;  (if (< (exists (loc-target)) 2) makedir loc-target) )
  174.   (copyfiles (
  175.     (source loc-source)
  176.     (dest   loc-target)
  177.   ))
  178. ))
  179.  
  180. ;=================== Select destination ===================
  181.  
  182. (complete 20)
  183. (set target1         (askdir
  184.    (help   "No help here matey!")
  185.    (prompt #select-dir)
  186.    (default "Miami:")
  187. ))
  188.  
  189. (set size (getdiskspace target1))
  190. (If (< size 298480) (
  191.    (message #not-enough-space)
  192.    (exit (quiet))
  193. ))
  194.  
  195. (set target2 target1)
  196.  
  197. (complete 30)
  198. (if (exists "envarc:mui/SIMPLEFTP.1.PREFS")
  199.   (set #upgrade 1)
  200.   (set #upgrade 0)
  201. )
  202.  
  203. (if (= #upgrade 0)
  204.   (copyfiles
  205.     (
  206.       (prompt "Select files you want installed")
  207.       (help   "Umm....duh?")
  208.       (source  "")
  209.       (dest    target1)
  210.       (choices "SimpleFTP" "SimpleFTP.info" "SimpleFTP.cfg" "SimpleFTP.sites" "Icons" )
  211.       (CONFIRM)
  212.     )
  213.   )
  214.   (copyfiles
  215.     (
  216.       (prompt "Select files you want installed")
  217.       (help   "Umm....duh?")
  218.       (source "")
  219.       (dest   target1)
  220.       (choices "SimpleFTP" "SimpleFTP.info" "Icons")
  221.       (CONFIRM)
  222.     )
  223.   )
  224. )
  225.  
  226. (complete 50)
  227. (set mime-install (askbool (prompt #ask-install-default-mime)
  228.       (help #install-docs-help)
  229.       (choices "Yes" "No")
  230.      )
  231. )
  232. (set target2 (tackon target1 "SimpleFTP.MIME"))
  233. (if (= mime-install 1)       (
  234.   (copyfiles (
  235.     (source "SimpleFTP.MIME")
  236.     (dest   target1)
  237.   ))
  238. ))       
  239.  
  240. (closemedia logo)
  241. (showmedia 'register' #register 'upper_right' 'none' 0)
  242.  
  243. (complete 60)
  244. (set samples-install (askbool
  245.     (prompt #ask-install-samples)
  246.     (help "RTFM")
  247.     (choices "Yes" "No")
  248.   )
  249. )
  250. (if (= samples-install 1) (
  251.   (makedir (tackon target1 "Samples"))
  252.   (copyfiles (
  253.     (source "Samples")
  254.     (dest   (tackon target1 "Samples"))
  255.     (all)
  256.   ))
  257. ))
  258.  
  259. (complete 70)
  260. (set mui-install (askbool
  261.     (prompt #ask-install-mui)
  262.     (help "RTFM")
  263.     (choices "Yes" "No")
  264.   )
  265. )
  266. (if (= mui-install 1) (
  267.   (makedir (tackon target1 "MUI"))
  268.   (copyfiles (
  269.     (source "MUI")
  270.     (dest   (tackon target1 "MUI"))
  271.     (all)
  272.   ))
  273. ))
  274.  
  275. (complete 90)
  276. (copyfiles (
  277.    (prompt "Select files you want installed")
  278.    (help   "Umm...duh?")
  279.    (source "")
  280.    (dest   target1)
  281.    (choices "Docs" "Docs.info")
  282.    (CONFIRM)
  283. ))
  284.  
  285. (closemedia register)
  286. (showmedia 'thanks' #thanks 'upper_right' 'none' 0)
  287. (complete 100)
  288. (message #goodbye)
  289. (message #my-address)
  290.  
  291. (openwbobject target1)
  292. (exit (quiet))
  293. )
  294.