- added select files - more or less working

www/select-test-2.adp

+<master>
+<property name="title">@page_title@</property>
+<property name="main_navbar_label">admin</property>
+
+<h1>@page_title@</h1>
+
+
+<table cellpadding=1 cellspacing=0 border=0>
+<tr>
+  <td>Status:</td>
+  <td>@status@</td>
+</tr>
+<if "" ne @error@>
+	<tr>
+	  <td>Error:</td>
+	  <td>@error@</td>
+	</tr>
+</if>
+<else>
+	<tr>
+	  <td>Object Info:</td>
+	  <td>@result;noquote@</td>
+	</tr>
+</else>
+</table>
+

www/select-test-2.tcl

+ad_page_contract {
+    Autenticate the user and issue an auth-token
+    that needs to be specified for every xmlrpc-request
+    
+    @author Frank Bergmann (frank.bergmann@project-open.com)
+} {
+    user_id
+    timestamp
+    token
+    object_type
+    object_id
+    {url "/RPC2/" }
+    {method "sqlapi.select"}
+}
+
+
+# ------------------------------------------------------------
+# Security & Defaults
+# ------------------------------------------------------------
+
+set return_url "[ad_conn url]?[ad_conn query]"
+set page_title "Select-Test-2"
+set context_bar [im_context_bar $page_title]
+
+set current_user_id [ad_maybe_redirect_for_registration]
+set user_is_admin_p [im_is_user_site_wide_or_intranet_admin $current_user_id]
+if {!$user_is_admin_p} {
+    ad_return_complaint 1 "<li>[_ intranet-core.lt_You_need_to_be_a_syst]">
+    return
+}
+
+# ------------------------------------------------------------
+# Call the Login XML-RPC procedure
+# ------------------------------------------------------------
+
+set error ""
+set result ""
+set info ""
+
+set method "sqlapi.select"
+set query_results [list]
+
+if {[catch {
+
+    # sqlapi.select(user_id timestamp token object_type object_id)
+    set query_results [xmlrpc::remote_call http://172.26.0.3:30038/RPC2 $method \
+                  -string $user_id \
+                  -string $timestamp \
+                  -string $token \
+                  -string im_project \
+                  -int 9718 \
+    ]
+
+} err_msg]} {
+    append error $err_msg
+}
+
+set status [lindex $query_results 0]
+if {"ok" != $status} {
+
+    set error "$status "
+    append error [lindex $query_results 1]
+
+} else {
+
+    set object_fields [lindex $query_results 1]
+    array set ovars $object_fields
+    set keys [array names ovars]
+
+    set result "<table>\n"
+    foreach key $keys {
+	append result "<tr><td>$key</td><td>$ovars($key)</td></tr>\n"
+    }
+    append result "</table>\n"
+}
+
+

www/select-test.adp

+<master>
+<property name="title">@page_title@</property>
+<property name="main_navbar_label">admin</property>
+
+<h1>@page_title@</h1>
+
+<form action="select-test-2" method=POST>
+<%= [export_form_vars url token timestamp user_id] %>
+<table cellpadding=2 cellspacing=0 border=0>
+<tr class=roweven>
+  <td valign=top>URL:</td>
+  <td>@url@</td>
+</tr>
+<tr class=rowodd>
+  <td valign=top>User ID:</td>
+  <td>@user_id@</td>
+</tr>
+<tr class=roweven>
+  <td valign=top>Timestamp:</td>
+  <td>@timestamp@</td>
+</tr>
+<tr class=rowodd>
+  <td valign=top>Token:</td>
+  <td>@token@</td>
+</tr>
+
+<tr class=roweven>
+  <td valign=top>Object Type:</td>
+  <td><input type=text name=object_type value="im_project" size=20></td>
+</tr>
+<tr class=rowodd>
+  <td valign=top>Object ID:</td>
+  <td><input type=text name=object_id value="9718" size=20></td>
+</tr>
+<tr>
+  <td></td>
+  <td><input type=submit></td>
+</tr>
+</table>
+</form>
+

www/select-test.tcl

+ad_page_contract {
+    Autenticate the user and issue an auth-token
+    that needs to be specified for every xmlrpc-request
+    
+    @author Frank Bergmann (frank.bergmann@project-open.com)
+} {
+    { url ""}
+    { user_id ""}
+    { timestamp ""}
+    { token ""}
+}
+
+
+# ------------------------------------------------------------
+# Security & Defaults
+# ------------------------------------------------------------
+
+set return_url "[ad_conn url]?[ad_conn query]"
+set page_title "Select-Test"
+set context_bar [im_context_bar $page_title]
+
+set current_user_id [ad_maybe_redirect_for_registration]
+set user_is_admin_p [im_is_user_site_wide_or_intranet_admin $current_user_id]
+if {!$user_is_admin_p} {
+    ad_return_complaint 1 "<li>[_ intranet-core.lt_You_need_to_be_a_syst]">
+    return
+}
+
+# ------------------------------------------------------------
+# 
+# ------------------------------------------------------------