The Best of Mecomp Multimedia 1/Mecomp-CD.iso/amiga/dfue/fax/multifax-demo/installation/install-mfax

Text File | 1995-07-20 | 4.2 KB | 194 lines

;***********************************************
; Script to install MultiFax professional Demo
; $VER: Install-MFax 505.11 (11.05.95)
;
; © 1993-1995 TKR GmbH & Co. KG
;***********************************************

;=============================================================================
; German strings
(set default_lang 2)

(set @abort-button "Abbruch")
(set #msg-oldoperatingsystem
    (cat    "Die Version des Betriebsystems Ihres Rechners ist zu alt. "
        "MultiFax benötigt mindestens eine Version 2.04 des Betriebsystems. "
        "Bitte wenden Sie sich zwecks einer Aufrüstung des Betriebssystems "
        "an Ihren örtlichen Amiga-Fachhändler."
    )
)
(set #choices-yes
    (cat    "JA"
    )
)
(set #choices-no
    (cat    "NEIN"
    )
)
(set #ask-libstarget-prompt
    (cat    "In welches Verzeichnis sollen die MultiFax-Bibliotheken kopiert "
        "werden (Help... beachten!) ?"
    )
)
(set #ask-libstarget-help
    (cat    "Das Verzeichnis \"Libs:\" ist das für diesen Zweck auf dem Amiga "
        "standardmäßig vorgesehene. Sie sollten diesen Eintrag nur ändern, "
        "wenn Sie ein anderes Verzeichnis für diesen Zweck eingerichtet und "
        "dem System auch für diesen Zweck bekannt gemacht haben."
    )
)
(set #insert-assign-prompt
    (cat    "Einfügen eines ASSIGN in Ihre \"S:user-startup\".\n"
        "Dieser ist nach dem nächsten Start des Rechners aktiv."
    )
)
(set #insert-assign-help
    (cat    "Dieser ASSIGN ist für den Betrieb von MultiFax notwendig. "
        "Sie können diesen Abschnitt aber auch überspringen (Skip "
        "This Part) und den ASSIGN später per Hand durchführen."
    )
)
(set #msg-nohelpavailable
    (cat    "\n\nKeine Hilfe verfügbar."
    )
)

;=============================================================================
; English strings
(if (= @language "english")
(
(set default_lang 4)

(set #msg-oldoperatingsystem
    (cat    "The Version of the operating system of your computer is too old. "
        "MultiFax needs at least a version 2.04 of the operating system. "
        "Please contact your local dealer for an upgrade of the operating "
        "system."
    )
)
(set #choices-yes
    (cat    "YES"
    )
)
(set #choices-no
    (cat    "NO"
    )
)
(set #ask-libstarget-prompt
    (cat    "In which directory shall the MultiFax libraries be copied "
        "(See also Help...!) ?"
    )
)
(set #ask-libstarget-help
    (cat    "The directory \"Libs:\" is the default directory for this purpose "
        "on the Amiga. You should only change the entry, if you have created "
        "an other drawer for this purpose and told the system to use ist for "
        "this purpose."
    )
)
(set #insert-assign-prompt
    (cat    "An ASSIGN needs to be added to your \"S:user-startup\".\n"
        "This will automatically be active after the next "
        "start of your computer."
    )
)
(set #insert-assign-help
    (cat    "This ASSIGN is necessary for running MultiFax. "
        "Alternatively you can skip this part and set the ASSIGN "
        "manually later."
    )
)
(set #msg-nohelpavailable
    (cat    "\n\nNo help available."
    )
)
)
)
;end (if (= @language "english"))

;=============================================================================

(complete 0)

    ; Prüfung auf ein Betriebsystem von mindestens OS2.04 (37.xxx).
(
(set vernum (getversion))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536)))
(set osversion ver)
(if (< osversion 37)
    (
    (abort #msg-oldoperatingsystem)
    )
)
)

    ; Libs-Verzeichnis
(
    (
            ; Abfrage des Verzeichnisses für die Bibliotheken.
        (set libs_dest
            (askdir
                (prompt #ask-libstarget-prompt)
                (help    #ask-libstarget-help)
                (default "Libs:")
                (disk)
            )
        )
        (copylib
            (source "Libs/multifax.library")
            (dest libs_dest)
        )
        (copylib
            (source "Libs/mfphone.library")
            (dest libs_dest)
        )
        (copylib
            (source "Libs/mfview.library")
            (dest libs_dest)
        )
        (copylib
            (source "Libs/tkrtools.library")
            (dest libs_dest)
        )
    )
)
    ; Printers-Verzeichnis
(
    (
        (copyfiles
            (source "Printers")
            (pattern "#?")
            (dest "DEVS:Printers")
            (infos)
        )
    )
)


(complete 95)

(set mfax_dest (expandpath ""))

    ; modify S:User-Startup
(startup "MultiFax"
    (prompt #insert-assign-prompt)
    (command
        "ASSIGN MultiFax: \"" mfax_dest "\"\n"
    )
    (help #insert-assign-help)
)

    ; reinitialize assigns
(if (not @pretend)
    (makeassign "MultiFax" mfax_dest)
)

(complete 100)

    ; cleanup

    ; this is not strictly necessary, but doesn't hurt -- there is always
    ; a default (exit) at the end of any script
(exit (quiet))