home *** CD-ROM | disk | FTP | other *** search
- ; XPKatana Installer Script
- ; $Ver: 1.0 (28.11.95)
- ; Written by Philip A. Vedovatti
- ; Norsk translation by: Petter Nilsen
-
- (set #bad-kick
- (cat "\n\nBeklager! Du må ha Workbench 2.0 eller "
- "høyere installert for å bruke denne pakken. "))
-
- (set #hello-message
- (cat "\n\n\"Kutt filene dine til småbiter!\""
- "\n\nVelkommen til Installer skripted for XPKatana."
- "\n\nVennligst les dokumentasjonen for å få mest mulig"
- "\nut av denne pakken."
- "\n\n\nTRYKK FOR Å FORTSETTE."))
-
-
- (set #install-which
- (cat "\nHvilke deler av XPKatana-arkivet vil"
- "\ndo installere på din hard disk?\n"))
-
- (set #tools-dest
- (cat "\nI hvilken katalog vil du ha hoveddelen av XPKatana "
- "\ninstallert i?\n"))
-
-
- (set #docs-dest
- (cat "\nHvor vil du installere dokumentasjonen?\n"))
-
- (set #rexx-dest
- (cat "\nHvor vil du installere Arexx skriptene?\n"))
-
-
- (set #install-arexx-help
- (cat "\nDette vil installere Arexx skriptene for å "
- "\nutvide funksjonaliteten til XPKatana."))
-
- (set #exit-message
- (cat "\nXPKatana er nå fullstendig installert!"
- "\nKos deg."))
-
-
- (set #install-library
- ("\nInstallerer FileID.library til 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 skripts" "FileID.library"
- "Dokumentasjon")
-
-
-
-
- )
- )
-
- (if (= InstallOpt 0)
- (abort (cat "\n\nInstallasjonen avbrutt :(")
- "\n\nIngen filer valgt for installering!")
- )
-
-
-
- ;-------------------------------------------------------
- ;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)
- )
- )
- )
-
- ;-------------------------------------------------------
- ;Insall 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)