home *** CD-ROM | disk | FTP | other *** search
- ;
- ; PowerGuide 1.23 - Install Script
- ;
- ; (c) 1996 by Matthias Scheler
- ;
-
- (set ProductName "PowerGuide")
- (set ProductVers "1.23")
-
- (transcript #install ProductName " " ProductVers " ...")
-
- (complete 0)
-
- ; Use "spatch"
-
- (working "Applying patch...")
- (run ("Delete T:PowerGuide ALL QUIET"))
- (run ("MakeDir T:PowerGuide"))
- (run ("spatch -oT:PowerGuide/PowerGuide -pPowerGuide121to123.pch AMINET15:Tools/PowerGuide"))
- (run ("Copy PowerGuide.noinfo T:PowerGuide/PowerGuide.info CLONE QUIET"))
- (run ("Copy Catalogs T:PowerGuide/Catalogs ALL CLONE QUIET"))
- (complete 50)
-
- ; Copy files
-
- (set @default-dest "Work:")
- (copyfiles
- (prompt "Installing " ProductName "...")
- (source "T:PowerGuide/")
- (choices "PowerGuide" "PowerGuide.info" "Catalogs")
- (help @copyfiles-help)
- (confirm)
- (set @default-dest
- (askdir
- (prompt ("Please select a directory for \"%s\"." ProductName))
- (help @askdir-help)
- (default @default-dest)
- )
- )
- (dest @default-dest)
- )
- (complete 75)
-
- ; Clean up
-
- (working "Cleaning up...")
- (run ("Delete T:PowerGuide ALL QUIET"))
- (complete 100)
-
- ; All Done
-
- (exit)
-