;This Install-script contains to Cataloger (c)1995 by Axel Deising

; ask where to install Cataloger
(set @default-dest
 (askdir
   (prompt "Please select the Directory you would like the Cataloger to be"
	   "installed. ")
   (help @askdir-help)
   (default "SYS:")
 )
)
 
 (set ziel @default-dest)
 (set Catalogerdir (tackon ziel "Cataloger"))
(if ( < (exists Catalogerdir (noreq)) 2)
 (makedir Catalogerdir (prompt "Creating Cataloger Directory...")
 (help @makedir-help)
 (infos)
)
)

 (set Catalogerdircat (tackon Catalogerdir "Catalogs"))
(if ( < (exists Catalogerdircat (noreq)) 2)
 (makedir Catalogerdircat (prompt "Creating Cataloger Directory...")
 (help @makedir-help)
 (infos)
)
)

(working "Installing Cataloger")
(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Cataloger")
	(dest Catalogerdir)
	(infos)
)

(working "Installing Cataloger Guide")


(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Cataloger.guide")
	(dest Catalogerdir)
	(confirm)
)

(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Cataloger.guide.info")
	(dest Catalogerdir)
	(confirm)
)


(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Assigns.info")
	(dest Catalogerdir)
)
(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Assigns")
	(dest Catalogerdir)
)
(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Cat.prefs")
	(dest Catalogerdir)
)
(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Cat.packer")
	(dest Catalogerdir)
)


 (set Catalogerdir (tackon Catalogerdir "Catalogs"))

(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Catalogs/Aminet 3")
	(dest Catalogerdir)

)
(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Catalogs/Aminet 4")
	(dest Catalogerdir)

)
(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Catalogs/Aminet 5")
	(dest Catalogerdir)

)
(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Catalogs/Aminet 6")
	(dest Catalogerdir)

)
(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Catalogs/Aminet 7")
	(dest Catalogerdir)

)
(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Catalogs/Aminet 8")
	(dest Catalogerdir)

)
(copyfiles
	(prompt "")
	(help @copyfiles-help)
	(source "Catalogs/Aminet 9")
	(dest Catalogerdir)

)

(exit)
