OpenPKG CVS Repository http://cvs.openpkg.org/ ____________________________________________________________________________
Server: cvs.openpkg.org Name: Thomas Lotterer Root: /v/openpkg/cvs Email: [EMAIL PROTECTED] Module: openpkg-registry Date: 07-Aug-2006 17:07:04 Branch: HEAD Handle: 2006080716070300 Modified files: openpkg-registry registry-db.pl Log: change wording to "directive", the word "token" will be used for something else shortly Summary: Revision Changes Path 1.50 +11 -11 openpkg-registry/registry-db.pl ____________________________________________________________________________ patch -p0 <<'@@ .' Index: openpkg-registry/registry-db.pl ============================================================================ $ cvs diff -u -r1.49 -r1.50 registry-db.pl --- openpkg-registry/registry-db.pl 3 Aug 2006 00:14:04 -0000 1.49 +++ openpkg-registry/registry-db.pl 7 Aug 2006 15:07:03 -0000 1.50 @@ -101,8 +101,8 @@ my $txt = qq{ $progname:$level: Usage: $progname [options] command Available options: - -q|query=s query specific configuration token - -l|qlist list available query tokens + -q|query=s query specific configuration directive + -l|qlist list available query directives -p|prefix=s specifiy prefix for data ($opt->{prefix}) -C|config=s specifiy config file ($opt->{config}) -D|debug turn on debugging @@ -183,7 +183,7 @@ &querylist(0, $defcfg); } if ($opt->{query}) { - &querytoken($defcfg, $opt->{query}); + &querydirective($defcfg, $opt->{query}); } if (not $opt->{qlist} and not $opt->{query}) { if ($opt->{debug}) { @@ -199,7 +199,7 @@ &querylist(0, $usecfg); } if ($opt->{query}) { - &querytoken($usecfg, $opt->{query}); + &querydirective($usecfg, $opt->{query}); } if (not $opt->{qlist} and not $opt->{query}) { if ($opt->{debug}) { @@ -215,7 +215,7 @@ &querylist(0, $cfg); } if ($opt->{query}) { - &querytoken($cfg, $opt->{query}); + &querydirective($cfg, $opt->{query}); } if (not $opt->{qlist} and not $opt->{query}) { if ($opt->{debug}) { @@ -250,7 +250,7 @@ } } -sub querytoken ($$) +sub querydirective ($$) { my ($c, $tok) = @_; my $p = join "", map { "->{$_}" if($_) } split "/", $tok; @@ -1042,7 +1042,7 @@ B<registry-db> [options] command Available options: - [I<-q|query=<token>>] + [I<-q|query=<directive>>] [I<-l|qlist>] [I<-p|prefix=<path>>] [I<-C|config=<file>>] @@ -1092,14 +1092,14 @@ Specify path to prefix. Default is <@l_prefix>, overriden by environment variable OPENPKG_PREFIX and finally overridden by this option. -=item B<-q>, B<--query=<token>> +=item B<-q>, B<--query=<directive>> -Query a specific configuration token. +Query a specific configuration directive. Combine with B<defcfg>, B<usecfg> or B<effcfg> commands. =item B<-l>, B<--qlist> -List available query tokens. +List available query directives. Combine with B<defcfg>, B<usecfg> or B<effcfg> commands. =back @@ -1160,7 +1160,7 @@ =item B<effcfg> Without query and qlist options dumps the effective configuration as a list of -tokens with one token per line in "key=value" format where the value is double +directives with one directive per line in "key=value" format where the value is double quoted and has backslashes, dollars, double quotes escaped with backslash and newlines transformed into backslash+"n" thus suitable to be printed with sprintf or alike. When debugging is turned on, the file is printed in @@ . ______________________________________________________________________ The OpenPKG Project www.openpkg.org CVS Repository Commit List openpkg-cvs@openpkg.org