From 844edd3dd60590bafcaa863eedb6cda94a0e07a3 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Thu, 1 Dec 2016 00:37:52 +0100
Subject: lacme: add an option --quiet to avoid mentioning valid certs.

---
 lacme    | 5 +++--
 lacme.md | 4 ++++
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/lacme b/lacme
index 05b4b18..839d53d 100755
--- a/lacme
+++ b/lacme
@@ -60,7 +60,7 @@ sub usage(;$$) {
     }
     exit $rv;
 }
-usage(1) unless GetOptions(\%OPTS, qw/config=s config-certs=s socket=s agreement-uri=s debug help|h/);
+usage(1) unless GetOptions(\%OPTS, qw/config=s config-certs=s socket=s agreement-uri=s quiet|q debug help|h/);
 usage(0) if $OPTS{help};
 
 $COMMAND = shift(@ARGV) // usage(1, "Missing command");
@@ -120,6 +120,7 @@ do {
     die "Invalid section(s): ".join(', ', keys %$h)."\n" if %$h;
     $CONFIG->{_} = $defaults;
     delete $CONFIG->{accountd} unless $accountd;
+    $OPTS{quiet} = 0 if $OPTS{debug};
 };
 
 # Regular expressions for domain validation
@@ -592,7 +593,7 @@ elsif ($COMMAND eq 'new-cert') {
             my $d = $conf->{'min-days'} // 10;
             if ($d > 0 and $t - time > $d*86400) {
                 my $d = POSIX::strftime('%Y-%m-%d %H:%M:%S UTC', gmtime($t));
-                print STDERR "[$s] Valid until $d, skipping\n";
+                print STDERR "[$s] Valid until $d, skipping\n" unless $OPTS{quiet};
                 next;
             }
         }
diff --git a/lacme.md b/lacme.md
index ea744b0..b086fe7 100644
--- a/lacme.md
+++ b/lacme.md
@@ -123,6 +123,10 @@ Generic options
 
 :   Display a brief help and exit.
 
+`-q`, `--quiet`
+
+:   Be quiet.
+
 `--debug`
 
 :   Turn on debug mode.
-- 
cgit v1.2.3