next if $uidstatus eq "r";
if ($latex and not $photocount) { # call once per key
my ($shortkey) = substr $key, -8;
- system "rm $shortkey.[1-9]*.eps";
+ system "rm -f $shortkey.[1-9]*.eps";
system "gpg --photo-viewer 'gpgsigs-eps-helper $shortkey' --list-options show-photos --list-key $key > /dev/null";
$photocount = 1;
}
$key = undef;
$uid = undef;
my $line = 0;
+my $keys = 0;
print STDERR "Annotating $keytxt, writing into $outfile\n";
open (TXT, $keytxt) or die ("Cannot open $keytxt\n");
open (WRITE, '>'.$outfile) or die ("Cannot open $outfile for writing\n");
\usepackage[margin=2cm]{geometry}
\usepackage{alltt}
\usepackage{graphicx}
+\usepackage{grffile}
\begin{document}
\begin{alltt}
EOF
if (/^RIPEMD160 Checksum:/ && defined $RIPEMD160) {
s/[_[:xdigit:]][_ [:xdigit:]]+_/$RIPEMD160/;
}
+
+ if ( m/^[0-9]+\s+\[ \] Fingerprint OK/ ){
+ if ($latex) {
+ if ($keys > 0) {
+ print WRITE "\\end{samepage}\n";
+ }
+ print WRITE "\\begin{samepage}\n";
+ ++$keys;
+ }
+ print WRITE;
+ next;
+ }
+
if ( m/^pub +(?:\d+)[DR]\/([0-9A-F]{8}) [0-9]{4}-[0-9]{2}-[0-9]{2} *(.*)/ ) {
$key = $1;
$uid = $2;
if ($latex and ($uid =~ /^\[jpeg image/)) {
$photocount++;
print WRITE "\\begin{flushright}\n";
- print WRITE "\\includegraphics[height=3cm]{$key.$photocount.eps}\n";
+ print WRITE "\\includegraphics[height=3cm]{$key.$photocount}\n";
print WRITE "\\end{flushright}\n";
}
}
print WRITE;
}
+if ($latex && ($keys > 0)) {
+ print WRITE "\\end{samepage}\n";
+}
+
print WRITE "Legend:\n";
my $num_myuids = 0;
foreach my $i (0 .. @mykeys - 1) {