Index: ns_xmlrpc/validator.tcl
===================================================================
RCS file: /usr/local/cvsroot/ns_xmlrpc/validator.tcl,v
diff -u -r1.1 -r1.2
--- ns_xmlrpc/validator.tcl	11 Jul 2001 15:44:34 -0000	1.1
+++ ns_xmlrpc/validator.tcl	15 Sep 2001 14:38:01 -0000	1.2
@@ -62,6 +62,7 @@
 # Takes an array, each of whose members is a struct.  Return the
 # sum of all the values named curly from each struct.
 
+
 proc validator1.arrayOfStructsTest {params} {
         
     set number 0
@@ -89,6 +90,8 @@
     return [list -int $number]
 }
 
+xmlrpc_register_proc validator1.arrayOfStructsTest
+
 # Takes a string.
 # Return the number of each entity in a struct.
 
@@ -115,6 +118,8 @@
           ctQuotes             [list -int [regsub -all {\"} $string "" string]]]]
 }
 
+xmlrpc_register_proc validator1.countTheEntities
+
 # Takes a struct.
 # Return the sum of the values larry, curly and moe.
 
@@ -128,6 +133,8 @@
             + $bigStruct(larry)]]
 }
 
+xmlrpc_register_proc validator1.easyStructTest
+
 proc validator1.echoStructTest {struct} {
     foreach {name value} $struct {
         if {[llength $value] > 1} {
@@ -144,6 +151,8 @@
     return [list -struct [array get output]]
 }
 
+xmlrpc_register_proc validator1.echoStructTest
+
 proc validator1.manyTypesTest {
     number boolean string double dateTime base64
 } {
@@ -157,6 +166,8 @@
                [list -base64 $base64]]]
 }
 
+xmlrpc_register_proc validator1.manyTypesTest
+
 proc validator1.moderateSizeArrayCheck {array} {
     array set bigArray $array
     set counter 1
@@ -167,6 +178,8 @@
     return "-string [list "$bigArray(1)$bigArray($counter)"]"
 }
 
+xmlrpc_register_proc validator1.moderateSizeArrayCheck
+
 proc validator1.nestedStructTest {struct} {
     array set bigStruct $struct
     array set 2000 $bigStruct(2000)
@@ -176,6 +189,8 @@
             + $first(curly) + $first(moe)]"
 }
 
+xmlrpc_register_proc validator1.nestedStructTest
+
 proc validator1.simpleStructReturnTest {number} {
     set struct(times10) [expr $number * 10]
     set struct(times100) [expr $number * 100]
@@ -184,11 +199,15 @@
     return "-struct [list [array get struct]]"
 }
 
+xmlrpc_register_proc validator1.simpleStructReturnTest
+
 ############################################################
 # XML-RPC Server Validator
+# change URL to the server you are trying to validate! for each of
+# these procs..
 
 proc validate1.arrayOfStructsTest {
-    {url http://www.theashergroup.com/RPC2}
+{url http://www.theashergroup.com/RPC2}
     {array ""}
 } {
     if {[string equal "" $array]} {
@@ -206,16 +225,6 @@
     return [xmlrpc_call $url validator1.arrayOfStructsTest -array $array]
 }
 
-proc validate1.countTheEntities {
-    {url http://www.theashergroup.com/RPC2}
-    {string {<<<>>>}}
-} {
-    set response \
-          [xmlrpc_call \
-            $url validator1.countTheEntities -string $string]
-    return $response
-}
-
 proc validate1.easyStructTest {
     {url "http://www.theashergroup.com/RPC2"}
     {struct ""}
@@ -254,23 +263,6 @@
               -double $double -date $date -base64 $base64]
 }
 
-proc validate1.moderateSizeArrayCheck {
-    {url http://www.theashergroup.com/RPC2}
-    {first "Now is the time for all good men "}
-    {last "to come to the aid of their country"}
-    {fluff_length 20}
-} {
-    set array [list]
-
-    lappend array [list -string $first]
-    for {set i 0} {$i < $fluff_length} {incr i} {
-        lappend array [list -string ebede]
-    }
-    lappend array [list -string $last]
-    
-    return [xmlrpc_call $url validator1.moderateSizeArrayCheck -array $array]
-}
-
 proc validate1.nestedStructTest {
     {url http://www.theashergroup.com/RPC2}
     {moe 1}
@@ -326,9 +318,11 @@
     return [xmlrpc_call $url validator1.nestedStructTest -struct $calendar]
 }
 
+
 proc validate1.simpleStructReturnTest {
     {url http://www.theashergroup.com/RPC2}
     {number 2}
 } {
     return [xmlrpc_call $url validator1.simpleStructReturnTest -int $number]
-}
\ No newline at end of file
+}
+