;********************************************************************************
;     ______        __                  __  __        
;    / __  /       / /                 / / / /       
;   / /  -'__  __ / /___ ______ _____ / / / /______ _____
;  / /     \ \/ // __  // ____// .__// / / // ____// .__/
; / /___    \  // /_/ // __/_ / /   / /_/ // __/_ / /
; \____/    / //_____//_____//_/    \____//_____//_/ V3
;          /_/                                                          
; 
; $VER: CyberVer 3.0c (December-17-1996)
; CyberVer by Robert C. Reiswig ©1995-1996
;
; If you wish to use any part of this installer you must ask. May not be 
; integrated/placed into any other package. Changes, suggestions or problems:
; cyberver@vgr.com or rcr@netcom.com
;--------------------------------------------------------------------------------
;
;********************************************************************************
(if (= @user-level 0) (set @user-level 1))
(if (= frank 26) (welcome))

;********************************************************************************
; Read Needed System information
;********************************************************************************
(set lan 1)
(if (> (exists ("env:Language")) 0)
  (if (= "deutsch" (getenv "Language")) (set lan 0) )
)

(if (> (exists ("env:user")) 0) (set username (getenv "USER")) )
(if (> (exists ("env:username")) 0) (set username (getenv "USERNAME")) )
(if (> (exists ("env:host")) 0) (set hostname (getenv "HOST")) )
(if (> (exists ("env:hostname")) 0) (set hostname (getenv "HOSTNAME")) )

(set #exitmessage1 "\nA text file, '")
(set #exitmessage2 "', with all the version information for the V43DT and CyberGraphX files was written out.")

;********************************************************************************
; Show and Save (ram:V43DT_Versions.txt) Versions of V43 DTs
;********************************************************************************
(procedure getver
  (set vernum1 (getversion checkfile))
  (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  (set verrev (cat ver1 "." rev1))
  (if (= verrev "0.0") (set verrev "N/A"))
)

(set master "CyberGraphX - Libs and Monitor files:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n")
(set checkfile "libs:cgxsystem.library") (getver) (set master (cat master checkfile " - " verrev "\n"))
(set checkfile "libs:cgxvideo.library") (getver) (set master (cat master checkfile " - " verrev "\n"))

(if (exists "devs:monitors/CVision3D")   ( (set checkfile "devs:monitors/CVision3D") (getver) (set master (cat master checkfile " - " verrev "\n")) )     )

(set master (cat master "\nOther Libaries\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"))

(set checkfile "libs:vilintuisup.library") (getver) (set master (cat master checkfile " - " verrev "\n"))
(set checkfile "libs:gtlayout.library") (getver) (set master (cat master checkfile " - " verrev "\n\n"))


(message master)



(set master1 "V43 24Bit Datatypes:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n")
(if (exists "sys:classes/codec.class")
  ( (set checkfile "sys:classes/codec.class") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
  ( (set checkfile "libs:codec.class") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
)
(if (exists "sys:classes/codecs/picture.codec")
  ( (set checkfile "sys:classes/codecs/picture.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
  ( (set checkfile "libs:codecs/picture.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
)
(if (exists "sys:classes/codecs/jpeg.codec")
  ( (set checkfile "sys:classes/codecs/jpeg.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n\n"))  )
  ( (set checkfile "libs:codecs/jpeg.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n\n"))  )
)
(set checkfile "sys:classes/datatypes/picture.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
(set checkfile "sys:classes/datatypes/pcx.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
(set checkfile "sys:classes/datatypes/pbm.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
(set checkfile "sys:classes/datatypes/jfif.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
(set checkfile "sys:classes/datatypes/ilbm.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
(set checkfile "sys:classes/datatypes/gif.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n\n"))

(message master1)

(run "date > env:CyberVer.TEMP") 
(set date (getenv "CyberVer.TEMP"))

(set date2 (substr date (- (strlen date) 19) ) ) 
(set date3 (substr date2 0 9) ) 

(set whodate (cat username "@" hostname "\n\n"))
(set filename (cat "CyberVer" date3 ".txt"))

(set #wherefile (cat "Where do you wish to write the CyberVer report? (" filename ")"))

(set wheredir  (askdir (prompt #wherefile)
		       (help   #wherefile)
     		       (default "ram:")
               )  
)

(textfile (dest (tackon wheredir filename)) (include "env:CyberVer.TEMP") (append  (cat whodate master "\n\n" master1)) )
(delete "env:CyberVer.TEMP")

;********************************************************************************
; END  
;********************************************************************************
(exit (cat #exitmessage1 (tackon wheredir filename) #exitmessage2) (quiet))