Gold Fish 3/goldfish_volume_3.bin/files/fish/disks/d1068.lha/Programs/AddressBook/Install

Text File | 1995-02-16 | 5.7 KB | 260 lines

; $VER: Address-Book V00.31
; Copyright ©1994 by Jörg Krause - All Rights Reserved

(complete 0)

; --- English (default) strings ---

(set #introduction (cat "\n"

    "Address-Book V00.32, All Rights Reserved.     \n"
    "                                                 \n"
    "Address-Book ©'94 Jörg Krause                    \n"
    "MUI          ©'94 Stefan Stuntz                  \n"
    "                                                 \n"
    "Address-Book is NOT 'freely distributable'.      \n"
    "Please have a look at the licence file before    \n"
    "installing Address-Book; installing this software\n"
    "means accepting that licence. Thank you.         \n"
))

(set #badkick "\n Sorry, this package requires OS v2.04 or better.\n")

(set #where "Where do you want to install Address-Book ?")

(set #where_prefs "Where do you want to install the ABook-Prefs ?")

(set #wbstart "Should I copy the Arexx-Server into  WBStartup ?\n")

(set #cat "Do you want to install the german catalog ?\n")

(set #startuphelp (cat "\n"

    " If the Arexx-Server is copied into WBStartup,\n"
    " you should access the database via Arexx     \n"
    " at every time.                               \n"
))

(set #where_help (cat "\n"

    " Simply select a directory (a root directory is   \n"
    " fine, too). I'm going to copy Address-Book       \n"
    " within the directory you specify. You should     \n"
    " select a directory which has an icon attached to \n"
    " it (e.g. SYS:Utilities).                         \n"
))

(set #where_prefs_help (cat "\n"

    " Simply select a directory. E.g. the Prefs       \n"
    " directory                                       \n"
))

(set #help_cat (cat "\n"))


; --- German (default) strings ---

(set #introduction (cat "\n"

    "Address-Book V00.32, Alle Rechte vorbehalten. \n"
    "                                               \n"
    "Address-Book ©'94 Jörg Krause                  \n"
    "MUI          ©'94 Stefan Stuntz                \n"
    "                                               \n"
    "Address-Book ist NICHT 'frei vertreibbar'.     \n"
    "Bitte lesen Sie die Lizenz-Datei, bevor Sie    \n"
    "Address-Book installieren; Mit der Installation\n"
    "stimmen Sie den Lizenzbedingungen zu. Viel Spaß\n"
    "mit dem Programm.                              \n"
))

(set #badkick "\n Sorry, dieses Paket benötigt mind. OS v2.04.\n")

(set #where "In welches Verzeichnis soll Address-Book hinein kopiert werden ?\n")

(set #where_prefs "In welches Verezichnis sollen die Prefs kopiert werden ?\n")

(set #wbstart "Soll der Arexx-Server in den WBSartup-Ordner kopiert werden ?\n")

(set #cat "Soll der deutsche Katalog installiert werden ?\n")

(set #startuphelp (cat "\n"

    " Der Arexx-Server kann in den WBStartup Ordner\n"
    " kopiert werden. Dadurch hat man mittels Arexx\n"
    " jederzeit Zugriff auf die Daten.             \n"
))

(set #where_help (cat "\n"

    " Wählen Sie ein beliebiges Verzeichnis. Hauptver-\n"
    " zeichnisse wie SYS: können auch benutzt werden. \n"
    " In dem angegebenen Pfad wird Address-Book       \n"
    " installiert werden.                             \n"
    " Sie sollten ein Verzeichnis wählen, dem ein Icon\n"
    " zugeordnet ist, um Address-Book auch über die   \n"
    " Workbench starten zu können.                    \n"
))

(set #where_prefs_help (cat "\n"

    " Wählen sie ein beliebiges Verzeichnis. Es bietet\n"
    " sich z.B. das Prefs Verzeichnis an.             \n"
))

(set #help_cat (cat "\n"))

;sure we are running under OS2.04 or above
(if (< (/ (getversion) 65536) 37)

    (
      (message #badkick)
      (exit (quiet))
    )
)

(message #introduction)

(welcome)

;Get directory to install Address-Book in.
(set destdir
    (askdir
        (prompt #where)
        (help   #where_help)
        (default "SYS:")
    )
)

(complete 10)

;Copy Address-Book to destination.
(copyfiles
    (source "Address-Book")
    (dest destdir)
    (infos)
)

(complete 20)

(set prefsdir
    (askdir
        (prompt #where_prefs)
        (help #where_prefs_help)
        (default destdir)
    )
)

(copyfiles
    (source "ABook-Prefs")
    (dest prefsdir)
    (infos)
)

(complete 30)

(if (= 0 (exists (tackon destdir "data/Address-Book.dat")))
    ((copyfiles
       (source "data/Address-Book.dat")
       (dest (tackon destdir "Data"))
    )
    (copyfiles
       (source "Data.info")
       (dest destdir)
    ))
)

(complete 40)

;Copy Mui-License
(copyfiles
    (source "ReadMe.mui")
    (dest destdir)
    (infos)
)
;copy drawer info
(copyfiles
    (source "Docs.info")
    (dest destdir)
)

(complete 50)

;copy the docs
(copyfiles
    (source "docs")
    (dest (tackon destdir "Docs"))
    (all)
)

(complete 60)

(set copycat
    (askbool
          (prompt #cat)
          (help #help_cat)
          (choices "OK" "Skip")
          (default 0)
    )
)

(if copycat
    (copyfiles
        (source "Catalogs/deutsch")
        (dest "Locale:catalogs/deutsch")
        (all)
    )
)

;Copy arexx & macros
(copyfiles
    (source "Arexx")
    (dest (tackon destdir "Arexx"))
    (all)
)

(copyfiles
    (source "Arexx.info")
    (dest destdir)
)

(complete 70)

(set answer
    (askbool
          (prompt #wbstart)
          (help #startuphelp)
          (choices "OK" "Skip")
          (default 0)
    )
)

(if answer
    (copyfiles
        (source "WBStartup")
        (dest "sys:WBStartup")
        (all)
    )
)
(if answer
    (tooltype
        (dest "SYS:WBStartup/ABook-Server")
        (settooltype "DATAFILE" (tackon destdir "data/Address-Book.dat"))
        (noposition)
    )
)

(complete 80)
;Correct @default-dest so that final information is correct.
(set @default-dest destdir)

(complete 90)

;remove silly .info
(delete (tackon destdir ".info"))

(complete 100)

(exit)