From a10e9df49af49d0e6d12a58f5d3151930a9a6e12 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 27 Jun 2005 21:41:44 +0000
Subject: [PATCH] stubber for dokuwiki -- OpenSRF

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@371 9efc2488-bf62-4759-914b-345cdb29e865
---
 doc/dokuwiki-doc-stubber.pl | 64 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100755 doc/dokuwiki-doc-stubber.pl

diff --git a/doc/dokuwiki-doc-stubber.pl b/doc/dokuwiki-doc-stubber.pl
new file mode 100755
index 0000000..3121f14
--- /dev/null
+++ b/doc/dokuwiki-doc-stubber.pl
@@ -0,0 +1,64 @@
+#!/usr/bin/perl -w
+use OpenSRF::System qw(/pines/conf/bootstrap.conf);
+use Data::Dumper;
+
+$| = 1;
+
+# ----------------------------------------------------------------------------------------
+# This is a quick and dirty script to perform benchmarking against the math server.
+# Note: 1 request performs a batch of 4 queries, one for each supported method: add, sub,
+# mult, div.
+# Usage: $ perl math_bench.pl <num_requests>
+# ----------------------------------------------------------------------------------------
+
+
+my $count = $ARGV[0];
+
+unless( $count ) {
+	print "usage: $0 <service name> [<cvs repo base URL>]\n";
+	exit;
+}
+
+my $cvs_base = $ARGV[1] || 'http://open-ils.org/cgi-bin/viewcvs.cgi/ILS/Open-ILS/src/perlmods/';
+
+OpenSRF::System->bootstrap_client();
+my $session = OpenSRF::AppSession->create( $ARGV[0] );
+
+my $req = $session->request('opensrf.system.method.all');
+
+while( my $meth = $req->recv(60) ) {
+	$meth = $meth->content;
+	my $api_name = $meth->{api_name};
+	my $api_level = int $meth->{api_level};
+	my $server_class = $meth->{server_class} || '**ALL**';
+	my $stream = int($meth->{stream} || 0);
+	my $cachable = int($meth->{cachable} || 0);
+	my $note = $meth->{note} || 'what I do';
+	my $package = $meth->{package};
+	(my $cvs = $package) =~ s/::/\//go;
+	my $method = $meth->{method};
+
+	$stream = $stream?'Yes':'No';
+	$cachable = $cachable?'Yes':'No';
+
+	print <<"	METHOD";
+===== $api_name =====
+
+$note
+
+  * [[osrf-devel:terms#opensrf_api-level|API Level]]: $api_level
+  * [[osrf-devel:terms#opensrf_server_class|Server Class]]: $server_class
+  * Implementation Method: [[$cvs_base/$cvs.pm|$package\::$method]]
+  * Streaming [[osrf-devel:terms#opensrf_method|Method]]: $stream
+  * Cachable [[osrf-devel:terms#opensrf_method|Method]]: $cachable
+
+  * **Parameters:**
+    * //param1//\\\\ what it is...
+  * **Returns:**
+    * //Success//\\\\ successful format
+    * //Failure//\\\\ failure format (exception, etc)
+
+
+	METHOD
+}
+
-- 
2.11.0