[Pgp-tools-commit] r482 - trunk/gpgsigs
Sebastian Harl
tokkee at alioth.debian.org
Fri Aug 19 10:02:52 UTC 2011
Author: tokkee
Date: 2011-08-19 10:02:51 +0000 (Fri, 19 Aug 2011)
New Revision: 482
Modified:
trunk/gpgsigs/gpgsigs
Log:
gpgsigs: In LaTeX mode, use the samepage env to not split entries at pagebreaks.
Modified: trunk/gpgsigs/gpgsigs
===================================================================
--- trunk/gpgsigs/gpgsigs 2010-11-23 20:57:58 UTC (rev 481)
+++ trunk/gpgsigs/gpgsigs 2011-08-19 10:02:51 UTC (rev 482)
@@ -297,6 +297,7 @@
$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");
@@ -328,6 +329,19 @@
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;
@@ -377,6 +391,10 @@
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) {
More information about the Pgp-tools-commit
mailing list