[Libreoffice-commits] .: Branch 'libreoffice-3-3' - bin/lo-commit-stat

[Petr Mladek]

 bin/lo-commit-stat |   15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

New commits:
commit 8be33965ffafc117bf2964d95504ea0929cb3928
Author: Petr Mladek <pmladek at suse.cz>
Date:   Mon May 30 17:55:09 2011 +0200

    lo-commit-stat: add --log-dir option
    
    allow to generate the log into another directory

diff --git a/bin/lo-commit-stat b/bin/lo-commit-stat
index cc714b9..95a7e6a 100755
--- a/bin/lo-commit-stat
+++ b/bin/lo-commit-stat
@@ -192,12 +192,13 @@ sub get_branch_name($)
     return $branch;
 }
 
-sub open_log_file($$$)
+sub open_log_file($$$$)
 {
-    my ($log_prefix, $log_suffix, $top_dir) = @_;
+    my ($log_dir, $log_prefix, $log_suffix, $top_dir) = @_;
 
     my $branch_name = get_branch_name($top_dir);
     my $logfilename = "$log_prefix-$branch_name-$log_suffix.log";
+    $logfilename = "$log_dir/$logfilename" if (defined $log_dir);
 
     if (-f $logfilename) {
         print "WARNING: The log file already exists: $logfilename\n";
@@ -298,12 +299,13 @@ sub usage()
 {
     print "This script generates LO git commit summary\n\n" .
           
-          "Usage: lo-commit-stat [--help] [--no-pieces] [--piece=<piece>] --log-suffix=<string> topdir [git_log_param...]\n\n" .
+          "Usage: lo-commit-stat [--help] [--no-pieces] [--piece=<piece>]  --log-dir=<dir> --log-suffix=<string> topdir [git_log_param...]\n\n" .
 
           "Options:\n" .
           "     --help          print this help\n" .
           "     --no-pieces     read changes just from the main repository, ignore other cloned repos\n" .
           "     --piece=<piece> summarize just chnages from the given piece\n" .
+          "     --log-dir=<dir> directory where to put the generated log\n" .
           "     --log-suffix=<string> suffix of the log file name; the result will be\n" .
           "                     commit-log-<branch>-<log-name-suffix>.log; the branch name\n" .
           "                     is detected autoamtically\n" .
@@ -326,6 +328,7 @@ sub usage()
 my $piece;
 my $top_dir;
 my $log_prefix = "commit-log";
+my $log_dir;
 my $log_suffix;
 my $log;
 my @git_args;
@@ -342,6 +345,8 @@ foreach my $arg (@ARGV) {
 	$piece = $1;
     } elsif ($arg =~ m/--log-suffix=(.*)/) {
 	$log_suffix = "$1";
+    } elsif ($arg =~ m/--log-dir=(.*)/) {
+	$log_dir = "$1";
     } elsif ($arg eq '--bugs') {
         $print_filters{'bug'} = 1;
         $log_prefix = "bugfixes"
@@ -358,10 +363,12 @@ foreach my $arg (@ARGV) {
 (-d "$top_dir") || die "Error: not a directory: $top_dir\n";
 (-f "$top_dir/.git/config") || die "Error: can't find $top_dir/.git/config\n";
 
+(!defined $log_dir) || (-d $log_dir) || die "Error: directory does no exist: $log_dir\n";
+
 (defined $log_suffix) || die "Error: define log suffix using --log-suffix=<string>\n";
 
 load_data(\%data, $top_dir,$piece, \@git_args);
 
-$log = open_log_file($log_prefix, $log_suffix, $top_dir);
+$log = open_log_file($log_dir, $log_prefix, $log_suffix, $top_dir);
 print_stat(\%data, \%print_filters, $log);
 close $log;