;$VER: rc-ftpd Install 2.0 (27.3.2002) ©1999-2002 Robin Cloutman

(set #language (getenv "Language"))

(complete 0)

;=============================================================================
; English strings
(set #msg-abort
(cat "ERROR - Cannot find the executable!!!\n"
     "\n"
     "Please ensure you extracted the archive\n"
     "correctly!"
))

(set #msg-setup
(cat "Checking system and application..."
))

(set #msg-dest
(cat "Where do you want to install RC-FTPd?\n"
     "(A new drawer will NOT be created)"
))

(set #msg-dest-help
(cat "It doesn't matter where you put this,\n"
     "although I strongly suggest you\n"
     "don't hide it 30 levels down..."
))

(set #msg-cpu
(cat "Which CPU do you have?"
))

(set #msg-cpu-help
(cat "Unless you have some reason to choose\n"
     "a different version, best leave\n"
     "this to the default version.\n"
     "\n"
     "This will use the best available version,\n"
     "so if you haven't downloaded the ftpd_cpu\n"
     "archive, then the best you can get is the\n"
     "plain 68000 version.\n"
     "\n"
     "The 68000 version is safe for all cpu's"
     "\n"
     @askchoice-help
))

(set #msg-install
(cat "Installing main RC-FTPd executable..."
))

(set #msg-install-help
(cat "It's pretty useless without this..."
     "\n"
     @copyfiles-help
))

(set #msg-help
(cat "Installing the Guide..."
))

(set #msg-help-help
(cat "This one isn't updated every time the main\n"
     "program is, however whenever it\n"
     "is I bump the version to match the server."
     "\n"
     @copyfiles-help
))

(set #msg-screenshot
(cat "Installing the Screenshots...\n"
     "Please choose the main location as the guide."
))

(set #msg-screenshot-help
(cat "These files are linked from the guide,\n"
     "if you know what you're doing then they're\n"
     "not needed.\n"
     "\n"
     "They must be installed in the same location\n"
     "as the guide for the links to work correctly."
     "\n"
     @copyfiles-help
))

(set #msg-icon
(cat "Installing the default icon..."
))

(set #msg-icon-help
(cat "Eye candy for Workbench 3.5+ users,\n"
     "you'll need to be running HappyEnv or env-handler\n"
     "to be able to use this right off,\n"
     "otherwise copy the icon from ENVARC: to ENV:..."
))

(set #msg-locale
(cat "Copying other languages...\n"
     "(English built in)"
))

(set #msg-locale-help
(cat "Just choose the languages you wish installed..."
))

(set #msg-key
(cat "Installing the RC-FTPd keyfile..."
))

(set #msg-key-help
(cat "Well, why don't you want to install it,\n"
     "it's not as if you really want to use\n"
     "all the features anyway..."
))

(set #msg-exit
(cat "Installation complete\n"
     "\n"
     "RC-FTPd has been installed in "
))
;-----------------------------------------------------------------------------
; Greek strings
(if (= @language "greek")
(

	(set #msg-abort
	(cat "ΣΦΑΛΜΑ - Δεν μπορώ να βρω το εκτελέσιμο αρχείο!!!"
	))

	(set #msg-setup
	(cat "`Ελεγχος συστήματος και προγράμματος..."
	))

	(set #msg-dest
	(cat "Που θέλετε να εγκαταστήσετε το RC-FTPd;\n"
	     "(Δεν θα δημιουργηθεί νέο συρτάρι)"
	))

	(set #msg-dest-help
	(cat "Δεν έχει σημασία που θα το τοποθετήσετε,\n"
	     "αν και δεν θα συμβούλευα\nνα το κρύψετε κάπου..."
	))

	(set #msg-cpu
	(cat "Ποιά έκδοση του RC-FTPd θέλετε να εγκαταστήσετε;"
	))

	(set #msg-cpu-help
	(cat "Αν δεν έχετε κάποιο λόγο να επιλέξετε άλλη έκδοση,\n"
	     "καλύτερα αφήστε την επιλογή στην\n"
	     "προεπιλεγμένη έκδοση.\n"
	     "(Η έκδοση για 68000 είναι ασφαλής για όλους τους επεξεργαστές)"
	))

	(set #msg-install
	(cat "Εγκατάσταση RC-FTPd..."
	))

	(set #msg-install-help
	(cat "Δεν γίνεται τίποτα χωρίς αυτό..."
	))

	(set #msg-help
	(cat "Εγκατάσταση του Guide..."
	))

	(set #msg-help-help
	(cat "Οι οδηγίες του προγράμματος δεν ανανεώνονται κάθε φορά που\n"
	     "κυκλοφορεί νέα έκδοση, πάντως ανανεώνω την έκδοση\n"
	     "για να ταιριάζει με τον\nτον διακομιστή..."
	))

	(set #msg-screenshot
	(cat "Εγκατάσταση των Screenshots..."
	))

	(set #msg-screenshot-help
	(cat "Αυτά τα αρχεία συνδέονται με το guide,\n"
	     "αν ξέρετε τι κάνετε τότε δεν τα\nχρειάζεστε..."
	))

	(set #msg-icon
	(cat "Εγκατάσταση του προεπιλεγμένου εικονιδίου..."
	))

	(set #msg-icon-help
	(cat "Για τους χρήστες Workbench 3.5+,\n"
	     "χρειάζετε να τρέχετε το HappyEnv ή το env-handler\n"
	     "για να το χρησιμοποιήσετε αμέσως,\n"
	     "αλλιώς αντιγράψτε το εικονίδιο από το ENVARC: στο ENV:..."
	))

	(set #msg-locale
	(cat "Αντιγραφή άλλων γλωσσών...\n"
	     "(Τα αγγλικά είναι εγκατεστημένα στο πρόγραμμα)"
	))

	(set #msg-locale-help
	(cat "Διαλέξτε τις άλλες γλώσσες που θέλετε να εγκαταστήσετε..."
	))

	(set #msg-key
	(cat "Εγκατάσταση του κλειδιού του RC-FTPd..."
	))

	(set #msg-key-help
	(cat "Δεν φαντάζομαι να μην θέλετε να το εγκαταστήσετε,\n"
	     "με αυτό θα μπορείτε να χρησιμοποιείτε\n"
	     "όλες τις επιλογές του προγράμματος..."
	))

	(set #msg-exit
	(cat "Η εγκατάσταση ολοκληρώθηκε\n"
	     "\n"
	     "Το RC-FTPd έχει εγκατασταθεί στο "
	))
))
;-----------------------------------------------------------------------------
; German strings
(if (= @language "deutsch")
(
;	(set #msg-abort
;	(cat
;	))

	(set #msg-setup
	(cat "Prόfe System und Anwendung..."
	))

	(set #msg-dest
	(cat "Wo soll RC-FTPd installiert werden?\n"
	     "(Es wird KEINE neue Schublade erzeugt)"
	))

	(set #msg-dest-help
	(cat "Es spielt keine Rolle, wo man es installiert,\n"
	     "obwohl ich empfehlen wόrde,\n"
	     "es nicht zu sehr zu verstecken..."
	))

	(set #msg-cpu
	(cat "Welche Version von RC-FTPd mφchten Sie installieren?"
	))

	(set #msg-cpu-help
	(cat "Wenn Sie keine Veranlassung sehen, eine spezielle Version\n"
	     "zu installieren, nehmen Sie\n"
	     "einfache die normale.\n"
	     "(Die 68000 Version funktioniert mit allen Prozessoren)"
	))

	(set #msg-install
	(cat "Installiere RC-FTPd..."
	))

	(set #msg-install-help
	(cat "Was sonst..."
	))

	(set #msg-help
	(cat "Installiere die Anleitung..."
	))

	(set #msg-help-help
	(cat "Diese Anleitung wird nicht stδndig aktualisiert,\n"
	     "obwohl die Versionsnummer von mir\nstets angeglichen wird..."
	))

	(set #msg-screenshot
	(cat "Installiere die Screenshots..."
	))

	(set #msg-screenshot-help
	(cat "Diese Dateien werden von der Anleitung verwendet,\n"
	     "sind jedoch nicht dringend notwendig..."
	))

	(set #msg-icon
	(cat "Installiere das Vorgabepiktogramm..."
	))

	(set #msg-icon-help
	(cat "Fόr Nutzer der Workbench 3.5+,\n"
	     "man benφtigt HappyEnv oder env-handler dafόr,\n"
	     "anderenfalls kopiert das Piktogramm von ENVARC: nach ENV:..."
	))

	(set #msg-locale
	(cat "Kopiere andere Sprachen...\n"
	     "(Englisch ist eingebaut)"
	))

	(set #msg-locale-help
	(cat "Wδhlen Sie die bevorzugte Sprache..."
	))

	(set #msg-key
	(cat "Installiere das RC-FTPd Keyfile..."
	))

	(set #msg-key-help
	(cat "Wird benφtigt, um alle Eigenschaften des Programms zu nutzen..."
	))

;	(set #msg-exit
;	(cat
;	))
))
;-----------------------------------------------------------------------------
; Russian strings by Michael Malyshev (Ami1251) Revision 1
(if (= @language "russian")
(
	(set #msg-abort
	(cat "ΞΨΘΑΚΐ - Ξρνξβνξι τΰιλ νε νΰιδεν!!!"
	))

	(set #msg-setup
	(cat "Οπξβεπ�ώ ρθρςεμσ θ οπξγπΰμμϋ..."
	))

	(set #msg-dest
	(cat "Κσδΰ Βϋ υξςθςε σρςΰνξβθςό RC-FTPd?\n"
	     "(Νξβϋι κΰςΰλξγ ΝΕ ρξηδΰΈςρ�)"
	))

	(set #msg-dest-help
	(cat "Οπθνφθοθΰλόνξι πΰηνθφϋ ξς μερςΰ σρςΰνξβκθ νες,\n"
	     "νξ νε πεκξμενδσώ Βΰμ οπ�ςΰςό οπξγπΰμμσ\n"
	     "γλσαξκξ νΰ 30 σπξβνει..."
	))

	(set #msg-cpu
	(cat "Κΰκσώ βεπρθώ RC-FTPd Βϋ υξςθςε σρςΰνξβθςό?"
	))

	(set #msg-cpu-help
	(cat "Ερλθ σ Βΰρ νες οπθχθν δλ� βϋαξπΰ\n"
	     "δπσγξι βεπρθθ, λσχψε ξρςΰβθςό βρΈ\n"
	     "κΰκ ερςό ρ αΰηξβξι βεπρθει.\n"
	     "(Βεπρθ� οξδ 68000 αεηξοΰρνΰ δλ� βρευ οπξφερρξπξβ)"
	))

	(set #msg-install
	(cat "Σρςΰνξβκΰ RC-FTPd..."
	))

	(set #msg-install-help
	(cat "Αεη ύςξγξ νθκσδΰ..."
	))

	(set #msg-help
	(cat "Σρςΰνξβκΰ δξκσμενςΰφθθ..."
	))

	(set #msg-help-help
	(cat "�σς ξανξβλενθ� βερόμΰ πεδκθε\n"
	     "οξ ρπΰβνενθώ ρ ρΰμξι οπξγπΰμμξι, νξ ερλθ\n"
	     "οπξθρυξδ�ς θημενενθ�, ςξ βεπρθ� δξκσμενςΰφθθ\n"
	     "ρξξςβεςρςβσες βεπρθθ ρεπβεπΰ..."
	))

	(set #msg-screenshot
	(cat "Σρςΰνξβκΰ κΰπςθνξκ..."
	))

	(set #msg-screenshot-help
	(cat "Νΰ νθυ ερςό ρρϋλκθ θη δξκσμενςΰφθθ,\n"
	     "ερλθ Βϋ β κσπρε χεγξ δελΰςό, ςξ ξνθ Βΰμ\n"
	     "νεξα�ηΰςελόνϋ..."
	))

	(set #msg-icon
	(cat "Σρςΰνξβκΰ θκξνκθ..."
	))

	(set #msg-icon-help
	(cat "Κπΰρξςθωΰ δλ� οξλόηξβΰςελει Workbench 3.5+,\n"
	     "οπθ νΰλθχθθ HappyEnv θλθ env-handler βρΈ γξςξβξ\n"
	     "κ πΰαξςε ρπΰησ οξρλε σρςΰνξβκθ,\n"
	     "θνΰχε νΰδξ ρκξοθπξβΰςό θκξνκσ θη ENVARC: β ENV:..."
	))

	(set #msg-locale
	(cat "Κξοθπσώ δπσγθε �ηϋκθ...\n"
	     "(ΐνγλθιρκθι βρςπξεν)"
	))

	(set #msg-locale-help
	(cat "Βϋαεπθςε θνςεπερσώωθε Βΰρ �ηϋκθ δλ� σρςΰνξβκθ..."
	))

	(set #msg-key
	(cat "Σρςΰνξβκΰ κλώχΰ πεγθρςπΰφθθ RC-FTPd..."
	))

	(set #msg-key-help
	(cat "Βϋ χεγξ? Οξχεμσ Βϋ νε υξςθςε σρςΰνξβθςό\n"
	     "κλώχ θ θροξλόηξβΰςό οπξγπΰμμσ αεη ξγπΰνθχενθι..."
	))

	(set #msg-exit
	(cat "Σρςΰνξβκΰ ηΰβεπψενΰ σροεψνΰ.\n"
	     "\n"
	     "RC-FTPd αϋλ σρςΰνξβλεν β κΰςΰλξγ"
	))
))
;-----------------------------------------------------------------------------
; Polish strings
(if (= @language "polski")
(
	(set #msg-abort
	(cat "BΞΒD - Nie mogλ znaleϊκ domyτlnego pliku wykonywalnego!!!"
	))

	(set #msg-setup
	(cat "Sprawdzam system i aplikacjλ..."
	))

	(set #msg-dest
	(cat "Gdzie mam zainstalowaκ RC-FTPd?\n"
	     "(Nowy katalog NIE zostanie utworzony)"
	))

	(set #msg-dest-help
	(cat "Nieistotne jest gdzie umieτcisz program,\n"
	     "jednak sugerujλ abyτ nie umieszczaξ go zbyt gξλdoko\n"
	     "w strukturze katalogσw..."
	))

	(set #msg-cpu
	(cat "Ktσrβ wersjλ programu RC-FTPd chcesz zainstalowaκ?"
	))

	(set #msg-cpu-help
	(cat "Jeτli nie masz ϋadnych powodσw aby wybieraκ\n"
	     "innβ wersjλ, najlepiej\n"
	     "nic tutaj nie zmieniaj.\n"
	     "(Wersja 68000 bλdzie dzialaκ na wszystkich procesorach)"
	))

	(set #msg-install
	(cat "Instalujλ RC-FTPd..."
	))

	(set #msg-install-help
	(cat "Program bez tego pliku jest bezuϋyteczny..."
	))

	(set #msg-help
	(cat "Instalujλ dokumentacjλ..."
	))

	(set #msg-help-help
	(cat "Dokumetacja nie jest uaktualniana tak czλsto\n"
	     "jak program gξσwny, jednak przy kaϋdym uaktualnieniu\n"
	     "programu zmieniam takϋe wersjλ dokumentacji\n"
	     "aby odpowiadaξa wersji serwera..."
	))

	(set #msg-screenshot
	(cat "Instalujλ zrzuty ekranu..."
	))

	(set #msg-screenshot-help
	(cat "Te pliki sβ powiβzane z dokumentacjβ,\n"
	     "jeτli wiesz co robisz,\n"
	     "nie bλdβ Ci one potrzebne..."
	))

	(set #msg-icon
	(cat "Instalujλ ikonkλ domyτlnβ..."
	))

	(set #msg-icon-help
	(cat "Oczko w gξowie uϋytkownikσw Workbencha 3.5+,\n"
	     "bλdziesz potrzebowaξ programiku HappyEnv lub env-handler\n"
	     "aby uϋywaκ tej ikonki,\n"
	     "w przeciwnym wypadku skopiuj ikonkλ z ENVARC: do ENV:..."
	))

	(set #msg-locale
	(cat "Kopiowanie pozostaξych jλzykσw...\n"
	     "(Angielski jest wbudowany"
	))

	(set #msg-locale-help
	(cat "Po prostu wybierz jλzyki ktσre chcesz zainstalowaκ..."
	))

	(set #msg-key
	(cat "Instalujλ plik-klucz RC-FTPd..."
	))

	(set #msg-key-help
	(cat "Dlaczego miaξbyτ nie zainstalowaκ tego pliku,\n"
	     "skoro chcesz korzystaκ ze wszystkich\n"
	     "opcji programu..."
	))

	(set #msg_exit
	(cat "Instalacja zakoοczona\n"
	     "\n"
	     "Program RC-FTPd zostaξ zainstalowany w "
	))
))
;-----------------------------------------------------------------------------
; Slovenian strings
(if (= @language "slovensko")
(
	(set #msg-setup
	(cat "Preverjam sistem in aplikacijo..."
	))

	(set #msg-dest
	(cat "Kam Ύelite namestiti RC-FTPd?\n"
	     "(Nov predal NE bo ustvarjen.)"
	))

	(set #msg-dest-help
	(cat "Ne vaΎno kam ga namestite,\n"
	     "θeprav vam zelo priporoθam,\n"
	     "da ga ne skrijete 30 nivojev globoko..."
	))

	(set #msg-cpu
	(cat "Katero razliθico RC-FTPd hoθete namestiti?"
	))

	(set #msg-cpu-help
	(cat "Θe nimate res kakega posebnega razloga za izbor\n"
	     "druge razliθice, je najbolje, da ohranite\n"
	     "kar privzeto razliθico.\n"
	     "(Razliθica za 68000 deluje na vseh procesorjih.)"
	))

	(set #msg-install
	(cat "NameΉθam RC-FTPd..."
	))

	(set #msg-install-help
	(cat "Vse skupaj je precej neuporabno brez tega..."
	))

	(set #msg-help
	(cat "NameΉθam priroθnik..."
	))

	(set #msg-help-help
	(cat "Ta ni posodobljen vedno, ko je\n"
	     "posodobljen glavni program. A kadarkoli ga posodobim,\n"
	     "uskladim razliθico s\nstreΎnikom..."
	))

	(set #msg-screenshot
	(cat "NameΉθam posnetke zaslona..."
	))

	(set #msg-screenshot-help
	(cat "Te datoteke so povezane s priroθnikom.\n"
	     "Θe veΉ, kaj delaΉ, potem\n"
	     "niso potrebne..."
	))

	(set #msg-icon
	(cat "NameΉθam privzeto ikono..."
	))

	(set #msg-icon-help
	(cat "Lepotni dodatki za uporabnike sistema Workbench 3.5+,\n"
	     "Pognan morate imeti HappyEnv ali env-handler,\n"
	     "da bi jih lahko takoj uporabljali.\n"
	     "V nasprotnem primeru prekopirajte ikono iz ENVARC: v ENV:..."
	))

	(set #msg-locale
	(cat "Kopiram ostale jezike...\n"
	     "(AngleΉki je vgrajen.)"
	))

	(set #msg-locale-help
	(cat "Izberite jezike, ki jih Ύelite namestiti..."
	))

	(set #msg-key
	(cat "NameΉθam kljuθ za RC-FTPd..."
	))

	(set #msg-key-help
	(cat "No, zakaj ga ne bi namestili.\n"
	     "Saj ne, da bi Ύeleli res uporabljati\nvse funkcije..."
	))

	(set #msg-exit
	(cat "Namestitev je dokonθana.\n"
	     "\n"
	     "RC-FTPd je bil nameΉθen v imenik "
	))
))
;=============================================================================

(procedure p_file arg1 arg2 arg3
	(if (= (exists arg1) true)
		(if (>= arg2 arg3)
			(
				(set #file arg1)
				true
			)
			false
		)
		false
	)
)

;=============================================================================

(set @default-dest "C:")

(complete 0)

(working #msg-setup)

(if (= (exists "ftpd") false)
	(if (= (exists "ftpd_020") false)
		(if (= (exists "ftpd_040") false)
			(if (= (exists "ftpd_060") false)
				(abort #msg-abort)
			)
		)
	)
)

(if (= (database "cpu") "68060")(set #version 4)
	(if (= (database "cpu") "68040")(set #version 3)
		(if (= (database "cpu") "68030")(set #version 2)
			(if (= (database "cpu") "68020")(set #version 1)
				(set #database 0)
			)
		)
	)
)

(welcome)

(if (>= @user-level 1)
	(set #version
		(askchoice
			(prompt #msg-cpu)
			(help #msg-cpu-help)
			(choices "68000" "68020" "68030" "68040" "68060")
			(default #version)
		)
	)
)

(if (= (p_file "ftpd_060" #version 4) false)
	(if (= (p_file "ftpd_040" #version 3) false)
		(if (= (p_file "ftpd_020" #version 1) false)
			(if (= (set #file "ftpd") false)
				(abort #msg-abort)
			)
		)
	)
)

(complete 12)

(if (>= @user-level 1)
	(set @default-dest
		(askdir
			(prompt #msg-dest)
			(help #msg-dest-help)
			(default @default-dest)
		)
	)
)

(complete 24)

(copylib
	(prompt #msg-install)
	(help #msg-install-help)
	(source #file)
	(dest @default-dest)
	(newname "ftpd")
	(infos)
	(noposition)
	(if (>= @user-level 2)(confirm))
)

(complete 36)

(copyfiles
	(prompt #msg-help)
	(help #msg-help-help)
	(source "Docs/")
	(pattern "ftpd#?.(guide|history)")
	(dest @default-dest)
	(optional nofail)
	(if (>= @user-level 1)(confirm))
)

(complete 48)

(copyfiles
	(prompt #msg-screenshot)
	(help #msg-screenshot-help)
	(source "Docs/")
	(pattern "ftpd_#?.iff")
	(dest @default-dest)
	(optional nofail)
	(if (>= @user-level 1)(confirm))
)

(complete 60)

(if (= (exists "ENVARC/Sys/def_rc-ftpd.info") false)
	(copyfiles
		(prompt #msg-icon)
		(help #msg-icon-help)
		(source "ENVARC/Sys/def_rc-ftpd.info")
		(dest "ENVARC:Sys/")
		(optional nofail)
		(if (>= @user-level 2)(confirm))
	)
)

(complete 72)

(copyfiles
	(prompt #msg-locale)
	(help #msg-locale-help)
	(source "Catalogs")
	(pattern "~(ftpd.c?)")
	(dest "Locale:Catalogs/")
	(optional nofail)
	(if (>= @user-level 1)(confirm))
)

(complete 84)

(if (= (exists (tackon @default-dest "ftpd.key")) false)
	(if (= (exists "ftpd.key") true)
		(copyfiles
			(prompt #msg-key)
			(help #msg-key-help)
			(source "ftpd.key")
			(dest @default-dest)
			(optional nofail)
			(if (>= @user-level 2)(confirm))
		)
	)
)

(complete 100)

(exit #msg-exit @default-dest (quiet))