my $tmp_result = verify_clearsigned_message
($directive_file_contents, @tmp_keyrings);
- if ($tmp_result->{exitcode} != 0 || defined $tmp_result->{TILT}) {
- guess_uploader_email($directive_file_contents);
- fatal("gpg verify of directive file failed",1,'',2);
+ unless ($tmp_result->{exitcode} != 0 || defined $tmp_result->{TILT}) {
+ if (($tmp_result->{raw_log} =~ /Good signature from .*?<(.*?)>/))
+ { push(@{$info{email}},$1) }
}
-
- push(@{$info{email}},$1)
- if ($tmp_result->{raw_log} =~ /Good signature from .*?<(.*?)>/);
}
my $ops = interpret_directive($directive, $directive_file_contents);
gpgv,directive-verify-failed "incorrect signature rejected"
} email-to {
ftp-upload-script@gnu.org foo@example.org foo@example.net
+ ftp-upload-report@gnu.org
}
}
gpgv,directive-verify-failed "incorrect signature rejected"
} email-to {
ftp-upload-script@gnu.org foo@example.org foo@example.net
+ ftp-upload-report@gnu.org
}
}