Index: openacs-4/packages/xooauth/www/index.vuh =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/www/Attic/index.vuh,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/xooauth/www/index.vuh 7 Nov 2020 17:58:25 -0000 1.1.2.1 @@ -0,0 +1,24 @@ +# -*- Tcl -*- +::xo::oauth::Package initialize -ad_doc { + + This is the resolver for the OAuth package. It turns a request into + an object and executes the object with the computed method + + @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at) + @creation-date July, 2006 + +} + +regexp {[^/]*$} [ad_conn url] m + +if {$m eq ""} { + set m index +} + +::$package_id log "--starting... [ns_conn url] [ns_conn query] \ + form vars = [ns_set array [ns_getform]]" + +::$package_id reply_to_user [::$package_id $m] + +::$package_id log "--i ::$package_id DONE" +ad_script_abort