add -s option

diff --git a/debian/changelog b/debian/changelog
index ea49785695ec763ef5c95c7283efd494b9412c51..c6a9bcc8f64ace48557329483eeb61e149d382a1 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -2,8 +2,9 @@ mr (0.2) UNRELEASED; urgency=low
 
   * Fix line number display for config file parse errors.
   * Fix a bug in inheritance of default settings in chained .mrconfig files.
+  * Add the -s options.
 
- -- Joey Hess <joeyh@debian.org>  Tue, 16 Oct 2007 01:40:32 -0400
+ -- Joey Hess <joeyh@debian.org>  Tue, 16 Oct 2007 02:13:31 -0400
 
 mr (0.1) unstable; urgency=low
 

diff --git a/mr b/mr
index adc05464671b0644be5e04b2b8167c6b89202cb6..4e3d73889b3080816fb9659761cd429f24baf0ce 100755 (executable)
--- a/mr
+++ b/mr
@@ -138,6 +138,11 @@ directory.
 
 Be verbose.
 
+=item -s
+
+Expand the statistics line displayed at the end to include information
+about exactly which repositories failed and were skipped, if any.
+
 =back
 
 =head1 FILES
@@ -245,6 +250,7 @@ use Cwd qw(getcwd abs_path);
 my $directory=getcwd();
 my $config="$ENV{HOME}/.mrconfig";
 my $verbose=0;
+my $stats=0;
 my %config;
 my %knownactions;
 my %alias;
@@ -253,7 +259,8 @@ Getopt::Long::Configure("no_permute");
 my $result=GetOptions(
        "d|directory=s" => sub { $directory=abs_path($_[1]) },
        "c|config=s" => \$config,
-       "verbose" => \$verbose,
+       "v|verbose" => \$verbose,
+       "s|stats" => \$stats,
 );
 if (! $result || @ARGV < 1) {
        die("Usage: mr [-d directory] action [params ...]\n".
@@ -479,6 +486,14 @@ print "mr $action: finished (".join("; ",
        showstat($#failed+1, "failed", "failed"),
        showstat($#skipped+1, "skipped", "skipped"),
 ).")\n";
+if ($stats) {
+       if (@skipped) {
+               print "mr $action: (skipped: ".join(" ", @skipped).")\n";
+       }
+       if (@failed) {
+               print "mr $action: (failed: ".join(" ", @failed).")\n";
+       }
+}
 if (@failed) {
        exit 1;
 }