home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / comm / misc / STFax.lha / STFax / Install < prev    next >
Encoding:
Text File  |  1997-01-31  |  3.7 KB  |  178 lines

  1. ; $VER: STFax-Install 1.4 (20.1.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 @default-dest  DestDir)
  35.  
  36. (makedir DestDir)
  37.  
  38. (copyfiles
  39.    (source "/STFax.info")
  40.    (dest InstallDir)
  41.    (infos)
  42.    (noposition)
  43. )
  44.  
  45. (complete 10)
  46.  
  47. (if (<= (/ (getversion) 65536) 38)
  48.    (set Kick2 1)
  49.    (set Kick2 0)
  50. )
  51.  
  52. (copyfiles (source "STFax")            (dest DestDir))
  53. (copyfiles (source "STFax.info")       (dest DestDir)   (noposition))
  54. (copyfiles (source "STFax.guide.info") (dest DestDir)   (noposition))
  55. (copyfiles (source "NoData.txt")       (dest DestDir))
  56. (copyfiles (source "Catalogs.info")    (dest DestDir)   (noposition))
  57.  
  58. (complete 20)
  59.  
  60. (copyfiles
  61.   (source "Devs/Printers/STFaxPrt")
  62.   (dest "DEVS:Printers")
  63. )
  64.  
  65. (complete 30)
  66.  
  67. (select
  68.    (askchoice
  69.       (prompt "Which documentation should I install?")
  70.       (help @askoption-help)
  71.       (choices "English" "Italiano")
  72.       (default 0)
  73.    )
  74. ; case 0  ---  English
  75.       (
  76.           (copyfiles (source "STFax.guide")        (dest DestDir))
  77.           (copyfiles (source "ReadMe_Now!")        (dest DestDir))
  78.           (copyfiles (source "ReadMe_Now!.info")   (dest DestDir) (noposition))
  79.           (copyfiles (source "OrderForm.txt")      (dest DestDir))
  80.           (copyfiles (source "OrderForm.txt.info") (dest DestDir) (noposition))
  81.       )
  82. ; case 1  ---  Italiano
  83.       (
  84.           (copyfiles (source "docs/italiano/STFax.guide")          (dest DestDir))
  85.           (copyfiles (source "docs/italiano/Leggimi_Ora!")         (dest DestDir))
  86.           (copyfiles (source "docs/italiano/ModRegistrazione.txt") (dest DestDir))
  87.           (copyfiles
  88.               (source "ReadMe_Now!.info")
  89.               (dest DestDir)
  90.               (newname "Leggimi_Ora!.info")
  91.               (noposition)
  92.           )
  93.           (copyfiles
  94.               (source "OrderForm.txt.info")
  95.               (dest DestDir)
  96.               (newname "ModRegistrazione.txt.info")
  97.               (noposition)
  98.           )
  99.       )
  100. )
  101.  
  102.  
  103. (complete 40)
  104.  
  105. (if (exists "STFax.key")
  106.   (copyfiles
  107.      (source "STFax.key")
  108.      (dest DestDir)
  109.   )
  110. )
  111.  
  112. (if Kick2
  113.    (tooltype
  114.       (dest (tackon DestDir "STFax.guide"))
  115.       (setdefaulttool "AmigaGuide")
  116.    )
  117. )
  118.  
  119. (complete 50)
  120.  
  121. (makedir LocaleDir (infos))
  122.  
  123. (copyfiles
  124.   (source "Catalogs")
  125.   (dest LocaleDir)
  126.   (pattern "IEditor#?.c#?")
  127. )
  128.  
  129. (complete 60)
  130.  
  131. (makedir FaxInDir   (infos))
  132. (makedir FaxOutDir  (infos))
  133. (makedir ConfigDir)
  134.  
  135. (complete 70)
  136.  
  137. (copyfiles
  138.   (source "Devs/Datatypes")
  139.   (dest "DEVS:Datatypes")
  140.   (pattern "#?")
  141.   (infos)
  142.   (noposition)
  143. )
  144.  
  145. (copylib
  146.        (prompt "Installing STFax.datatype...")
  147.        (help   "This will install the STFax.datatype: it will let "
  148.                "you import STFax faxes into any program that supports "
  149.                "datatypes.")
  150.        (source "Classes/Datatypes/STFax.datatype")
  151.        (dest   "SYS:Classes/Datatypes")
  152.        (confirm)
  153. )
  154.  
  155. (complete 85)
  156.  
  157. (startup "STFax"
  158.         (prompt "Editing your S:User-Startup")
  159.         (help   "The Installer will add one assign needed by STFax")
  160.         (command (cat "    Assign STFax: \"" DestDir "\" >NIL:"))
  161. )
  162.  
  163. (makeassign "STFax" DestDir)
  164.  
  165. (complete 90)
  166.  
  167. (copyfiles
  168.         (prompt "Copying catalog files")
  169.         (help @copyfiles-help)
  170.         (source "Catalogs")
  171.         (dest LocaleDir)
  172.         (choices "ÃeÓtina" "dansk" "deutsch" "español" "français"
  173.                  "italiano" "nederlands" "norsk" "polski" "svenska")
  174.         (confirm)
  175. )
  176.  
  177. (complete 100)
  178.