adding filter info to the help

[OpenSRF.git] / doc / dokuwiki-doc-stubber.pl

diff --git a/doc/dokuwiki-doc-stubber.pl b/doc/dokuwiki-doc-stubber.pl
index 19ac244..fcdd03d 100755 (executable)
--- a/doc/dokuwiki-doc-stubber.pl
+++ b/doc/dokuwiki-doc-stubber.pl
@@ -4,27 +4,33 @@ use Getopt::Long
 
 $| = 1;
 
 
 $| = 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 $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,
 my $sort_ignore;
 
 GetOptions(    'cvs_base=s'    => \$cvs_base,
                'nest'          => \$nest,
                'service=s'     => \$service,
                'ignore=s'      => \$sort_ignore,

+               'filter=s'      => \$filter,

 );
 
 unless( $service ) {
 );
 
 unless( $service ) {

-       print "usage: $0 -s <service name> [-c <cvs repo base URL> -n]\n";
+       print "usage: $0 -s <service name> [-c <cvs repo base URL> -f <regex filter for method names> -n]\n";

        exit;
 }
 
 OpenSRF::System->bootstrap_client();
 my $session = OpenSRF::AppSession->create( $service );
 
        exit;
 }
 
 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;
 
 my $count = 1;
 my %m;