proc DumpObject_html {db obj} {
  # Show type and open bracket
  append ret [dbobj $obj type] " " [dbobj $obj fsid] "/" [dbobj $obj subobjid] " {\n"

  # Show the construction status
  if { [dbobj $obj construction] } {
    append ret "  UNDER CONSTRUCTION\n"
  }

  # dump the body of the object        
  foreach attr [dbobj $obj attrs] {
    if { [string match "0x*" $attr] } {
      append ret " (attribute $attr not in schema)\n"
      continue
    }
    append ret [format {  %-14s =} $attr]
    set val [dbobj $obj get $attr]
    if { [dbobj $obj attrtype $attr] == "object" } {
      foreach subObj [dbobj $obj gettarget $attr] {
        append ret " " [html_link "/object/$subObj" $subObj]
      }
    } elseif { [dbobj $obj attrtype $attr] == "file" && [catch {mfs streamsize $val}] } {
      if {[catch {mfs size $val}] == 0} {
        append ret " " [html_link "/object/$val" $val]
      } else {
        append ret " " $val
      }
    } else {
      append ret " " $val
    }
    append ret "\n"
  }

  # close bracket
  append ret "}"
}

proc do_dir {chan path} {
  puts $chan [html_start "Directory listing of $path"]
  puts $chan [html_table_start "" "Directory listing of $path" "colspan=5"]
  puts $chan [tr "ALIGN=LEFT" [th "Name"] [th "Type"] [th "Id"] [th "Date Time"] [th "Size"]]
  ForeachMfsFile fsid name type $path "" {
    RetryTransaction {
      if {[catch {set size [FileSize $type $fsid]}] != 0} {
        set size "N/A"
      }
      if {[catch {set seconds [expr [mfs moddate $fsid]]}] != 0} {
        set date "N/A"
      } else {
        if {$::lang == "en"} {
          set date [ftime $seconds "%d/%m/%y %R"]
        } else {
          set date [ftime $seconds "%D %R"]
        }
      }
    }
    if {[string range $path end end] != "/"} {
      append path "/"
    }
    puts -nonewline $chan "<TR><TD>"
    if { $path == "/Resource/Image/" } {
      puts -nonewline $chan [html_link "/img/$name.png" $name]
    } else {
      regsub -all {\.} $name {\\.} tname 
      puts -nonewline $chan [html_link "/mfs$path[httpMapReply $tname]" $name]
    }
    puts -nonewline $chan "</TD><TD>$type</TD><TD>"
    if { $type == "tyDb" || $type == "tyFile" } {
      puts -nonewline $chan [html_link "/object/$fsid" $fsid]
    } else {
      puts -nonewline $chan $fsid
    }
    puts $chan "</TD><TD>$date</TD><TD>$size</TD></TR>"
  }
  puts -nonewline $chan [html_table_end]
  puts $chan [html_end]
}

proc do_object {chan path objectid} {
  global db
  puts $chan [html_start $path]
  puts $chan "<table><tr><td><PRE>"

  RetryTransaction {
    if { [regexp {([0-9]*)/(.*)} $objectid junk fsid subobjid] } {
      set obj [db $db openidconstruction $fsid $subobjid]
    } else {
      set obj [db $db openid $objectid]
    }
    puts $chan [DumpObject_html $db $obj]
  }
  puts $chan "</PRE></td></tr></table>"
  puts $chan [html_end]
}

proc do_file {chan objectid} {
  RetryTransaction {
    set size [mfs size $objectid]
    set chunksize 4096
    fconfigure $chan -translation binary
    for {set i 0} {$i < $size} {incr i $chunksize} {
      set s [min $chunksize [expr $size - $i]]
      set chunk [mfs getpart $objectid $i $s]
      puts -nonewline $chan $chunk
    }
  }
}

proc action_object {chan objectid env} {
  global db
  if {[string index $objectid 0] == "/"} {
    set objectid [string range $objectid 1 end]
  }
  regsub {/.*} $objectid {} fsid
  RetryTransaction {
    set object [db $db canopenidconstruction $fsid]
  }
  if {$object} {
    do_object $chan "" $objectid
  } elseif {[catch {mfs streamsize $val}]} {
    do_file $chan $objectid
  }
}

proc action_mfs {chan path env} {
  if {$path == "" } {
    set path "/"
  }
  if {[catch {RetryTransaction {mfs find "$path"}} l] != 0} {
    puts $chan [html_start ""]
    puts $chan "PATH: $path<BR>"
    puts $chan $l
    puts $chan [html_end]
  } else {
    set type [lindex $l 1]
    if {$type == "tyDir"} {
      do_dir $chan $path
    } elseif {$type == "tyDb"} {
      do_object $chan $path [lindex $l 0]
    } elseif {$type == "tyFile"} {
      do_file $chan [lindex $l 0]
    }
  }
}

register_module "mfs" "MFS" "Browse through the MFS FileSystem"