; File : InstallDateBook
;
; $Project:           DateBook
;
; $Description:       Install script for DateBookIV
;
; $Module Id:         
; $Original Author:   Robert Hardy
; $Date Started:      Fall 1994
;
; $Header: sqa:BobsStuff/DateBook/InstallDateBook-v 1.13 1996/03/31 01:05:22 Bob Exp $
;
; $Revision: 1.13 $
;
; $State: Exp $
;
; $Locker:  $
;
;
;

(set vernum (getversion))
(set ver (/ vernum 65536))

(if (< ver 37)
	(abort "DateBookIV requires at least verion 2.04 of AmigaDOS")
)


(set prog_dir
	(askdir
		(prompt "Select Program directory")
		(help @askdir-help)
		(default "Sys:Utilities")
	)
)

(set help_dir
	(askdir
		(prompt "Select Documentation directory")
		(help @askdir-help)
		(default prog_dir)
	)
)

(set env_dir "ENV:DateBook")

(makedir env_dir)

(textfile 
    (dest (tackon env_dir "Help"))
	(append help_dir)
)

(set env_dir "ENVARC:DateBook")

(makedir env_dir)

(textfile 
    (dest (tackon env_dir "Help"))
	(append help_dir)
)

(set rexx_dir
	(askdir
		(prompt "Select Rexx Script directory")
		(help @askdir-help)
		(default prog_dir)
	)
)

(set db_dir
	(askdir
		(prompt "Select Database directory")
		(help @askdir-help)
		(default prog_dir)
	)
)

(set dbase_name (tackon db_dir "Dates.dat"))

(Copyfiles
	(prompt ("Copying DateBook to " prog_dir))
	(help @copyfiles-help)
	(source "DateBook")
	(infos)
	(dest prog_dir)
)

(Copyfiles
	(prompt ("Copying DateBook.guide to " help_dir))
	(help @copyfiles-help)
	(source "DateBook.guide")
	(infos)
	(dest help_dir)
)

(Copyfiles
	(prompt ("Copying ReadMe to " help_dir))
	(help @copyfiles-help)
	(source "ReadMe")
	(infos)
	(dest help_dir)
)

(Copyfiles
	(prompt ("Copying DateEdit.info to " prog_dir))
	(help @copyfiles-help)
	(source "DateEdit.info")
	(dest prog_dir)
)

(Copyfiles
	(prompt ("Copying Tomorrow.info to " prog_dir))
	(help @copyfiles-help)
	(source "Tomorrow.info")
	(dest prog_dir)
)

(Copyfiles
	(prompt ("Copying December.info to " prog_dir))
	(help @copyfiles-help)
	(source "December.info")
	(dest prog_dir)
)


(Copyfiles
	(prompt "Copying Pano.dbk to " rexx_dir)
	(help @copyfiles-help)
	(source "rexx")
	(pattern "*.dbk")
	(dest rexx_dir)
)

(tooltype 
	(prompt "Setting Database Tool")
	(help "No help here either")
	(settooltype "FILE" dbase_name)
	(dest 
		(tackon prog_dir "DateBook")
	)
)

(tooltype 
	(prompt "Setting Database Tool")
	(help "No help here either")
	(settooltype "FILE" dbase_name)
	(dest 
		(tackon prog_dir "DateEdit")
	)
)

(tooltype 
	(prompt "Setting Database Tool")
	(help "No help here either")
	(settooltype "FILE" dbase_name)
	(dest 
		(tackon prog_dir "December")
	)
)

(tooltype 
	(prompt "Setting Database Tool")
	(help "No help here either")
	(settooltype "FILE" dbase_name)
	(dest 
		(tackon prog_dir "Today")
	)
)

(set convert -1)

(if (exists dbase_name)
	(set convert 
		(askbool 
			(prompt "\n\n\nDates.dat already exists.\nShould I run `ConvertDateBook'?")
			(help "The Database size has changed and must be converted to the new format")
		)
	)
)

; file exist. should we convert it.

(if (= convert 1)
	(run "convertdatebook" dbase_name)
)

; file doen't exist, copy the default.

(if (= convert -1)
	(Copyfiles
		(prompt ("Copying Dates.dat to " db_dir))
		(help @copyfiles-help)
		(source "Dates.dat")
		(dest db_dir)
	)
)

(set start_mode  6)

(set start_mode 
	(askchoice 
		(prompt
			"\n\nWhich mode would you like DateBook startup in?")
		(choices "MemoCal" "Editor" "CLI" "Rexx Server" "AppIcon" "Clock" "Calendar")
		(default 6)
		(help "Select your prefered startup mode")
	)
)

(set prog "DateBook")

(set prog_string 
	(cat 
		"run <>NIL: " prog 
	)
)

(set startup_str "MEMO")
(set iconfy_str "CLOCK")

(if (= start_mode 0)
	(set startup_str "MEMO")
)

(if (= start_mode 1)
	(set startup_str "EDIT")
)

(if (= start_mode 2)
	(
		(set startup_str "CLI")
		(set prog_string 
			(cat "run <>CON:10/10/600/100/DateBookIV/auto/wait/close "
				 prog " quiet"
			)
		)
	)
)

(if (= start_mode 3)
	(set startup_str "SERVER")
)

(if (= start_mode 4)
	(
		(set startup_str "ICONIFY")
		(set iconify_str "ICON")
	)
)

(if (= start_mode 5)
	(set startup_str "ICONIFY")
)

(if (= start_mode 6)
	(
		(set startup_str "ICONIFY")
		(set iconify_str "CAL")
	)
)

(set prog (tackon prog_dir "DateBook"))

(set cfg_str
	(cat
		"DateBookIV_CFG\n\n"
		"STARTMODE " startup_str "\n"
		"ICONIFYTYPE "iconify_str "\n"
		"KEYPAD OFF\n"
		"CONFIRM ON\n"
		"NOTIFY OFF\n\n"
		"END DateBookIV_CFG\n"
	)
)

(textfile 
    (dest (cat prog ".dfg"))
	(append cfg_str)
)

(startup "DateBookIV" 
	(prompt
		(cat 
			"\n\nWould you like DateBook run during startup?\n\n"
			"This will add a line to your s:User-Startup file.\n\n"
			 prog_string "\n\n"
		)
	)
	(command prog_string)
	(help 
		(cat "This will add a line to your s:User-Startup file.\n\n"
			 prog_string "\n\n"
			 "Note:  It will not remove any old entry"
		)
	)
)

(set viewer "More")

(if (exists "sys:Utilities/Multiview")
	(set viewer "Multiview")
	(if (exists "sys:Utilities/AmigaGuide")
		(set viewer "AmigaGuide")
	)
)

(set read_file "Readme")

(run ("%s <>NIL: %s" viewer read_file))

(message "\n\nInstallation complete.\n\n You will find the Programs in " prog_dir
	  ", the database in " db_dir "  and docs in " help_dir"\n\nEnjoy!"
)
	  
(exit (quiet))