From a953a919d808b53101355900dd778153bc0958ae Mon Sep 17 00:00:00 2001
From: legatvs <legatvs.git@gmail.com>
Date: Tue, 30 Nov 2010 13:32:27 +0200
Subject: [PATCH] add --quiet

---
 ChangeLog |  1 +
 bin/gcap  | 23 ++++++++++++++++-------
 2 files changed, 17 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index fbf696e..d324cfc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 
 0.0.5
 Changes:
+        - Add --quiet
         - Add --proxy, --no-proxy
 
 
diff --git a/bin/gcap b/bin/gcap
index 06d2fb6..f447391 100755
--- a/bin/gcap
+++ b/bin/gcap
@@ -42,6 +42,7 @@ sub init {
         'regexp|r=s',
         'proxy=s',
         'no_proxy|no-proxy',
+        'quiet|q',
         'version'   => \&print_version,
         'license'   => \&print_license,
         'help'      => \&print_help,
@@ -95,7 +96,7 @@ sub main {
         $url = "$req_body$url";
     }
 
-    print STDERR "Checking ...";
+    print STDERR "Checking ..."  unless $config{quiet};
 
     require LWP;
 
@@ -120,10 +121,10 @@ sub main {
             selected    => 1
         );
         push @captions, \%tmp;
-        print STDERR ".";
+        print STDERR "."  unless $config{quiet};
     }
 
-    print STDERR "done.\n";
+    print STDERR "done.\n"  unless $config{quiet};
 
     $d->dispose;
 
@@ -160,8 +161,10 @@ sub main {
         open my $fh, ">", $fname or die "$fname: $!\n";
         binmode $fh, ":utf8";
 
-        printf STDERR "(%02d of %02d) ", ++$n, $t if $t > 0;
-        print  STDERR "Saving $fname ...";
+        unless ($config{quiet}) {
+            printf STDERR "(%02d of %02d) ", ++$n, $t if $t > 0;
+            print  STDERR "Saving $fname ...";
+        }
 
         $d = $p->parsefile ($url);
         $r = $d->getDocumentElement;
@@ -209,7 +212,7 @@ sub main {
 
         close $fh;
 
-        print STDERR "done.\n";
+        print STDERR "done.\n"  unless $config{quiet};
     }
 
     return 0;
@@ -276,7 +279,8 @@ sub get_title {
     }
 
     unless ($video_title) {
-        print STDERR "\nwarning: $url: use id instead\n";
+        print STDERR "\nwarning: $url: use id instead\n"
+            unless $config{quiet};
     }
 }
 
@@ -388,6 +392,7 @@ The srt files are saved as "$videoid_$langid.srt" by default.
      --help                       print help and exit
      --version                    print version and exit
      --license                    print license and exit
+ -q, --quiet                      be quiet
  -i, --interactive                run in interactive mode
  -t, --title                      parse video title and use it in filename
  -r, --regexp arg (="/(\w|\s)/g") cleanup title with regexp
@@ -410,6 +415,10 @@ Print version and exit.
 
 Print license and exit.
 
+=item B<-q, --quiet>
+
+Be quiet.
+
 =item B<-i, --interactive>
 
 Enable interactive prompt which can be used to select the downloaded
-- 
2.11.4.GIT