cvsuser 04/02/02 13:34:06
Modified: App-Context/lib/App/Conf File.pm
App-Context/lib/App/Context Cmd.pm
Log:
cleaned up debug/conf naming
Revision Changes Path
1.5 +4 -4 p5ee/App-Context/lib/App/Conf/File.pm
Index: File.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Context/lib/App/Conf/File.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- File.pm 3 Dec 2003 16:19:36 -0000 1.4
+++ File.pm 2 Feb 2004 21:34:06 -0000 1.5
@@ -1,10 +1,10 @@
#############################################################################
-## $Id: File.pm,v 1.4 2003/12/03 16:19:36 spadkins Exp $
+## $Id: File.pm,v 1.5 2004/02/02 21:34:06 spadkins Exp $
#############################################################################
package App::Conf::File;
-$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.5 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use App;
use App::Conf;
@@ -89,9 +89,9 @@
my $conf = {};
while ($#conf_file > -1) {
$conf_file = shift(@conf_file);
- print STDERR "Looking for conf_file [$conf_file]\n" if
($options->{debugconf});
+ print STDERR "Looking for conf_file [$conf_file]\n" if
($options->{debug_conf});
if (open(App::FILE, "< $conf_file")) {
- print STDERR "Found conf_file [$conf_file]\n" if
($options->{debugconf});
+ print STDERR "Found conf_file [$conf_file]\n" if
($options->{debug_conf});
@conf_file = (); # don't look any farther
@text = <App::FILE>;
close(App::FILE);
1.5 +4 -4 p5ee/App-Context/lib/App/Context/Cmd.pm
Index: Cmd.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Context/lib/App/Context/Cmd.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- Cmd.pm 3 Dec 2003 16:21:11 -0000 1.4
+++ Cmd.pm 2 Feb 2004 21:34:06 -0000 1.5
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Cmd.pm,v 1.4 2003/12/03 16:21:11 spadkins Exp $
+## $Id: Cmd.pm,v 1.5 2004/02/02 21:34:06 spadkins Exp $
#############################################################################
package App::Context::Cmd;
@@ -170,13 +170,12 @@
print STDERR
"--------------------------------------------------------------------\n";
print STDERR "Usage: $0 [options] [<Service>] <name> [<method> [<args>]]
[:returntype]\n";
print STDERR " --app=<tag> default basename of options file
(when file not specified)\n";
- print STDERR " --config_file=<file> initialization config file
(override any default searching)\n";
print STDERR " --prefix=<dir> base directory of installed
software (i.e. /usr/local)\n";
- print STDERR " --debugconf debug the configuration process\n";
+ print STDERR " --debug_options debug the option parsing
process\n";
print STDERR " --perlinc=<dirlist> directories to add to [EMAIL
PROTECTED] to find perl modules\n";
print STDERR " --import=<filelist> additional config files to read\n";
- print STDERR " --debug=<level> set debug level, default=0\n";
print STDERR " --context_class=<class> class,
default=App::Context::Cmd\n";
+ print STDERR " --debug=<level> set debug level and scope,
default=0\n";
print STDERR " --help or -? print this message\n";
print STDERR
"--App::Context::Cmd-------------------------------------------------\n";
print STDERR " --service=<svc> default curr service
(default=SessionObject)\n";
@@ -188,6 +187,7 @@
print STDERR " --conf_class=<class> default=App::Conf::File\n";
print STDERR " --so_<var>=<value> set SessionObject default value\n";
print STDERR
"--App::Conf::File---------------------------------------------------\n";
+ print STDERR " --debug_conf debug the configuration process\n";
print STDERR " --conf_type=<type> type of data (name of Serializer)
in conf_file\n";
print STDERR " --conf_file=<file> file name for full config file\n";
print STDERR " --conf_serializer_class=<class> class,
default=App::Serializer\n";
