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