home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Magazine / ActiveShareware / SimpleFTP / Install < prev    next >
Encoding:
Text File  |  1999-09-22  |  3.8 KB  |  165 lines
  1. ; Installer Script for SimpleFTP
  2. ; $VER: Install v1.1 (09.09.99) Argh! No! ;)
  3.  
  4. (set #install-docs
  5. (cat "Install documentation?\n"
  6. ))
  7.  
  8. (set #select-lang
  9. (cat "Select language:"
  10. ))
  11.  
  12. (set #not-installed
  13. (cat "\nSimpleFTP has NOT been installed.\n"
  14. ))
  15.  
  16. (set #goodbye
  17. (cat "\nInstallation of SimpleFTP is complete.\n\n"
  18. ))
  19.  
  20. (set #select-dir
  21. (cat "Please select somewhere to install SimpleFTP\n"
  22.      "(A directory is NOT created for you)"
  23. ))
  24.  
  25. (set #my-address
  26. (cat "Rick Hodger\n"
  27.    "e-Mail: rick@thehub.u-net.com\n"
  28.    "Bugs: bugs@thehub.u-net.com\n"
  29.    "Web: http://www.thehub.u-net.com\n"
  30. ))
  31.  
  32. (set #copyright
  33. (cat "SimpleFTP is (C) Copyright 1998-1999 Rick Hodger\n"
  34.      "Written by Rick Hodger\n\n"
  35.      "The author in no way offers any guarantees or warranties "
  36.      "with this program.  By continuing this installation, "
  37.      "you agree that the author is in no way responsable "
  38.      "for any damage caused.\n\n"
  39.      "Do you agree to these terms?"
  40. ))
  41.  
  42. ;**************************************************************************************************
  43.  
  44. (complete 5)
  45. (set agree (askbool (prompt #copyright)
  46.       (help #install-docs-help)
  47.       (choices "Yes" "No")
  48.      )
  49. )
  50.  
  51. (if (= agree 0)       (
  52.   (message #not-installed)
  53.   (exit (quiet))
  54. ))
  55.  
  56. ;******************************************** Locale Stuff *****************************************
  57.  
  58. (complete 10)
  59. (set catalog         (askchoice
  60.   (choices "English (Built-in)" "Deutsch" "Español" "Français" "Norsk" "Português")
  61.   (prompt #select-lang)
  62.   (help   "None here")
  63. ))
  64. (set loc-target "LOCALE:Catalogs/")
  65. (set loc-source "locale/")
  66.  
  67. (if (= catalog 1)     (
  68.   (set loc-target (tackon loc-target "Deutsch"))
  69.   (set loc-source (tackon loc-source "Deutsch"))
  70.   (set loc-use 1)
  71. ))
  72.  
  73. (if (= catalog 2)     (
  74.   (set loc-target (tackon loc-target "Español"))
  75.   (set loc-source (tackon loc-source "Español"))
  76.   (set loc-use 1)
  77. ))
  78.  
  79. (if (= catalog 3)     (
  80.   (set loc-target (tackon loc-target "Français"))
  81.   (set loc-source (tackon loc-source "Français"))
  82.   (set loc-use 1)
  83. ))
  84.  
  85. (if (= catalog 4)     (
  86.   (set loc-target (tackon loc-target "Norsk"))
  87.   (set loc-source (tackon loc-source "Norsk"))
  88.   (set loc-use 1)
  89. ))
  90.  
  91. (if (= catalog 5)     (
  92.   (set loc-target (tackon loc-target "Português"))
  93.   (set loc-source (tackon loc-source "Português"))
  94.   (set loc-use 1)
  95. ))
  96.  
  97. (if (= loc-use 1)    (
  98.   (set loc-source (tackon loc-source "SimpleFTP.catalog"))
  99. ;  (if (< (exists (loc-target)) 2) makedir loc-target) )
  100.   (copyfiles (
  101.     (source loc-source)
  102.     (dest   loc-target)
  103.   ))
  104. ))
  105.  
  106. ;*************************************** Select destination ****************************************
  107.  
  108. (complete 20)
  109. (set target1         (askdir
  110.    (help   "No help here matey!")
  111.    (prompt #select-dir)
  112.    (default "Miami:")
  113. ))
  114.  
  115. (set target2 target1)
  116.  
  117. (complete 25)
  118. (complete 50)
  119. (copyfiles (
  120.    (prompt "Select files you want installed")
  121.    (help   "Umm....duh?")
  122.    (source  "")
  123.    (dest    target1)
  124.    (choices "SimpleFTP" "SimpleFTP.info" "SimpleFTP.sites" "Icons")
  125.    (CONFIRM)
  126. ))
  127.  
  128. ;(complete 60)
  129. ;(copyfiles (
  130. ;  (prompt "Select extra icons you want installed")
  131. ;  (help   "Yargh"
  132. ;  (source "icons")
  133. ;  (dest   target2)
  134. ;  (choices "upload.info")
  135. ;  (CONFIRM)
  136. ;))
  137.  
  138. (complete 75)
  139. (set docs (askbool (prompt #install-docs)
  140.       (help #install-docs-help)
  141.       (choices "Yes" "No")
  142.      )
  143. )
  144.  
  145. (complete 85)
  146. (if (= docs 1)          (
  147.    (set target3         (askdir
  148.       (prompt "Select Directory for SimpleFTP.html")
  149.       (help "Directory where SimpleFTP.html will be copied to.")
  150.       (default target1)
  151.    ))
  152.    (copyfiles (
  153.       (prompt  "Select files you wish Installed")
  154.       (help "Documentation.")
  155.       (source  "")
  156.       (dest    target3)
  157.       (choices "SimpleFTP.html" "SimpleFTP.html.info" "README.TXT")
  158.       (CONFIRM)
  159.    ))
  160. ))
  161.  
  162. (complete 100) (message #goodbye #my-address)
  163.  
  164. (exit (quiet))
  165.