#!/usr/bin/perl -w
-use OpenSRF::System qw(/pines/conf/bootstrap.conf);
+use OpenSRF::System qw(/openils/conf/opensrf_core.xml);
use Getopt::Long
$| = 1;
);
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;
}