From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 12 Jul 2005 19:12:37 +0000 (+0000)
Subject: adding filtering and sorting to the introspection stubber
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a8d6d8e7b0f6a4bc1550c09337016e290617a87d;p=Evergreen.git

adding filtering and sorting to the introspection stubber


git-svn-id: svn://svn.open-ils.org/ILS/trunk@1150 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/OpenSRF/doc/dokuwiki-doc-stubber.pl b/OpenSRF/doc/dokuwiki-doc-stubber.pl
index 19ac244121..81c9d0b8bf 100755
--- a/OpenSRF/doc/dokuwiki-doc-stubber.pl
+++ b/OpenSRF/doc/dokuwiki-doc-stubber.pl
@@ -4,16 +4,17 @@ use Getopt::Long
 
 $| = 1;
 
-my $count = $ARGV[0];
 my $cvs_base = 'http://open-ils.org/cgi-bin/viewcvs.cgi/ILS/Open-ILS/src/perlmods/';
 my $nest = 0;
 my $service;
+my $filter;
 my $sort_ignore;
 
 GetOptions(	'cvs_base=s'	=> \$cvs_base,
 		'nest'		=> \$nest,
 		'service=s'	=> \$service,
 		'ignore=s'	=> \$sort_ignore,
+		'filter=s'	=> \$filter,
 );
 
 unless( $service ) {
@@ -24,7 +25,12 @@ unless( $service ) {
 OpenSRF::System->bootstrap_client();
 my $session = OpenSRF::AppSession->create( $service );
 
-my $req = $session->request('opensrf.system.method.all');
+my $req; 
+if ($filter) {
+	$req = $session->request('opensrf.system.method', $filter);
+} else {
+	$req = $session->request('opensrf.system.method.all');
+}
 
 my $count = 1;
 my %m;