Add flag for the default GPG key
This commit is contained in:
parent
54ad4f7f74
commit
59cef9a04f
@ -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])
|
||||||
|
Loading…
x
Reference in New Issue
Block a user