2 use OpenSRF::System qw(/pines/conf/bootstrap.conf);
8 my $cvs_base = 'http://open-ils.org/cgi-bin/viewcvs.cgi/ILS/Open-ILS/src/perlmods/';
13 GetOptions( 'cvs_base=s' => \$cvs_base,
15 'service=s' => \$service,
16 'ignore=s' => \$sort_ignore,
20 print "usage: $0 -s <service name> [-c <cvs repo base URL> -n]\n";
24 OpenSRF::System->bootstrap_client();
25 my $session = OpenSRF::AppSession->create( $service );
27 my $req = $session->request('opensrf.system.method.all');
31 while( my $meth = $req->recv(60) ) {
32 $meth = $meth->content;
34 $api_name = $meth->{api_name};
36 $m{$api_name}{api_name} = $meth->{api_name};
38 $m{$api_name}{package} = $meth->{package};
39 $m{$api_name}{method} = $meth->{method};
41 $m{$api_name}{api_level} = int $meth->{api_level};
42 $m{$api_name}{server_class} = $meth->{server_class} || '**ALL**';
43 $m{$api_name}{stream} = int($meth->{stream} || 0);
44 $m{$api_name}{cachable} = int($meth->{cachable} || 0);
46 $m{$api_name}{note} = $meth->{note} || 'what I do';
47 ($m{$api_name}{cvs} = $m{$api_name}{package}) =~ s/::/\//go;
49 $m{$api_name}{stream} = $m{$api_name}{stream}?'Yes':'No';
50 $m{$api_name}{cachable} = $m{$api_name}{cachable}?'Yes':'No';
52 print STDERR "." unless ($count % 10);
57 warn "\nThere are ".scalar(keys %m)." methods published by $service\n";
61 @m_list = sort keys %m;
68 length($$b[0]) <=> length($$a[0])
72 (my $x = $_) =~ s/^$sort_ignore//go;
78 for my $meth ( @m_list ) {
84 (my $x = $meth) =~ s/\./$pad++;$1/eg;
89 $pad$header $meth $header
93 * [[osrf-devel:terms#opensrf_api-level|API Level]]: $m{$meth}{api_level}
94 * [[osrf-devel:terms#opensrf_server_class|Server Class]]: $m{$meth}{server_class}
95 * Implementation Method: [[$cvs_base/$m{$meth}{cvs}.pm|$m{$meth}{package}\::$m{$meth}{method}]]
96 * Streaming [[osrf-devel:terms#opensrf_method|Method]]: $m{$meth}{stream}
97 * Cachable [[osrf-devel:terms#opensrf_method|Method]]: $m{$meth}{cachable}
100 * //param1//\\\\ what it is...
102 * //Success//\\\\ successful format
103 * //Failure//\\\\ failure format (exception, etc)