#!/tvbin/tivosh
# Written by Andrew Tridgell

source $tcl_library/tv/log.tcl

proc OpenObject {db objspec} {
    if {[string range $objspec 0 0] == "/"} {
       	set obj [db $db open $objspec]
     } elseif { [regexp {([0-9]*)/(.*)} $objspec junk fsid subobjid] } {
	set obj [db $db openidconstruction $fsid $subobjid]
     } else {
	set obj [db $db openid $objspec]
     }
     return $obj
}


set obj [lindex $argv 0]
set attr [lindex $argv 1]
set val [lindex $argv 2]

set db [dbopen]
transaction {
	    set x [OpenObject $db $obj]
	    dbobj $x set $attr $val
}





