Add flag for the default GPG key

This commit is contained in:
Jamie Cameron 2023-08-30 20:10:01 -07:00
parent 54ad4f7f74
commit 59cef9a04f

View File

@ -19,6 +19,10 @@ while(@ARGV) {
shift(@ARGV); shift(@ARGV);
$createsig = 1; $createsig = 1;
} }
elsif ($ARGV[0] eq "--key") {
shift(@ARGV);
$keyname = shift(@ARGV);
}
elsif ($ARGV[0] eq "--exclude") { elsif ($ARGV[0] eq "--exclude") {
shift(@ARGV); shift(@ARGV);
push(@exclude, shift(@ARGV)); push(@exclude, shift(@ARGV));
@ -98,7 +102,8 @@ if ($file =~ /^(.*)\.gz$/i) {
} }
if ($createsig) { if ($createsig) {
system("rm -f $file-sig.asc"); system("rm -f $file-sig.asc");
system("gpg --armor --output $file-sig.asc --detach-sig $file"); system("gpg ".($keyname ? " --default-key $keyname" : "").
" --armor --output $file-sig.asc --detach-sig $file");
} }
# read_file(file, &assoc, [&order], [lowercase]) # read_file(file, &assoc, [&order], [lowercase])