home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #5 / AmigaPlus_Extra-CD_5-97.iso / online-tools / mail / netmail / install < prev    next >
Text File  |  1995-10-01  |  4KB  |  144 lines
  1. ; $VER: NetMail_Install 1.2 (1.10.95)
  2. ; Copyright 1995 Riccardo Solmi.
  3.  
  4.  
  5. ; Make sure they are running 2.04 or greater
  6. (if (< (/ (getversion) 65536) 37)
  7.          (abort "You must be using Kickstart 2.04 or higher to install and use NetMail.")
  8. )
  9.  
  10. (if (exists "AmiTCP:" (noreq))
  11.     (set netmail_dir "AmiTCP:")
  12.     (set netmail_dir @default-dest)
  13. )
  14.  
  15. (if (exists "ENV:NetMail/NetMailDir")
  16.     (if (<> (getenv "NetMail/NetMailDir") (pathonly @icon))
  17.         (set netmail_dir (getenv "NetMail/NetMailDir"))
  18.     )
  19. )
  20.  
  21. (set netmail_dir
  22.     (askdir
  23.         (prompt "Select a place for NetMail drawer")
  24.         (help @askdir-help)
  25.         (default netmail_dir)
  26.     )
  27. )
  28.  
  29. (if (= (exists (tackon netmail_dir "NetMail") (noreq)) 2)
  30.     (
  31.         (set netmail_dir    (tackon netmail_dir "NetMail"))
  32.         (set netmail_update 1)
  33.     )
  34.     (if (= (exists (tackon netmail_dir "NetMail") (noreq)) 1)
  35.         (set netmail_update 1)
  36.         (
  37.             (set netmail_dir    (tackon netmail_dir "NetMail"))
  38.             (set netmail_update 0)
  39.             (makedir netmail_dir
  40.                 (prompt "Creating NetMail application directory")
  41.                 (infos)
  42.             )
  43.         )
  44.     )
  45. )
  46.  
  47. (set @default-dest netmail_dir)
  48.  
  49. (if netmail_update
  50.     (
  51.         (set newver (getversion "NetMail"))
  52.         (set oldver (getversion (tackon @default-dest "NetMail")))
  53.         (if (> newver oldver)
  54.             (message (cat "An older version of NetMail is already installed in " @default-dest))
  55.             (if (< newver oldver)
  56.                 (message (cat "A newer version of NetMail is already installed in " @default-dest))
  57.                 (if (askchoice
  58.                         (prompt "The latest version of NetMail is already installed")
  59.                         (help @askchoice-help)
  60.                         (choices "Install" "Remove")
  61.                     )
  62.                     (
  63.                         (message "Remove NetMail application")
  64.                         (makeassign "NetMail" @default-dest)
  65.                         (run "C:Delete NetMail:#? all")
  66.                         (makeassign "NetMail")
  67.                         (delete @default-dest (infos))
  68.                         (message "NetMail removed.")
  69.                         (exit (quiet))
  70.                     )
  71.                 )
  72.             )
  73.         )
  74.     )
  75.     (
  76.         (copyfiles
  77.             (prompt "Copying all files")
  78.             (help   @copyfiles-help)
  79.             (source (pathonly @icon))
  80.             (dest   @default-dest)
  81.             (infos)
  82.             (all)
  83.         )
  84.         (delete (tackon @default-dest "Install") (infos))
  85.         (delete (tackon @default-dest "Readme")  (infos))
  86.         (exit)
  87.     )
  88. )
  89.  
  90. (makedir (tackon @default-dest "Attachments"))
  91. (makedir (tackon @default-dest "C"))
  92. (makedir (tackon @default-dest "Messages"))
  93. (makedir (tackon @default-dest "Drivers")    (infos))
  94. (makedir (tackon @default-dest "Macros")     (infos))
  95. (makedir (tackon @default-dest "Signatures") (infos))
  96.  
  97. (copyfiles
  98.     (prompt "Copying all Icons")
  99.     (help   @copyfiles-help)
  100.     (source "Icons")
  101.     (dest   (tackon @default-dest "Icons"))
  102.     (infos)
  103.     (all)
  104. )
  105.  
  106. (copyfiles
  107.     (prompt "Copying documantation")
  108.     (help   @copyfiles-help)
  109.     (source "Help")
  110.     (dest   (tackon @default-dest "Help"))
  111.     (infos)
  112.     (all)
  113. )
  114.  
  115. (foreach "Drivers" "#?"
  116.     (copylib
  117.         (prompt "Copying Drivers")
  118.         (help   @copylib-help)
  119.         (source (tackon "Drivers" @each-name))
  120.         (dest   (tackon @default-dest "Drivers"))
  121.         (infos)
  122.     )
  123. )
  124.  
  125. (foreach "C" "#?"
  126.     (copylib
  127.         (prompt "Copying support programs")
  128.         (help   @copylib-help)
  129.         (source (tackon "C" @each-name))
  130.         (dest   (tackon @default-dest "C"))
  131.         (infos)
  132.     )
  133. )
  134.  
  135. (copylib
  136.     (prompt "Copying NetMail program")
  137.     (help   @copylib-help)
  138.     (source "NetMail")
  139.     (dest   @default-dest)
  140.     (infos)
  141. )
  142.  
  143. (exit)
  144.