Megatest

					  tsname
					  (string-translate *toppath* "/" "."))
				    ))))
		(set! *db-cache-path* dbpath)
		dbpath))
	  #f)))

(define (common:get-signature str)
  (message-digest-string (md5-primitive) str))

;;======================================================================
;; TOPPATH/AREA
;;======================================================================

;; deprecate this one
(define (common:get-area-path-signature)
  (message-digest-string (md5-primitive) *toppath*))

(define (common:calc-area-key area-path #!optional (full #f))
  (let* ((top-dir-name (pathname-directory area-path))
	 (area-name    (pathname-strip-directory area-path))
	 (top-dir-key  (common:get-signature top-dir-name))
	 (short-key    (substring top-dir-key 0 6)))
    (conc (if full top-dir-key short-key) "-" area-name)))

(define (common:get-area-key)

  (common:calc-area-key *toppath*))

;;======================================================================
;; E X I T   H A N D L I N G
;;======================================================================

(define (common:human-time)
  (time->string (seconds->local-time (current-seconds)) "%Y-%m-%d %H:%M:%S"))