Skip to content

X
xml-rpc
Commit 4fae617d authored by po34devklaus's avatar po34devklaus
Browse files
Options

-- cleaned up - moved gtd stuff to intranet-gtd-dashboard

parent 4928f64a
Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 185 deletions
tcl/xml-rpc-procs.tcl
View file @ 4fae617d
...@@ -21,191 +21,6 @@ ad_library { ...@@ -21,191 +21,6 @@ ad_library {
namespace eval xmlrpc-rest {} namespace eval xmlrpc-rest {}
ad_register_proc GET /intranet-xmlrpc/rest/* xmlrpc-rest::dispatchRest
ad_register_proc POST /intranet-xmlrpc/rest/* xmlrpc-rest::dispatchRest
ad_proc -public xmlrpc-rest::dispatchRest {} {
@return dispatches REST requests
@author Klaus Hofeditz
} {
set user_id [ad_maybe_redirect_for_registration]
set urlpieces [ns_conn urlv]
set path [lrange $urlpieces 2 [llength $urlpieces]]
set url_query [ns_conn query]
set header_vars [ns_conn form]
set var_list [ad_ns_set_keys $header_vars]
switch [lindex $urlpieces 2] {
companies { return [xmlrpc-rest::handle_rest_company [ns_conn method] $path $url_query $user_id ] }
timesheet { doc_return 200 "text/plain" [xmlrpc-rest::handle_rest_timesheet [ns_conn method] $path $url_query $user_id ] }
projects { doc_return 200 "text/plain" [xmlrpc-rest::handle_rest_project [ns_conn method] $path $url_query $user_id] }
action_items { doc_return 200 "text/plain" [xmlrpc-rest::handle_action_items [ns_conn method] $path $url_query $user_id] }
default { ad_return_complaint 1 "ressource not available"}
}
}
ad_proc -public xmlrpc-rest::handle_rest_timesheet {method path url_query user_id} {
handles timesheet actions
} {
# doc_return 200 "text/plain" [lindex $path 1]
# doc_return 200 "text/plain" "$method $path $url_query $param"
set query_list [split $url_query &]
foreach sub_list $query_list {
set query_item [split $sub_list = ]
if {"scope" == [lindex $query_item 0] } {
set scope [lindex $query_item 1]
} elseif { "hours" == [lindex $query_item 0] } {
set hours [lindex $query_item 1]
} elseif { "hours_curr" == [lindex $query_item 0] } {
set hours_curr [lindex $query_item 1]
}
}
set task_id [lindex $path 1]
if { "GET"==$method } {
if { "today"==$scope } {
doc_return 200 "text/plain" [db_string get_view_id "select hours from im_hours where day::date = now()::date and project_id=$task_id" -default 0]
}
} elseif { "POST"==$method } {
if { "0"!=$hours_curr } {
db_dml update "update im_hours set hours = $hours where day::date = now()::date and project_id=$task_id"
} else {
set default_currency [ad_parameter -package_id [im_package_cost_id] "DefaultCurrency" "" "EUR"]
set billing_rate 0
set billing_currency ""
db_0or1row get_billing_rate "
select hourly_cost as billing_rate,
currency as billing_currency
from im_employees
where employee_id = $user_id
"
if {"" == $billing_currency} { set billing_currency $default_currency }
set day_julian [db_string sysdate_as_julian "select to_char(sysdate,'J') from dual"]
db_dml hours_insert "
insert into im_hours (
user_id, project_id,
day, hours,
billing_rate, billing_currency
) values (
$user_id, $task_id,
to_date(:day_julian,'J'), $hours,
:billing_rate, :billing_currency
)"
}
}
}
ad_proc -public xmlrpc-rest::handle_action_items {method path url_query user_id} {
@return project list / task list
} {
set header_vars [ns_conn form]
set var_list [ad_ns_set_keys $header_vars]
ad_ns_set_to_tcl_vars $header_vars
if { "" != $item_list } {
return [gtd-dashboard::write_gtd_list $item_list $user_id]
} else {
return "error: not items found"
}
}
ad_proc -public xmlrpc-rest::render_json { object_list search_string } {
@tkes a list of objects returns them as a json structure
} {
#
set output "\{\"ResultSet\":\n\{\n\"Result\": \[\n"
# set output "\[\n"
foreach sub_list $object_list {
if { [llength $sub_list] } {
if { 0 != [llength [lindex $sub_list 0]] } {
if { "" != $search_string } {
if { [string first [string tolower $search_string] [string tolower [lindex $sub_list 0]]] != -1 } {
append output "\{\"Object\":\""
append output [string map {  ""} [lindex $sub_list 0] ]
append output "\""
append output ",\"ObjectId\":"
append output [string map {  ""} [lindex $sub_list 1] ]
# append output [lindex $sub_list 1]
append output "\},"
}
} else {
append output "\{\"Object\":\""
append output [string map {  ""} [lindex $sub_list 0] ]
append output "\"\},"
}
}
}
}
set output "[string range $output 0 [expr [string length $output]-2]]"
append output "\]\}\n\}"
# append output "\n\]"
}
ad_proc -public xmlrpc-rest::handle_rest_project {method path url_query user_id} {
@return project list / task list
} {
set query_list [split $url_query &]
# find searchstring, object type, project_id
foreach sub_list $query_list {
set query_item [split $sub_list = ]
if {"search_string" == [lindex $query_item 0] } {
set search_string [lindex $query_item 1]
}
# project or task?
if {"object_type" == [lindex $query_item 0] } {
set object_type [lindex $query_item 1]
}
if {"project_id" == [lindex $query_item 0] } {
set project_id [lindex $query_item 1]
}
# last id used in <li> element
if {"last_id" == [lindex $query_item 0] } {
set last_id [lindex $query_item 1]
}
# location
if {"location" == [lindex $query_item 0] } {
set location [lindex $query_item 1]
}
}
# set project_id 27971
# Getting list of objects
switch $object_type {
project {
set object_list [im_project_list -exclude_subprojects_p 0 -exclude_status_id [im_project_status_closed] -project_id 0]
set output [xmlrpc-rest::render_json $object_list $search_string]
}
task {
set output [gtd-dashboard::render_output [im_gtd_task_list -restrict_to_project_id $project_id] task_table $last_id ts $location]
}
default {set output "Object Type not found"}
}
return $output
}
# setup nsv array to hold procs that are registered for xml-rpc access # setup nsv array to hold procs that are registered for xml-rpc access
nsv_array set xmlrpc_procs [list] nsv_array set xmlrpc_procs [list]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment