; $VER:ScanWWW Install 2.0 (13.8.96)

(set @app-name "ScanWWW")
(set @language "deutsch")

(makeassign "SCNInst" "" (safe))

(message "\n\nYou are about to install ScanWWW.\n"
			"\nPlease read the Documentation before you start ScanWWW!\n"
			"\nUse ScanWWWPrefs first!\n"
			"\n©1996-1997 by Sebastian Rieger"
)

(set newdest 
	(askdir (prompt "Please enter the path where the ScanWWW drawer should be created.")
		(help @askdir-help)
		(default @default-dest)
	)
)

(set fulldest (tackon newdest "ScanWWW"))
(set @default-dest fulldest)
(makedir
	(fulldest)
	(prompt "Creating drawer...")
	(help @makedir-help)
	(infos)
)

(copyfiles (prompt "Copying Icon...")
        (help @copyfiles-help)
        (source "Icons/ScanWWW.info")
        (dest newdest)
)

(copylib
	(prompt "Copying/Updating CanDo.Library\nThis library is used by ScanWWWPrefs.")
	(help
		"The CanDo.library is patly used by ScanWWW. Please install it!\n"
		"\nCanDo Legal Notice\n"
		"\nThis program was designed and written with CanDo v3.0 ©1994.\n"
		"Inovatronics, Inc.\n"
		"8499 Greenville Ave. #209B\n"
		"Dallas TX  75231  USA\n"
		"(214)340-4991, FAX 340-8514\n"
		"\nCanDo, Deckbrowser and their\n"
		"support libraries are the\n"
		"copyrighted sole property of\n"
		"Inovatronics, Inc.  Reproduction\n"
		"and distribution for any use other\n"
		"than non-commercial applications\n"
		"is strictly prohibited.\n\n"
		@copylib-help
	)
	(source "libs/CanDo.Library")
	(dest "Libs:")
	(confirm)
)

(copyfiles (prompt "Copying Doc...")
        (help @copyfiles-help)
        (source "ScanWWW.doc")
        (dest @default-dest)
        (infos)
)

(copyfiles (prompt "Copying Prefs...")
        (help @copyfiles-help)
        (source "ScanWWWPrefs")
        (dest @default-dest)
        (infos)
)

(copyfiles (prompt "Copying Main...")
        (help @copyfiles-help)
        (source "ScanWWW")
        (dest @default-dest)
        (infos)
)

(message "\n\nSome example configfiles will be placed in ENV: and ENVARC: now.\n"
			"\nPlease use ScanWWWPrefs to alter them before you start ScanWWW.\n"
)

(copyfiles (prompt "Copying prefs...")
        (help (cat " is being copied.\n\n" @copyfiles-help))
        (source "prefs/ScanWWW.prefs")
        (dest "env:")
        (pattern "(ScanWWW.prefs)")
)

(copyfiles (prompt "Copying prefs...")
        (help (cat " is being copied.\n\n" @copyfiles-help))
        (source "prefs/ScanWWW.prefs")
        (dest "envarc:")
        (pattern "(ScanWWW.prefs)")
)





(copyfiles (prompt "Copying prefs...")
        (help (cat " is being copied.\n\n" @copyfiles-help))
        (source "prefs/ScanWWWget.prefs")
        (dest "env:")
        (pattern "(ScanWWWget.prefs)")
)

(copyfiles (prompt "Copying prefs...")
        (help (cat " is being copied.\n\n" @copyfiles-help))
        (source "prefs/ScanWWWget.prefs")
        (dest "envarc:")
        (pattern "(ScanWWWget.prefs)")
)



(copyfiles (prompt "Copying prefs...")
        (help (cat " is being copied.\n\n" @copyfiles-help))
        (source "prefs/ScanWWWrej.prefs")
        (dest "env:")
        (pattern "(ScanWWWrej.prefs)")
)

(copyfiles (prompt "Copying prefs...")
        (help (cat " is being copied.\n\n" @copyfiles-help))
        (source "prefs/ScanWWWrej.prefs")
        (dest "envarc:")
        (pattern "(ScanWWWrej.prefs)")
)
 

(complete 95)





(complete 100)

(exit)