home *** CD-ROM | disk | FTP | other *** search
- ; NewTrashcan Installer
-
- (set handdir
- (askdir (prompt "Select dir for NT-Handler")
- (default "sys:WBStartup")
- (help @askdir-help)))
-
- (copyfiles (source "//WBStartup/")
- (dest handdir)
- (pattern "#?")
- (infos))
-
- (set dirname
- (askdir (prompt "Select dir for NT-Prefs")
- (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 "Do you want to start the handler now?")
- (choices "YES" "NO"))
- ((set nt (cat "run " handdir "/NewTrashcan install"))
- (run nt))
- )
-
- (exit "Done!\n" "NewTrashcan will be started in every booting.")