# 1 if the key could not be exported.\n
# 2 if the key could not be imported.
#
-sub import_key_from_user_gnupghome() {
+sub import_key_from_user_gnupghome($$) {
my $err;
my ($asciikey, $dst_gpghome) = @_;
# @return 0 if successful\n
# 1 if an error occured.
#
-sub import_key_files() {
+sub import_key_files($$) {
my $err;
my ($keyfile, $dst_gpghome) = @_;
# try to import it into our working gnupghome directory
my $imported_keys = 0;
foreach my $keyid (@KEYIDS) {
- if (!&import_key_from_user_gnupghome($keyid, $GNUPGHOME)) {
+ if (!import_key_from_user_gnupghome($keyid, $GNUPGHOME)) {
info("Key $keyid imported from your normal GnuPGHOME.");
$imported_keys++;
}
# Import user specified key files
foreach my $keyfile (@{$CONFIG{'key-files'}}) {
- &import_key_files($keyfile, $GNUPGHOME);
+ import_key_files($keyfile, $GNUPGHOME);
}
return 0;
#################
for my $keyid (@{$CONFIG{'keyid'}}) {
info("Importing key $keyid from your normal GnuPGHome.");
- if (&import_key_from_user_gnupghome($keyid, $GNUPGHOME)) {
+ if (import_key_from_user_gnupghome($keyid, $GNUPGHOME)) {
mywarn("Key $keyid not found.");
}
}
}
unless ($CONFIG{'no-sign'}) {
- my @local_user = &get_local_user_keys();
+ my @local_user = get_local_user_keys();
info("Sign the following keys according to your policy, then exit gpg with 'save' after signing each key");
for my $keyid (@keyids_ok) {
+ manpage: Refer to all of /usr/share/doc/signing-party/caff/ and not
just to /usr/share/doc/signing-party/caff/caffrc.sample
(closes: #568052).
+ + Fix horrible &function calls used because of broken prototypes.
- -- Peter Palfrader <weasel@debian.org> Sat, 31 Jul 2010 13:11:28 +0200
+ -- Peter Palfrader <weasel@debian.org> Sat, 31 Jul 2010 13:12:41 +0200
signing-party (1.1.3-1) unstable; urgency=low