home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1997 #3 / amigaacscoverdisc / utilities / shareware / misc / sort1.62e / english / install_sort < prev    next >
Encoding:
Text File  |  1997-02-09  |  3.0 KB  |  132 lines
  1. ;-- $VER: SortInstaller V1.10 (08.06.96) R.Werner (e-mail:wernerr@iee1.et.tu-dresden.de)
  2.  
  3. ;---------------------- All strings in the script --------------------------
  4.  
  5. (set #install-msg        "Installing the sort program...")
  6.  
  7. (set #versionsnr    "V1.60")
  8.  
  9. (set #info-msg     (cat    "\n\nSort installation script.\n"
  10.                         ("This script installs Sort %s on your system.\n\n" #versionsnr)
  11.                         "Read the docs for more information on the \n"
  12.                         "distribution and for commercial use \n"
  13.                         "Sort is Copyright © 1994-1996 by\n"
  14.                         "Rüdiger Werner.\n"
  15.                         "All rights reserved."))
  16.  
  17. (set #useroptions-msg    "Select which user files to install")
  18. (set #useroption1-msg    "English version")
  19. (set #useroption2-msg    "German Version")
  20. (set #useroption3-msg    "English User documentation")
  21. (set #useroption4-msg    "German User documentation")
  22. (set #useroption5-msg    "Aminet .readme file")
  23.  
  24. (set #maindir-msg (cat    "Where do you wish to install the sort program?\n"
  25.             "The Installer will NOT create a new\n"
  26.             "drawer at the selected location."))
  27.  
  28. (set #sellocfor-msg    "Please select a location for")
  29. (set #docdir-msg    ("%s all documentation" #sellocfor-msg))
  30.  
  31. (set @default-dest    "C:")
  32. (set @default-docdest    "Docs:")
  33.  
  34. ;-------------------- Installation script begins here ----------------------
  35. (set olduserlevel @user-level)
  36. (user 2)
  37. (transcript #install-msg)
  38. (message #info-msg)
  39. (user olduserlevel)
  40.  
  41. ;-------------------------- Get options for user install -------------------
  42. (set userinstall
  43.     (askoptions
  44.         (prompt #useroptions-msg)
  45.         (help    @askoptions-help)
  46.         (choices    #useroption1-msg
  47.                 #useroption2-msg
  48.                 #useroption3-msg
  49.                 #useroption4-msg
  50.                 #useroption5-msg
  51.         )
  52.         (default %10101)
  53.     )
  54. )
  55.  
  56. ;-------------------------- Create main directory --------------------------
  57. (if (IN userinstall 2 3)
  58.     (
  59.         (set destdir
  60.             (askdir
  61.                 (prompt #maindir-msg)
  62.                 (help @askdir-help)
  63.                 (default @default-dest)
  64.             )
  65.         )
  66.  
  67.         (set @default-dest destdir)
  68.  
  69.         (set docdir
  70.             (askdir
  71.                 (prompt #docdir-msg)
  72.                 (help @askdir-help)
  73.                 (newpath)
  74.                 (default @default-docdest)
  75.                 (optional nofail askuser)
  76.             )
  77.         )
  78.     )
  79. )
  80.  
  81. ;-------------------------- Do user installation ---------------------------
  82. (if (IN userinstall 0)
  83.        (copyfiles
  84.                (source "sort")
  85.                (dest destdir)
  86.     )
  87. )
  88.  
  89. (if (IN userinstall 1)
  90.     (copyfiles
  91.                (source "/Deutsch/sort")
  92.            (dest destdir (newname "sort_deutsch"))
  93.            (confirm)
  94.     )
  95. )
  96.  
  97. (if (IN userinstall 2)
  98.     (
  99.         (copyfiles (source "sort.guide")
  100.             (dest docdir)
  101.         )
  102.         (copyfiles (source "sort.guide.info")
  103.             (dest docdir)
  104.         )
  105.     )
  106. )
  107.  
  108. (if (IN userinstall 3)
  109.     (
  110.         (copyfiles (source "/Deutsch/sort.guide")
  111.             (dest docdir (newname "sort_deutsch.guide"))
  112.         )
  113.         (copyfiles (source "/Deutsch/sort.guide.info")
  114.             (dest docdir (newname "sort_deutsch.guide.info"))
  115.         )
  116.     )
  117. )
  118.  
  119. (if (IN userinstall 4)
  120.     (
  121.         (copyfiles (source "/sort.readme")
  122.             (dest docdir)
  123.         )
  124.         (copyfiles (source "/sort.readme.info")
  125.             (dest docdir)
  126.         )
  127.     )
  128. )
  129.     
  130. ;--------------------------------- Done ------------------------------------
  131. (exit)
  132.