---

Class ::xowf::dav

::xowf::dav create ...

Class Relations

• class: ::xotcl::Class
• superclass: ::xo::dav

::xotcl::Class create ::xowf::dav \
     -superclass ::xo::dav

Methods (to be applied on instances)

• call_action (scripted)

  ${:package} initialize -url $uri
  set object_name [::$package_id set object]
  set page [::$package_id resolve_request -path $object_name method]
  if {$page eq ""} {
    set errorMsg cannot resolve '$object_name' in package [::$package_id package_url]
    ad_log error $errorMsg
    ns_return 406 text/plain "Error: $errorMsg"
  } elseif {[catch {set msg [$page call_action  -action $action  -attributes $attributes]} errorMsg]} {
    ad_log error "$uri $action $attributes resulted in $errorMsg"
    ns_return 406 text/plain "Error: $errorMsg\n"
  } else {
    ns_return 200 text/plain "Success: $msg\n"
  }

• get_package_id (scripted)

  if {${:uri} eq "/"} {
    set :wf ""
    #
    # Take the first package instance
    #
    set {:package_id} [lindex [$package instances] 0]
    ${:package} initialize -package_id ${:package_id}
  } else {
    set :wf /${:uri}
    ${:package} initialize -url ${:uri}
  }
  # :log package_id=${:package_id}
  return ${:package_id}

---