home *** CD-ROM | disk | FTP | other *** search
- ; XPKatana Installer Script
- ; $Ver: 1.0 (28.11.95)
- ; Written by Philip A. Vedovatti
- ; German translation by Volker Schleifstein
-
- (set #bad-kick
- (cat "\n\nTut mir leid! Sie müssen Workbench 2.0 oder höher"
- "installiert haben, um dieses Programm nutzen zu können."))
-
- (set #hello-message
- (cat "\n\n\"Hacken Sie Ihre Dateien in Stücke!"
- "\n\nWillkommen zum XPKatana Installier-Skript."
- "\n\nBitte lesen Sie die Dokumentation, um dieses Programm"
- "\nvoll ausnutzen zu können."
- "\n\n\nHIER ANKLICKEN UM FORTZUFAHREN"))
-
- (set #install-which
- (cat "\nWelche Teile des XPKatana Programmpakets möchten"
- "\nSie auf Ihrer Festplatte installieren?\n"))
-
- (set #tools-dest
- (cat "\nIn welches Verzeichnis soll das XPKatana"
- "\nHauptprogramm installiert werden?\n"))
-
- (set #docs-dest
- (cat "\nWo soll die Dokumentation installiert werden?\n"))
-
- (set #rexx-dest
- (cat "\nWo möchten Sie die Katana Arexx Skripten installiert"
- "\nhaben?\n"))
-
- (set #install-arexx-help
- (cat "\nHiermit werden die Arexx Skripten installiert."
- "\nSie erhöhen die Funktionalität von XPKatana."))
-
- (set #exit-message
- (cat "\nXPKatana ist jetzt komplett installiert!"
- "\nViel Spaß!"))
-
- (set #install-library
- ("\nInstalliere FileID.library in Libs:"))
-
- ; ------------------------------
- ; Check Kickstart Version
- ; ------------------------------
-
- (if (< (getversion "LIBS:version.library") (* 37 65536))
- (abort #bad-kick)
- )
-
- (message #hello-message)
-
- ; ------------------------------
- ; What should I install?
- ; ------------------------------
-
- (set InstallOpt
- (askoptions (prompt #install-which)
- (help @askoptions-help)
- (choices "XPKatana" "Arexx Skripten" "FileID.library"
- "Dokumentation")
- )
- )
-
- (if (= InstallOpt 0)
- (abort (cat "\n\nInstallation abgebrochen :(")
- "\n\nEs sind keine Dateien ausgewählt worden!")
- )
-
-
- ;-------------------------------------------------------
- ;Install binary, Icons, and support files
- ;-------------------------------------------------------
-
-
- (if (BITAND InstallOpt 1)
-
- ((set destdir
- (askdir
- (prompt #tools-dest)
- (help @askdir-help)
- (default "Sys:Utilities")
- )
- )
-
- (set @default-dest destdir)
- (copyfiles
- (source "/XPKatana")
- (dest destdir)
- (infos)
- )
- )
- )
-
- ;-------------------------------------------------------
- ;Install Arexx scripts
- ;-------------------------------------------------------
-
-
-
- (if (BITAND InstallOpt 2)
-
- ((set destdir
- (askdir
- (prompt #rexx-dest)
- (help #install-arexx-help)
- (default "REXX:")
- )
- )
-
- (copyfiles
- (source "/ARexx")
- (dest destdir)
- (all)
- )
- )
- )
-
- ;-------------------------------------------------------
- ;Install FileID.library files
- ;-------------------------------------------------------
-
- (if (BITAND InstallOpt 4)
-
- ((copylib
- (prompt #install-library)
- (source "/Libs/FileID.library")
- (dest "Libs:")
- )
-
- (if (exists "Locale:catalogs/deutsch")
- (copyfiles
- (source "/Locale/catalogs/deutsch/FileID_lib.catalog")
- (dest "Locale:catalogs/deutsch")
- )
- )
- )
- )
-
- ;-------------------------------------------------------
- ;Install FileID.library files
- ;-------------------------------------------------------
-
- (if (BITAND InstallOpt 8)
-
- ((set destdir
- (askdir
- (prompt #docs-dest)
- (help @askdir-help)
- (default "Help:")
- )
- )
- (copyfiles
- (source "/Docs/XPKatana_eng.guide")
- (dest destdir)
- (newname "XPKatana.guide")
- (infos)
- )
- )
- )
- (exit #exit-message)