# -*- tcl -*-
::xowf::Package initialize -ad_doc {

  This is the default resolver for the xowf package. In essence, it
  determines from the provided method "m" a web-callable method via
  the package specific "invoke" method, executes it and returns the
  result to the requester.

  @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at)
  @creation-date July, 2006
  @cvs-id $Id: index.vuh,v 1.6.2.6 2024/04/05 08:53:16 gustafn Exp $

} -parameter {
  {-m:token view}
}

#set form_vars [expr {[ns_getform] ne "" ? [ns_set keys [ns_getform] *_.*] : ""}]
set form_vars [expr {[ns_getform] ne "" ? [ns_set array [ns_getform]] : ""}]

::$package_id log "--starting... [ns_conn url] [ns_conn query]" \
    "(user_id [xo::cc user_id])" \
    "form vars = $form_vars"
::$package_id reply_to_user [::$package_id invoke -method $m]
::$package_id log "--done... [ns_conn url]"

ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: