; Installationsskript für ONline_Check 4.10 Professional
; $VER: ONline_Check Install 4.13 beta Pro (3.3.98)
; (c) 1997 A.Teichmann

(set version 4)
(set revision 13 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/catalogs/deutsch/ONline_Check.catalog")
        (set #Dcatalogs
            "sys:locale/catalogs/deutsch/")
        (set #Ddat
            "s:online_check.dat")
        (set #Sprefs
            "ONline_Check.pref")
        (set #Sdat
            "s/ONline_Check.dat")
        (set #Sbin
            "ONline_Check")
        (set #Sguide
            "docs/ONline_Check_guide")
        (set #Sgicon
            "docs/ONline_Check_guide.info")
        (set #Sreg
            "docs/ONline_Check_reg")
        (set #Sricon
            "docs/ONline_Check_reg.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(#Ddat))
    (set x
        (askoptions
            (prompt #selectparts)
            (help   #selectparts_help)
            (choices
                    "Vollinstallation (überschreibt alte Prefs Files)"
                    "Update   (Ihre alten Prefsfile bleiben erhalten)"
            (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 #Sbin)
        (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 70 )
    (copyfiles
        (prompt (cat "\n\n" #install "Icon für Anleitung"))
         (help   #ONline_Check_help)
        (source #Sgicon)
        (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 #Sdat)
        (dest #s)(confirm "expert"))
(complete 45 )
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source #Sbin)
        (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 #Sgicon)
        (dest ziel)(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 #Sricon)
        (dest ziel)(confirm "expert"))
(complete 99)
    (copyfiles
        (prompt (cat "\n\n" #install "ONline_Check"))
        (help   #ONline_Check_help)
        (source "libs")
        (all)
        (dest #libs)(confirm "expert"))
(complete 100)
(message #bye )
(exit)
))