home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
kolekcje
/
stanislaw_weslawski
/
ulubione_share
/
catalogerv2.71
/
install_cataloger
< prev
next >
Wrap
Text File
|
1996-03-17
|
5KB
|
269 lines
; $VER: Install Cataloger V2.0 (19.01.1996)
; This Install-script contains to Cataloger V2.x ©1995/96 by Axel Deising ;
(if (= (exists "Env:Language") 1)
; GetEnv reports "String too long" if the variable doesn't exist! :(
(set @language (getenv "language"))
)
;**************************************************************************
; English Installation
(set default-lang 1)
(set #bad-kick
"You must have AmigaOS Release 3.0 or newer to use Cataloger."
)
(set #welcome
(cat
"\n\n\nWelcome to the Cataloger installation.\n\n"
" Cataloger ©1996 Axel Deising."
)
)
(set #install-parts "Please select the parts you wish to install")
(set #item-Cataloger "Cataloger")
(set #item-Cataloger-guide "Cataloger.guide")
(set #item-locale "Translations")
(set #where-Cataloger
(cat
"Please select the Directory you would like Cataloger to \n"
"be installed?\n(A directory will be created)."
)
)
(set #which-language "Which languages should be installed?")
(set #copy "Copying %s to %s...")
;**************************************************************************
; Deutsche Installation
(if (= @language "deutsch")
(
(set default-lang 2)
(set #bad-kick
(cat
"Tut mir Leid!\n"
"Aber Sie müßen AmigaOS Release 3.0 oder neur haben für Cataloger."
)
)
(set #welcome
(cat
"\n\n\nWillkommen zu der Installation von Cataloger.\n\n"
"Cataloger ©1995/96 Axel Deising."
)
)
(set #install-parts "Wählen Sie bitte die Teile, die Sie installieren wollen.")
(set #item-Cataloger "Cataloger")
(set #item-Cataloger-guide "Cataloger.guide")
(set #item-locale "Kataloge")
(set #where-Cataloger
(cat
"Wählen Sie bitte das Directory für Cataloger.\n"
"(Ein Verzeichnis wird erstellt)"
)
)
(set #which-language "Welche Sprache sollen installiert werden?")
(set #copy "Kopiere %s nach %s...")
)
)
;**************************************************************************
; the installaion script
(set @default-dest "")
; Check Kickstart version. Exit if not at least 3.0
(if (< (/ (getversion) 65536) 39)
(abort #bad-kick)
)
(message #welcome)
(welcome)
(set install-files
(askoptions
(prompt #install-parts)
(help @askoptions-help)
(choices
#item-Cataloger
#item-Cataloger-guide
#item-locale
)
(default 7)
)
)
(if (IN install-files 0)
(set Cataloger-dest
(askdir
(prompt #where-Cataloger)
(help @askdir-help)
(default "WORK:")
)
)
)
(set Cataloger-dest (tackon Cataloger-dest "Cataloger"))
(if ( < (exists Cataloger-dest (noreq)) 2)
(makedir Cataloger-dest (prompt "Creating Cataloger Directory...")
(help @makedir-help)
(infos)
)
)
(set Cataloger-dest2 (tackon Cataloger-dest "Catalogs"))
(if ( < (exists Cataloger-dest2 (noreq)) 2)
(makedir Cataloger-dest2 (prompt "Creating Cataloger Directory...")
(help @makedir-help)
(infos)
)
)
(copyfiles
(prompt "Copy Aminet 9 - Index ?" )
(source "Catalogs/Aminet 9")
(dest Cataloger-dest2)
(help @copyfiles-help)
(infos)
(confirm)
)
(copyfiles
(prompt "Copy Whole Aminet - Description ?" )
(source "Catalogs/Whole Aminet.dcr")
(dest Cataloger-dest2)
(help @copyfiles-help)
(infos)
(confirm)
)
(if (IN install-files 1)
(set guide-dest Cataloger-dest)
)
(set languages 0)
(if (IN install-files 2)
(set lang
(askoptions
(prompt #which-language)
(help @askoptions-help)
(choices
"English"
"Deutsch"
)
(default default-lang)
)
)
)
; And now do the actual installation
(complete 0)
(if (IN install-files 0)
(
(copyfiles
(prompt (#copy "Cataloger" Cataloger-dest))
(source "Cataloger")
(dest Cataloger-dest)
(help @copyfiles-help)
(infos)
(confirm)
)
(copyfiles
(prompt (#copy "Cataloger.prg" Cataloger-dest))
(source "Cat.prefs")
(dest Cataloger-dest)
(help @copyfiles-help)
(infos)
)
(copyfiles
(prompt (#copy "Packer kopieren ?" Cataloger-dest))
(source "Cat.packer")
(dest Cataloger-dest)
(help @copyfiles-help)
(infos)
(confirm)
)
)
)
(complete 33)
(if (IN install-files 1)
(
(copyfiles
(prompt (#copy "Cataloger.guide" guide-dest))
(source "Cataloger.guide")
(help @copyfiles-help)
(dest guide-dest)
(infos)
(confirm)
)
)
)
(complete 66)
(if (IN install-files 2)
(
(set n 0)
(while
(set language
(select n
"English"
"Deutsch"
""
)
)
(
(if (AND (IN lang n) (<> 0 n))
(
(set catalog
; (tackon "Catalogs"
(tackon language "Cataloger.catalog")
; )
)
(set destination (tackon "Locale:Catalogs" language))
(copylib
(prompt (#copy catalog destination))
(source catalog)
(dest destination)
)
)
)
(set n (+ n 1))
)
)
)
)
(complete 100)
(exit)