home *** CD-ROM | disk | FTP | other *** search
- ; NewTrashcan Installer
-
- (set handdir
- (askdir (prompt "Verzeichnis für den Handler wählen")
- (default "sys:WBStartup")
- (help @askdir-help)))
-
- (copyfiles (source "//WBStartup/")
- (dest handdir)
- (pattern "#?")
- (infos))
-
- (set dirname
- (askdir (prompt "Verzeichnis für den Voreinsteller wählen")
- (default "sys:Prefs")
- (help @askdir-help)))
-
- (copyfiles (source "//Prefs/")
- (dest dirname)
- (pattern "#?")
- (infos))
- (set locale
- (getassign "Locale" "a"))
-
- (if locale
- ( (set sloc (cat "//Locale/" @language "/"))
- (set dloc (cat "Locale:catalogs/" @language "/"))
- (copyfiles (source sloc)
- (dest dloc)
- (pattern "#?"))))
-
- (if (askbool (help @askbool-help)
- (prompt "Soll der Handler jetzt gestartet werden?")
- (choices "JA" "NEIN"))
- ((set nt (cat "run " handdir "/NewTrashcan install"))
- (run nt))
- )
-
- (exit "Fertig!\n" "NewTrashcan wird beim nächsten Booten immer gestartet.")