;
;                       CDB Installation Script
;                                 by
;                          Andrea Rafreider
;

(message "\n\nCDB is copyright Steve P.R. Peruzzi 1996\n"
         "\n"
         "Installation script written by Andrea Rafreider\n")

(set @default-dest
        (askdir
                (prompt "\nChoose the directory where you "
                        "want to install CDB.\n"
                        "A drawer named \"CDB\" will be created "
                        "in the directory you choose.\n")
                (help   "Here you can specify where you want "
                        "to install CDB.\n"
                        "A drawer named \"CDB\" will be created "
                        "in the directory you choose.\n")
                (default "WORK:")
        )
)

(makedir (tackon @default-dest "CDB"))

(set @default-dest (tackon @default-dest "CDB"))


(copylib
        (source (tackon (pathonly @icon) "CDB"))
        (dest @default-dest)
        (infos)
)

(copyfiles
        (source (tackon (pathonly @icon) "CDB.guide"))
        (dest @default-dest)
        (infos)
)

(copyfiles
        (source (tackon (pathonly @icon) "CDB.readme"))
        (dest @default-dest)
        (infos)
)

(makedir (tackon @default-dest "data"))

(copyfiles
        (all)
        (source (tackon (pathonly @icon) "data"))
        (dest   (tackon @default-dest "data"))
)

(message "\nCDB installation completed!\n")