; Installationsskript für ONline_Check 4.0 Professional
; $VER: ONline_Check Install 4.02 beta Pro (23.10.97)
; (c) 1997 A.Teichmann

(set version 4)
(set revision 02 pro)
(set @app-name ("ONline_Check %ld.%ld" version revision))

(if (= @language "deutsch")
    (
        (set @abort-button "Installation abrechen!")
        (set @error-msg    "Fataler Fehler!")
        (set #welcome (cat
             @app-name
             "-Installation\n\n"
             "Damit wird der ONline_Check automatisch auf\n"
             "Ihrer Festplatte installiert\n\n"
             "ACHTUNG ! Die neue Version ist nurnoch vom CLI aus\n"
	     "aufrufbar... ,BITTE BEACHTEN !!!\n\n"
             "ONline_Check © 1997 A.Teichmann@gmx.net\n\n"))
	     "OPTIONAL kann man per Hand auch die WB Version\n"
	     "installieren."


        (set #version_error
            "\nTut mit leid !\n\nONline_Check benötigt mindestens\nOS 2.04")
        (set #libs
            "libs:")
        (set #s
            "s:")
        (set #Scatalogs
            "locale/deutsch/ONline_Check.catalog")
        (set #Dcatalogs
            "sys:locale/catalogs/deutsch/")
        (set #Dcatalogsf
            "s:online_check.dat")
        (set #Sprefs
            "prefs/deutsch/ONline_Check.pref")
        (set #Sprefsicon
            "prefs/deutsch/ONline_Check.pref.info")
        (set #Starif
            "prefs/deutsch/ONline_Check.dat")
        (set #Scheck
            "bin/ONline_Check")
        (set #Scheckicon
            "bin/ONline_Check.info")
        (set #Sguide
            "docs/deutsch/ONline_Check.guide")
        (set #Sguideicon
            "docs/deutsch/ONline_Check.guide.info")
        (set #Sreg
            "docs/deutsch/ONline_Check.register")
        (set #Sregicon
            "docs/deutsch/ONline_Check.register.info")
        (set #install
            "Installiere ")
        (set #whichdrawer
            "Wo soll für ONline_Check ein Verzeichnis angelegt werden?")
        (set #whichdrawer_help (cat
            "Ein Verzeichnis namens 'ONline_Check' wird dort "
            "erzeugt. Dort wird ONline_Check nach der "
            "Installation zu finden sein."))
        (set #whichdraweru
            "Wo befindet sich ihr Online_Check Hauptprogramm ?")
        (set #whichdrawer_helpu (cat
            "'ONline_Check' wird dort geupdatet."
            "Nach installation wird dort die neueste version zu finden"
            "sein."))

        (set #selectparts
            "Bitte wählen sie Zwischen Vollinstallation und UPdate")
        (set #selectparts_help (cat
	    "Update bedeutet ,ihr altes Prefsfile bleibt erhalten"
	    "und muss gegebenfalls wenn es neue Einträge gibt per"
	    "hand an die neue Version angepasst werden."))  
        (set #bye (cat
             "\n\n\nViel Spaß und niedrige Telefonkosten mit\n\n"
             "ONline_Check "version"."revision"\n\n"
             "wünscht Ihnen\n\n"
             "A.Teichmann@gmx.net\n"))
)
)

(message #welcome)
(complete 0)

(if (< (/ (getversion) 65536) 37)
    (abort #version_error))

(set x %01)

(if (exists(#Dcatalogsf))
    (set x
        (askoptions
            (prompt #selectparts)
            (help   #selectparts_help)
            (choices
                    "Vollinstallation (überschreibt alte Prefs Files)"
                    "Update           (Nur Hauptprogramm / GUIDE    )"
            (default %10))
        )
    )
)



(if (bitand x %10)(
(set ziel
    (askdir
        (prompt #whichdraweru )
        (default "sys:")
        (help   #whichdrawer_helpu )
    )
)
;(set @default-dest ziel )
(if (exists(ziel"ONline_Check"))
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check Hauptprogramm"))
        (help   #ONline_Check_help)
        (source #Scheck)
        (dest ziel)(confirm "expert"))
        )
(complete 30 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check Catalogfile"))
        (help   #ONline_Check_help)
        (source #Scatalogs)
        (dest #Dcatalogs)(confirm "expert"))
(complete 60 )
(if (exists(ziel"ONline_Check.guide"))
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check Anleitung"))
        (help   #ONline_Check_help)
        (source #Sguide)
        (dest ziel)(confirm "expert"))
(complete 100 ))
)
)



(if (bitand x %01)(
(set ziel
    (askdir
        (prompt #whichdrawer )
        (default "sys:")
        (help   #whichdrawer_help )
    )
)


(set @default-dest ziel )
(set ziel (tackon ziel "ONline_Check"))
(makedir ziel (infos))

    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Scatalogs)
        (dest #Dcatalogs)(confirm "expert"))
(complete 15 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Sprefs)
        (dest ziel)(confirm "expert"))
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Starif)
        (dest #s)(confirm "expert"))
(complete 30 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Sprefsicon)
        (dest ziel)(confirm "expert"))
(complete 45 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Scheck)
        (dest ziel)(confirm "expert"))
(complete 60 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Scheckicon)
        (dest ziel)(confirm "expert"))
(complete 68 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Sguide)
        (dest ziel)(confirm "expert"))
(complete 85 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
         (help   #ONline_Check_help)
        (source #Sguideicon)
        (dest ziel)(confirm "expert"))
(complete 95 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source "libs")
        (all)
        (dest #libs)(confirm "expert"))
(complete 98 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Sreg)
        (dest ziel)(confirm "expert"))
(complete 99 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Sregicon)
        (dest ziel)(confirm "expert"))
(complete 100)
(message #bye )
(exit)
))