home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Online / RCFTPd / Install < prev    next >
Text File  |  2000-07-25  |  3KB  |  136 lines
  1. ; Install script for Bump
  2. ; ©1999 Robin Cloutman
  3.  
  4. (set @default-dest "C:")
  5.  
  6. ;---------------------------------------------------------------------------
  7. ;(if (= @language "english)
  8. ;(
  9. (set #setup-text "Checking system and application...")
  10.  
  11. (set #dest-prompt "Where do you want to install RC-FTPd?\n(A new drawer will NOT be created)")
  12. (set #dest-help "It doesn't matter where you put this,\nalthough I strongly suggest you\ndon't hide it 30 levels down...")
  13.  
  14. (set #cpu-prompt "Which version of RC-FTPd do you wish to install?")
  15. (set #cpu-help "Unless you have some reason to choose\na different version, best leave\nthis to the default version.\n(The 68000 version is safe for all cpu's)")
  16.  
  17. (set #install-prompt "Installing RC-FTPd...")
  18. (set #install-help "It's pretty useless without this...")
  19.  
  20. (set #help-prompt "Installing the Guide...")
  21. (set #help-help "This one isn't updated every time the main\nprogram is, however whenever it\nis I bump the version to match\nthe server...")
  22.  
  23. (set #mui-prompt "Checking MUI libs...")
  24. (set #mui-help "It's pretty useless without these...")
  25.  
  26. (set #key-prompt "Installing the RC-FTPd keyfile...")
  27. (set #key-help "Well, why don't you want to install it,\nit's not as if you really want to use\nall the features anyway...")
  28.  
  29. (set #readme-prompt "Reading a relevent file")
  30. (set #readme-help "Erm? Help? Anyone???")
  31. ;)
  32. ;---------------------------------------------------------------------------
  33.  
  34. (if (= (exists "ftpd") 0)(abort "ERROR - Cannot find default executable!!!"))
  35.  
  36. (welcome)
  37.  
  38. (complete 0)
  39.  
  40. (working #setup-text)
  41. (set #cpu (substr (database "cpu") 3 1))
  42. (set #max 0)
  43. (foreach "" "ftpd_0?0" (
  44.     (set #chr (substr @each-name (- (strlen @each-name) 2) 1))
  45.     (if (> #chr #max)(set #max #chr))
  46. ))
  47. (if (> #cpu #max)(set #cpu #max))
  48. (if (>= @user-level 1)(
  49.     (set #cpu
  50.         (askchoice
  51.             (if (= #max 6)    (choices "68000" "68020/68030" "68040" "68060")
  52.             (if (= #max 4)    (choices "68000" "68020/68030" "68040+")
  53.             (if (= #max 2)    (choices "68000" "68020+")
  54.                                 (choices "68000+"))))
  55.             (default #cpu)
  56.             (prompt #cpu-prompt)
  57.             (help #cpu-help)
  58.     ))
  59.     (if (= #cpu 3)(set #cpu 6))
  60.     (if (= #cpu 2)(set #cpu 4))
  61.     (if (= #cpu 1)(set #cpu 2))
  62. ))
  63. (if (= #cpu 0)(set #file "ftpd")(set #file (cat "ftpd_0" #cpu "0")))
  64.  
  65. (complete 25)
  66.  
  67. (if (>= @user-level 1)
  68.     (set @default-dest
  69.         (askdir
  70.             (prompt #dest-prompt)
  71.             (help #dest-help)
  72.             (default @default-dest)
  73. )))
  74.  
  75. (complete 50)
  76.  
  77. (copylib
  78.     (prompt #install-prompt)
  79.     (help #install-help)
  80.     (source #file)
  81.     (dest @default-dest)
  82.     (newname "ftpd")
  83.     (infos)
  84.     (noposition)
  85.     (if (>= @user-level 2)(confirm))
  86. )
  87.  
  88. (copylib
  89.     (prompt #help-prompt)
  90.     (help #help-help)
  91.     (source "ftpd.guide")
  92.     (dest @default-dest)
  93.     (infos)
  94.     (noposition)
  95.     (if (>= @user-level 1)(confirm))
  96. )
  97.  
  98. (complete 70)
  99.  
  100. (if (= (exists "libs/mui") 2)
  101.     (foreach "libs/mui/" "#?.mc(c|p)"
  102.         (copylib
  103.             (prompt #mui-prompt)
  104.             (help #mui-help)
  105.             (source (cat "libs/mui/" @each-name))
  106.             (dest "Libs:mui/")
  107. )))
  108.  
  109. (complete 90)
  110.  
  111. (if (= (exists "ftpd.key") 1)
  112.     (copyfiles
  113.         (prompt #key-prompt)
  114.         (help #key-help)
  115.         (source "ftpd.key")
  116.         (dest @default-dest)
  117.         (if (>= @user-level 2)(confirm))
  118. ))
  119.  
  120. (complete 95)
  121.  
  122. (if (= (exists "Thanks.txt") 1)
  123.     (run "Run More Thanks.txt"
  124.         (prompt #readme-prompt)
  125.         (help #readme-help)
  126.     )
  127.     (if (= (exists "ftpd.readme") 1)
  128.         (run "More ftpd.readme"
  129.             (prompt #readme-prompt)
  130.             (help #readme-help)
  131. )))
  132.  
  133. (complete 100)
  134.  
  135. (exit "Installation complete\n\nRC-FTPd has been installed in " @default-dest (quiet))
  136.