home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / f / flmv2.31regestered.lha / FLM2.31 / Install-FLM < prev    next >
Encoding:
Text File  |  1997-01-27  |  9.0 KB  |  320 lines
  1. ;Install Script for FLM (c) 1995-96 Denis Unger
  2.  
  3. (if (= @language "deutsch")
  4. ; *** German Installation ***
  5.     (
  6.         (set default-lang 1)
  7.         (set #lpath "deutsch")
  8.         (set #flmdestination
  9.             (cat "Bitte Zielverzeichnis von FLM auswählen.\n"
  10.                  "Ein Verzeichnis FLM wird automatisch erstellt."
  11.             )
  12.         )
  13.         (set #copyhothelp3prefs "Kopiere Prefs-Datei für Hothelp ...")
  14.         (set #copyflm_catalog "Kopiere flm.catalog ...")
  15.         (set #copyflmfiles "Kopiere FLM-Dateien ...")
  16.         (set #copyonlinehelp "Kopiere Online-Hilfe ...")
  17.         (set #instmodetext1 "Shareware-Version")
  18.         (set #instmodetext2 "Update für registrierte Nutzer")
  19.         (set #instmodeprompt "Bitte auswählen")
  20.         (set #flmupdate_dest "Bitte FLM-Verzeichnis auswählen")
  21.         (set #mustnotupdate "FLM muß nicht geupdatet werden.")
  22.         (set #noflmfound "FLM befindet sich nicht\nim angegebene Verzeichnis.")
  23.         (set #flmbenchmark "Soll der FLM-Benchmark kopiert werden ?")
  24.         (set #copybenchmark "Kopiere FLM-Benchmark ...")
  25.         (set #flm_cat "Soll der FLM-Kataloger kopiert werden ?")
  26.         (set #copyflm_cat "Kopiere FLM-Kataloger ...")
  27.     )
  28. )
  29. (if (= @language "english")
  30. ; *** English Installation ***
  31.     (
  32.         (set default-lang 2)
  33.         (set #lpath "english")
  34.         (set #flmdestination
  35.             (cat "Please choose destination directory for FLM.\n"
  36.                  "A directory FLM will be created."
  37.             )
  38.         )
  39.         (set #copyflm_catalog "Copying flm.catalog ...")
  40.         (set #copyflmfiles "Copying FLM file ...")
  41.         (set #copyonlinehelp "Copying Online help ...")
  42.         (set #instmodetext1 "Shareware version")
  43.         (set #instmodetext2 "Update for registered user")
  44.         (set #instmodeprompt "Please select")
  45.         (set #flmupdate_dest "Please select FLM directory")
  46.         (set #mustnotupdate "You must not update FLM")
  47.         (set #noflmfound "Cannot find the program FLM")
  48.         (set #flmbenchmark "Should the FLM benchmark be copied ?")
  49.         (set #copybenchmark "Copying FLM-Benchmark ...")
  50.         (set #flm_cat "Should the FLM cataloger be copied ?")
  51.         (set #copyflm_cat "Copying FLM cataloger ...")
  52.      )
  53. )
  54. (if (= @language "français")
  55. ; *** French Installation ***
  56.     (
  57.         (set default-lang 3)
  58.         (set #lpath "français")
  59.         (set #flmdestination
  60.             (cat "Choisissez le répertoire destination de FLM.\n"
  61.                  "Création du répertoire FLM..."
  62.             )
  63.         )
  64.         (set #copyflm_catalog "Copie de flm.catalog ...")
  65.         (set #copyflmfiles "Copie des fichiers FLM ...")
  66.         (set #copyonlinehelp "Copie de l'Aide en ligne ...")
  67.         (set #instmodetext1 "Version shareware")
  68.         (set #instmodetext2 "MàJ pour utilisateur enregistré")
  69.         (set #instmodeprompt "Sélectionnez svp")
  70.         (set #flmupdate_dest "Sélectionnez svp répertoire FLM")
  71.         (set #mustnotupdate "Il ne faut pas mettre à jour FLM")
  72.         (set #noflmfound "Impossible trouver le programme FLM")
  73.         (set #flmbenchmark "Should the FLM benchmark be copied ?")
  74.         (set #copybenchmark "Copie des fichiers FLM-Benchmark ...")
  75.         (set #flm_cat "Should the FLM cataloger be copied ?")
  76.         (set #copyflm_cat "Copie des FLM cataloger ...")
  77.     )
  78. )
  79. ; *** all string ok
  80.  
  81. ; *******************************
  82. ; *** now installation of FLM ***
  83. ; *******************************
  84.  
  85. ; *** get workbench version ****
  86. (set vernum (getversion "libs:version.library"))
  87. (set wbver (/ vernum 65536))
  88.  
  89. (complete 0)
  90.  
  91. ; *** shareware version or only update
  92. (set instmode
  93.     (askchoice
  94.         (choices #instmodetext1 #instmodetext2)
  95.         (prompt #instmodeprompt)
  96.         (help "")
  97.     )
  98. )
  99.  
  100. (if (= instmode 0)
  101.     ( ; *** Shareware-Version ***
  102.         (set flm-path
  103.             (askdir
  104.                 (prompt #flmdestination)
  105.                 (help "")
  106.                 (default @default-dest)
  107.             )
  108.          )
  109.          (set @default-dest (tackon flm-path "FLM"))
  110.  
  111.         ; *** create FLM directory
  112.         (makedir
  113.             (@default-dest)
  114.             (infos)
  115.         )
  116.         ; *** now a directory FLM exists ***
  117.  
  118.         (complete 10)
  119.  
  120.         ; *** copy catalogs ...
  121.         (if (> wbver 37)
  122.             (copylib
  123.                 (prompt #copyhothelplib_catalog)
  124.                 (help "")
  125.                 (source (cat "locale/catalogs/" #lpath))
  126.                 (dest (cat "locale:catalogs/" #lpath))
  127.                 (confirm)
  128.             )
  129.         )
  130.         (complete 20)
  131.  
  132.         (copyfiles
  133.             (prompt #copyflmfiles)
  134.             (help "")
  135.             (all)
  136.             (source "FLM")
  137.             (dest @default-dest)
  138.         )
  139.         (complete 40)
  140.  
  141.         (copyfiles
  142.             (prompt #copyflmfiles)
  143.             (help "")
  144.             (all)
  145.             (source (cat "otherfiles/" #lpath))
  146.             (dest @default-dest)
  147.         )
  148.         (complete 60)
  149.  
  150.         ; *** Online-Help ***
  151.         (copyfiles
  152.             (prompt #copyonlinehelp)
  153.             (help "")
  154.             (all)
  155.             (source (cat "Docs/" #lpath))
  156.             (dest @default-dest)
  157.         )
  158.         (complete 80)
  159.  
  160.         (set ret
  161.             (askbool
  162.                 (prompt #flmbenchmark)
  163.                 (help "")
  164.             )
  165.         )
  166.         (if (= ret 1)
  167.             (
  168.             (makedir
  169.                 (cat @default-dest "/Benchmark")
  170.                 (infos)
  171.             )
  172.             (copyfiles
  173.                 (prompt #copybenchmark)
  174.                 (help "")
  175.                 (all)
  176.                 (source "Benchmark")
  177.                 (dest (cat @default-dest "/Benchmark"))
  178.             )
  179.             )
  180.         )
  181.  
  182.         (complete 90)
  183.  
  184.         (set ret
  185.             (askbool
  186.                 (prompt #flm_cat)
  187.                 (help "")
  188.             )
  189.         )
  190.         (if (= ret 1)
  191.             (
  192.             (makedir
  193.                 (cat @default-dest "/FLM_cat")
  194.                 (infos)
  195.             )
  196.             (copyfiles
  197.                 (prompt #copyflm_cat)
  198.                 (help "")
  199.                 (all)
  200.                 (source "FLM_cat")
  201.                 (dest (cat @default-dest "/FLM_cat"))
  202.             )
  203.             )
  204.         )
  205.  
  206.         (complete 100)
  207.     )
  208.     ( ;****** update ******
  209.  
  210.         (set flm-path
  211.             (askdir
  212.                 (prompt #flmupdate_dest)
  213.                 (help "")
  214.                 (default @default-dest)
  215.             )
  216.         )
  217.         (set @default-dest flm-path)
  218.  
  219.         ; *** existiert FLM im angegebenen Verzeichnis ? ***
  220.         (set test (exists (tackon @default-dest "FLM")))
  221.  
  222.         (if (= test 1)
  223.             ( ; *** FLM - Version ermitteln
  224.                 (set test (getversion (tackon @default-dest "FLM")))
  225.                 (set flmoldver1 (/ test 65536))
  226.                 (set flmoldver2 (- test (* flmoldver1 65536)))
  227.             )
  228.             ( ; *** FLM wurde nicht gefunden ***
  229.                 (message #noflmfound)
  230.                 (exit)
  231.             )
  232.         )
  233.  
  234.         (set test (getversion "FLM/FLM"))
  235.         (set flmnewver1 (/ test 65536))
  236.         (set flmnewver2 (- test (* flmnewver1 65536)))
  237.  
  238. ; *** DEBUG für Updateüberprüfung ... ***
  239. ;(message "FLMnewver " flmnewver1 "." flmnewver2 "FLMoldver " flmoldver1 "." flmoldver2)
  240.  
  241.         (set updateflm 0) ; *** default: FLM nicht update ***
  242.  
  243.         (if (> flmnewver2 flmoldver2)
  244.             (
  245.                 (if (< flmnewver1 flmoldver1)
  246.                     ; *** FLM nicht updaten ***
  247.                     (set updateflm 0)
  248.                     ; *** FLM updaten ***
  249.                     (set updateflm 1)
  250.                 )
  251.             )
  252.             (
  253.                 (if (> flmnewver1 flmoldver1)
  254.                     (set updateflm 1)
  255.                 )
  256.             )
  257.         )
  258.  
  259.         (if (= updateflm 0)
  260.             ( ; *** Update nicht nötig, da neuere oder gleich Version
  261.                 (message #mustnotupdate)
  262.                 (exit)
  263.             )
  264.         )
  265.  
  266.         ; *** Online-Help ***
  267.         (copyfiles
  268.             (prompt #copyonlinehelp)
  269.             (help "")
  270.             (all)
  271.             (source (cat "Docs/" #lpath))
  272.             (dest @default-dest)
  273.         )
  274.         (complete 20)
  275.  
  276.         ; *** copy catalogs ***
  277.         (if (> wbver 37)
  278.             (copylib
  279.                 (prompt #copyflm_catalog)
  280.                 (help "")
  281.                 (source (cat "locale/catalogs/" #lpath))
  282.                 (dest (cat "locale:catalogs/" #lpath))
  283.                 (confirm)
  284.             )
  285.         )
  286.         (complete 30)
  287.  
  288.         ; *** FLMr-Verzeichnis kopieren ***
  289.         (copyfiles
  290.             (prompt #copyflmfiles)
  291.             (help "")
  292.             (source "FLM/FLMconv")
  293.             (dest @default-dest)
  294.         )
  295.         (complete 50)
  296.  
  297.         ; *** FLM kopieren ***
  298.         (copyfiles
  299.             (prompt #copyflmfiles)
  300.             (help "")
  301.             (source "FLM/FLM")
  302.             (dest @default-dest)
  303.         )
  304.         (complete 70)
  305.  
  306.         ; *** FLMc kopieren ***
  307.         (copyfiles
  308.             (prompt #copyflmfiles)
  309.             (help "")
  310.             (source "FLM/FLMc")
  311.             (dest @default-dest)
  312.         )
  313.         (complete 100)
  314.  
  315.     )
  316. )
  317.  
  318. ; *** script erfolgreich beendet
  319. (exit)
  320.