- added dummy files for call-test

www/call-test.adp

+<master>
+<property name="title">@page_title@</property>
+<property name="main_navbar_label">admin</property>
+
+<h1>@page_title@</h1>
+
+<form action="call-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>
+    <select name=object_type>
+    @object_type_options;noquote@
+    </select>
+  </td>
+</tr>
+<tr>
+  <td></td>
+  <td><input type=submit></td>
+</tr>
+</table>
+</form>
+
+
+@error;noquote@
+

www/call-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)
+} {
+    user_id
+    timestamp
+    token
+    {url "/RPC2/" }
+}
+
+
+# ------------------------------------------------------------
+# Security & Defaults
+# ------------------------------------------------------------
+
+set return_url "[ad_conn url]?[ad_conn query]"
+set page_title "Call-Test"
+set context_bar [im_context_bar $page_title]
+set current_user_id [im_xmlrpc_get_user_id]
+
+# ------------------------------------------------------------
+# Get the list of object types from the target system
+# ------------------------------------------------------------
+
+set error ""
+set query_results [list]
+if {[catch {
+
+    set authinfo [list \
+	   [list -string token] \
+	   [list -int $user_id] \
+	   [list -string $timestamp] \
+	   [list -string $token] \
+    ]
+
+    set query_results [xmlrpc::remote_call \
+			   http://172.26.0.3:30038/RPC2 \
+			   sqlapi.object_types \
+			   -array $authinfo
+		      ]
+
+} err_msg]} {
+    append error $err_msg
+}
+
+set object_type_options ""
+set status [lindex $query_results 0]
+set object_types_list [lindex $query_results 1]
+
+if {"ok" != $status} {
+
+    set error "$status "
+    append error [lindex $query_results 1]
+
+} else {
+
+    foreach object_type_record $object_types_list {
+	set object_type [lindex $object_type_record 0]
+	set pretty_name [lindex $object_type_record 1]
+	append object_type_options "<option value=\"$object_type\">$pretty_name</option>\n"
+    }
+}
+

www/index.adp

@@ -52,8 +52,8 @@
   <h1>Available Tests</h1>
 
   <ul>
-  <li><a href="select-test?@vars@">Select</a>
-  <li><a href="call-test?@vars@">Call</a>
+  <li><a href="select-test?@vars@">Select Test Wizard</a>
+  <li><a href="call-test?@vars@">Call Test Wizard</a>
   </ul>
 
 

www/login-test.adp

@@ -4,15 +4,25 @@
 
 <h1>@page_title@</h1>
 
+<p>
+This form has already been set to a testing user.<br>
+You just need to press Submit:
+<ul>
+<li>Email: "ssales@tigerpond.com"</li>
+<li>Passwd: "sally"</li>
+</ul>
+<br>
+</p>
+
 <form action="login-test-2" method=POST>
 <table cellpadding=1 cellspacing=0 border=0>
 <tr>
   <td valign=top>Email:</td>
-  <td><input type=text name=email value="you@yourdomain.com" size=30></td>
+  <td><input type=text name=email value="ssales@tigerpond.com" size=30></td>
 </tr>
 <tr>
   <td valign=top>Password:</td>
-  <td><input type=password name=pass value="" size=30></td>
+  <td><input type=password name=pass value="sally" size=30></td>
 </tr>
 <tr>
   <td></td>