home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / DC-STF16.LZX / STFax / Install < prev    next >
Encoding:
Text File  |  1997-03-25  |  4.2 KB  |  203 lines
  1. ; $VER: STFax-Install 1.6 (15.3.97)
  2.  
  3. (complete 0)
  4.  
  5. (set InstallDir
  6.    (askdir
  7.       (prompt "Where do you want to install STFax?"
  8.               " (a drawer called 'STFax' will be created there)")
  9.       (help @askdir-help)
  10.       (default "Work:")
  11.    )
  12. )
  13.  
  14. (Set DestDir 
  15.    (tackon InstallDir "STFax")
  16. )
  17.  
  18. (Set FaxInDir
  19.    (tackon DestDir "Fax_In")
  20. )
  21.  
  22. (Set FaxOutDir
  23.    (tackon DestDir "Fax_Out")
  24. )
  25.  
  26. (Set ConfigDir
  27.    (tackon DestDir "Config")
  28. )
  29.  
  30. (Set LocaleDir
  31.    (tackon DestDir "Catalogs")
  32. )
  33.  
  34. (Set ContribDir
  35.    (tackon DestDir "Contributions")
  36. )
  37.  
  38. (set @default-dest  DestDir)
  39.  
  40. (makedir DestDir)
  41.  
  42. (copyfiles
  43.    (source "/STFax.info")
  44.    (dest InstallDir)
  45.    (infos)
  46.    (noposition)
  47. )
  48.  
  49. (complete 10)
  50.  
  51. (if (<= (/ (getversion) 65536) 38)
  52.    (set Kick2 1)
  53.    (set Kick2 0)
  54. )
  55.  
  56. (copyfiles (source "STFax")            (dest DestDir))
  57. (copyfiles (source "STFax.info")       (dest DestDir)   (noposition))
  58. (copyfiles (source "STFax.guide.info") (dest DestDir)   (noposition))
  59. (copyfiles (source "NoData.txt")       (dest DestDir))
  60. (copyfiles (source "Catalogs.info")    (dest DestDir)   (noposition))
  61.  
  62. (complete 15)
  63.  
  64. (copyfiles
  65.   (source "Devs/Printers/STFaxPrt")
  66.   (dest "DEVS:Printers")
  67. )
  68.  
  69. (complete 20)
  70.  
  71. (select
  72.    (askchoice
  73.       (prompt "Which documentation should I install?")
  74.       (help @askoption-help)
  75.       (choices "English" "Italiano")
  76.       (default 0)
  77.    )
  78. ; case 0  ---  English
  79.       (
  80.           (copyfiles (source "STFax.guide")        (dest DestDir))
  81.           (copyfiles (source "ReadMe_Now!")        (dest DestDir))
  82.           (copyfiles (source "ReadMe_Now!.info")   (dest DestDir) (noposition))
  83.           (copyfiles (source "OrderForm.txt")      (dest DestDir))
  84.           (copyfiles (source "OrderForm.txt.info") (dest DestDir) (noposition))
  85.       )
  86. ; case 1  ---  Italiano
  87.       (
  88.           (copyfiles (source "docs/italiano/STFax.guide")          (dest DestDir))
  89.           (copyfiles (source "docs/italiano/Leggimi_Ora!")         (dest DestDir))
  90.           (copyfiles (source "docs/italiano/ModRegistrazione.txt") (dest DestDir))
  91.           (copyfiles
  92.               (source "ReadMe_Now!.info")
  93.               (dest DestDir)
  94.               (newname "Leggimi_Ora!.info")
  95.               (noposition)
  96.           )
  97.           (copyfiles
  98.               (source "OrderForm.txt.info")
  99.               (dest DestDir)
  100.               (newname "ModRegistrazione.txt.info")
  101.               (noposition)
  102.           )
  103.       )
  104. )
  105.  
  106.  
  107. (complete 30)
  108.  
  109. (if (exists "STFax.key")
  110.   (copyfiles
  111.      (source "STFax.key")
  112.      (dest DestDir)
  113.   )
  114. )
  115.  
  116. (if Kick2
  117.    (tooltype
  118.       (dest (tackon DestDir "STFax.guide"))
  119.       (setdefaulttool "AmigaGuide")
  120.    )
  121. )
  122.  
  123. (complete 40)
  124.  
  125. (makedir LocaleDir (infos))
  126.  
  127. (copyfiles
  128.   (source "Catalogs")
  129.   (dest LocaleDir)
  130.   (pattern "IEditor#?.c#?")
  131. )
  132.  
  133. (complete 50)
  134.  
  135. (makedir FaxInDir   (infos))
  136. (makedir FaxOutDir  (infos))
  137. (makedir ConfigDir)
  138.  
  139. (complete 60)
  140.  
  141. (copyfiles
  142.   (source "Devs/Datatypes")
  143.   (dest "DEVS:Datatypes")
  144.   (pattern "#?")
  145.   (infos)
  146.   (noposition)
  147. )
  148.  
  149. (copylib
  150.        (prompt "Installing STFax.datatype...")
  151.        (help   "This will install the STFax.datatype: it will let "
  152.                "you import STFax faxes into any program that supports "
  153.                "datatypes.")
  154.        (source "Classes/Datatypes/STFax.datatype")
  155.        (dest   "SYS:Classes/Datatypes")
  156.        (confirm)
  157. )
  158.  
  159. (complete 70)
  160.  
  161. (startup "STFax"
  162.         (prompt "Editing your S:User-Startup")
  163.         (help   "The Installer will add one assign needed by STFax")
  164.         (command (cat "    Assign STFax: \"" DestDir "\" >NIL:"))
  165. )
  166.  
  167. (makeassign "STFax" DestDir)
  168.  
  169. (complete 80)
  170.  
  171. (copyfiles
  172.         (prompt "Copying catalog files")
  173.         (help @copyfiles-help)
  174.         (source "Catalogs")
  175.         (dest LocaleDir)
  176.         (choices "ÃeÓtina" "català" "dansk" "deutsch" "español"
  177.                  "français" "greek" "italiano" "nederlands" "norsk"
  178.                  "polski" "svenska")
  179.         (confirm)
  180. )
  181.  
  182. (complete 90)
  183.  
  184. (copyfiles
  185.         (prompt "Copying contributions")
  186.         (help @copyfiles-help)
  187.         (source "Contributions")
  188.         (dest ContribDir)
  189.         (choices "Multi2STFax" "Multi2STFax.doc")
  190.         (confirm)
  191.         (infos)
  192. )
  193.  
  194. (if (exists ContribDir)
  195.         (copyfiles
  196.             (source "Contributions.info")
  197.             (dest DestDir)
  198.             (noposition)
  199.         )
  200. )
  201.  
  202. (complete 100)
  203.