Artifact 60c3a91191560640e173a24ee77bf14c8f49ebb7:

• File lib/md5hex.tcl — part of check-in [a14ab50c71] at 2004-06-30 12:52:24 on branch trunk — * lib/doc.tcl: fixed sf [977562] Url_AccessInstallPrepend crashes DocDomain with suggested patch. * lib/{doc,subst}.tcl: fixed bugs handling symlinks to directories. * lib/md5hex.tcl: fixed md5 alias argument error. (user: coldstore size: 461)

# This is a shim layer to deal with the inconsistencies
# between md5 1 and md5 2 (grr)

package require md5
package provide httpd::md5hex 1.0

# md5hex always returns a hex version of the md5 hash

if {[package vcompare [package present md5] 2.0] > -1} {
    # we have md5 v2 - it needs to be told to return hex
    interp alias {} md5hex {} ::md5::md5 -hex --
} else {
    # we have md5 v1 - it returns hex anyway
    interp alias {} md5hex {} ::md5::md5
}