home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / comm / Fido / TrapListPrefs / Install_TrapListPrefs < prev    next >
Text File  |  1995-06-04  |  3KB  |  117 lines
  1. ; Installation script for TrapListPrefs
  2.  
  3. (set @user-level 2)
  4.  
  5. (transcript "Installing TrapListPrefs...")
  6.  
  7. (set locale
  8.         (askoptions
  9.             (prompt "Install which language?")
  10.             (help  @askoptions-help)
  11.             (choices "English"
  12. ;                     "Dansk"
  13. ;                    "Español"
  14.                      "Français"   ;1
  15.                       "Italiano"   ;2
  16.                      "Deutsch"    ;3
  17. ;                    "Nederlands"
  18. ;                    "Norsk"
  19. ;                    "Português"
  20.                      "Suomi"      ;4
  21.                      "Svenska"        ;5
  22.                      )
  23.             (default 1)
  24.         )
  25. )
  26.  
  27. (if (IN locale 1)
  28.     (copyfiles
  29.             (source "catalogs/Français/traplistprefs.catalog")
  30.             (dest "Locale:Catalogs/Français")
  31.     )
  32. )
  33.  
  34. (if (IN locale 2)
  35.     (copyfiles
  36.             (source "catalogs/Italiano/traplistprefs.catalog")
  37.             (dest "Locale:Catalogs/Italiano")
  38.     )
  39. )
  40.  
  41. (if (IN locale 3)
  42.     (copyfiles
  43.             (source "catalogs/Deutsch/TrapListPrefs.catalog")
  44.             (dest "Locale:Catalogs/Deutsch")
  45.     )
  46. )
  47.  
  48. (if (IN locale 4)
  49.     (copyfiles
  50.             (source "catalogs/Suomi/TrapListPrefs.catalog")
  51.             (dest "Locale:Catalogs/Suomi")
  52.     )
  53. )
  54.  
  55. (if (IN locale 5)
  56.     (copyfiles
  57.             (source "catalogs/Svenska/TrapListPrefs.catalog")
  58.             (dest "Locale:Catalogs/Svenska")
  59.     )
  60. )
  61.  
  62. ( if (= (exists "Mail:TrapList.cfg" (noreq)) 1)
  63.     (set cfg
  64.         (askbool
  65.                 (prompt "You already have a configuration for TrapList\n"
  66.                         "in your Mail: directory.\n"
  67.                         "Do you want to TrapListPrefs to automatically load\n"
  68.                         "that config when it is run" )
  69.                 (help "It's up to YOU.")
  70.                 (choices "Yes" "No")
  71.                 (default 1)              ; 0 = no
  72.         )
  73.     )
  74. )
  75.  
  76. (set preftype
  77.         (askchoice
  78.             (prompt "Which version of the TrapListPrefs do you prefer")
  79.             (help  @askchoice-help)
  80.             (choices "MUI"    ;0
  81.                      "BGUI"     ;1
  82.                      )
  83.             (default 0)
  84.         )
  85. )
  86.  
  87. (if (= preftype 0)
  88.     (set prefname "MUITrapListPrefs")
  89.        (set prefname "BGUITrapListPrefs")
  90. )
  91.  
  92. (if (= cfg 1)                           ; conditional test
  93.     (tooltype
  94.             (dest prefname)
  95.             (settooltype "CONFIG" "Mail:TrapList.cfg")
  96.     )
  97. )
  98.  
  99. (set destdir
  100.         (askdir
  101.                 (prompt "Install TrapListPrefs where?")
  102.                 (help @askdir-help)
  103.                 (default "SYS:Prefs")
  104.         )
  105. )
  106.  
  107. (set @default-dest destdir)
  108.  
  109. (copyfiles
  110.         (source prefname)
  111.         (infos)
  112.         (dest @default-dest)
  113.         (newname "TrapListPrefs")
  114. )
  115.  
  116. (exit ("Please remember TrapListPrefs is shareware,\nsee docs for information about registering."))
  117.