Hi again,

Here are couple bugfixes in the options parsing. It prevented the
(HEAD|TRUNK) -> "" substitution in --only-tag.

-- 
Sylvain

On Tue, Nov 14, 2006 at 09:05:49AM -0500, Derek R. Price wrote:
> Sylvain Beucler wrote:
> > we now have a web interace to configure log_accum :)
> 
> 
> Cool!  :)
--- upstream/log_accum.pl       2006-08-19 07:43:51.000000000 +0000
+++ log_accum.pl        2006-11-17 18:10:42.000000000 +0000
@@ -199,7 +199,7 @@
 
     # Just set @debug in a global.  It's easier.
     $config->{'debug-log'} = [] unless exists $config->{'debug-log'};
-    push @{$config->{'debug-log'}}, '&STDERR' if $config->{debug};
+    push @{$config->{'debug-log'}}, '&STDERR' if $config->{'debug'};
     foreach (@{$config->{'debug-log'}})
     {
        my $debug;
@@ -236,16 +236,16 @@
     my %config;
 
     # Set up the option processing functions.
-    $config{'only-tags'} =
+    $config{'only-tag'} =
        sub
        {
-           $_[1] = '' if $_[1] eq "HEAD" || $_[1] eq "TRUNK";
+           $_[1] = '' if $_[1] eq 'HEAD' || $_[1] eq 'TRUNK';
            push @{$config{'tag'}}, $_[1];
        };
     $config{'quiet'} =
        sub
        {
-           $config{'verbose'} = !$_[1];
+           $config{'debug'} = !$_[1];
        };
     $config{'file-prefix'} =
        sub
@@ -258,7 +258,7 @@
        sub
        {
            warn "Using deprecated -u option. Use -T instead.";
-           &{$config{'file-text'}} (@_);
+           $config{'user'} = $_[1];
        };
     $config{'suppress-diffs-against-empties'} =
        sub
@@ -274,7 +274,7 @@
 # This is global for convenience.  It is used in parse_config & process_argv.
 my @option_spec = ("config|c=s@",
                   "mail-to|m=s@",
-                  "tag|only-tag|r=s@",
+                  "only-tag|tag|r=s@",
                   "file-prefix|file-text|T=s", "user|u=s",
                   "debug|verbose|v!",
                   "debug-log|debug-file=s@",

Reply via email to