From c6a4aaa6128d55ba5f7f3cd2bd75f789f69ae407 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Wed, 24 Feb 2021 21:24:13 +0100
Subject: lacme: Add 'owner' resp. 'mode' as (prefered) alias for 'chown' resp.
 'chmod'.

---
 lacme | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'lacme')

diff --git a/lacme b/lacme
index 9012890..2d9202d 100755
--- a/lacme
+++ b/lacme
@@ -761,7 +761,8 @@ elsif ($COMMAND eq 'newOrder' or $COMMAND eq 'new-cert') {
             my $def = delete $h->{_} // {};
             $defaults{$_} = $def->{$_} foreach keys %$def;
             my @valid = qw/certificate certificate-chain certificate-key min-days CAfile
-                           hash keyUsage subject subjectAltName tlsfeature chown chmod notify/;
+                           hash keyUsage subject subjectAltName tlsfeature
+                           owner chown mode chmod notify/;
             foreach my $s (keys %$h) {
                 $conf->{$s} = { map { $_ => delete $h->{$s}->{$_} } @valid };
                 die "Unknown option(s) in [$s]: ".join(', ', keys %{$h->{$s}})."\n" if %{$h->{$s}};
@@ -855,7 +856,10 @@ elsif ($COMMAND eq 'newOrder' or $COMMAND eq 'new-cert') {
             }
         }
 
-        my %install = ( content => $x509, mode => $conf->{chmod} // "", owner => $conf->{chown} // "" );
+        my %install = ( content => $x509,
+            mode  => $conf->{mode}  // $conf->{chmod} // "",
+            owner => $conf->{owner} // $conf->{chown} // ""
+        );
 
         # install certificate
         if ((my $path = $conf->{'certificate'} // "") ne "") {
-- 
cgit v1.2.3