Eskil

            set col1 [string trim [lindex $cols 1]]
            set col2 [string trim [lindex $cols 3]]
            # First column is age, in readable format
            # e.g. "current" "36.4 minutes" "97.0 days" "1.06 years"
            if {$col1 eq ""} continue
            if {$col1 eq "current"} {
                set fTime $commitTime
                set errX 0
            } else {
                set value [lindex $col1 0]
                set unit [lindex $col1 1]
                set errX 0
                switch -glob $unit {
                    second* {
                        set value [expr {int($value)}]
                        set unit second
                        set errX 0
                    }
                    minute* {
                        # In general, try to underestimate the value. The web
                        # page rounds to one decimal.
                        set value [expr {int(($value-0.05)*60)}]
                        set unit second
                        set errX 6
                    }
                    hour* {
                        set value [expr {int(($value-0.05)*60*60)}]
                        set unit second
                        set errX 360
                    }
                    day* {
                        set value [expr {int(($value-0.05)*60*60*24)}]
                        set unit second
                        set errX 8640
                    }
                    year* {
                        # Year has two decimals
                        set value [expr {int(($value-0.005)*60*60*24*365)}]
                        set unit second
                        set errX [expr {6*60*24*365}]
                    }
                    default {
                        puts "Unhandled unit: $unit in '$col1'"
                        set value [expr {int($value)}]
                    }
                }
                set fTime [expr {$commitTime - $value}]

            regsub -all {\n} $col2 "" col2
            regsub -all {<br>} $col2 "\n" col2
            set col2 [string trim $col2]
            foreach fName [split $col2 \n] {
                # Check that it matches something filled in from the artifact
                if {[dict exists $finfo $fName]} {
                    dict set finfo $fName mtime $fTime
                    dict set finfo $fName errX $errX
                }
            }
        }
        # Kill surrounding while loop
        break
    }

    # As another step, get current file stamps from fossil ls.
    # Since ls show current checkout they might not be valid for the rev
    # being looked at. However if they are still present and older than the
    # ones from fileage they are likely correct.
    # Also, fileage and ls uses different criteria for which commit defines
    # the age (across merges), so things basically will be a best effort guess.
    set allfiles [exec fossil ls --age .]
    foreach line [split $allfiles \n] {
        # Expected format in a line:
        # 2012-08-21 20:38:19  tests/rev.test
        regexp {(\S+ \S+)\s+(.+)} $line -> fDate fName
        set mTime [clock scan $fDate -gmt 1]
        if {[dict exists $finfo $fName mtime]} {
            set x [dict get $finfo $fName mtime]
            set e [dict get $finfo $fName errX]
            if {$mTime < $x} {
                dict set finfo $fName mtime $mTime
            } elseif {abs($mTime - $x) < 3600} {
                #puts "$fName   age $x   ls $mTime  diff [expr {$mTime - $x}]  err $e"
            }
        }
    }

    cd $oldpwd

    # Generate a mount point.