From: myon <myon@b513b33f-fedd-0310-b452-c3deb5f4c849>
Date: Sun, 16 Sep 2007 22:12:15 +0000 (+0000)
Subject:   (Closes: #412433, #430607)
X-Git-Url: https://git.sthu.org/?a=commitdiff_plain;h=f75fbf46942d6c4a00792f5a15fb2ed79023d86a;p=pgp-tools.git

  (Closes: #412433, #430607)

git-svn-id: svn://svn.debian.org/pgp-tools/trunk@351 b513b33f-fedd-0310-b452-c3deb5f4c849
---

diff --git a/debian/changelog b/debian/changelog
index 2fb62d1..4fa9e2a 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -2,11 +2,11 @@ signing-party (0.4.12-2) unreleased; urgency=low
 
   [ Christoph Berg ]
   * gpgsigs: Implement support for latex output and photo ids.
-    (Closes: #430607)
+    (Closes: #412433, #430607)
   * gpg-key2ps: Mention http://www.debian.org/events/materials/business-cards/
     as an alternative. (Closes: #439510)
 
- -- Christoph Berg <myon@debian.org>  Sun, 16 Sep 2007 23:30:21 +0200
+ -- Christoph Berg <myon@debian.org>  Mon, 17 Sep 2007 00:10:45 +0200
 
 signing-party (0.4.12-1) unstable; urgency=low
 
diff --git a/gpgsigs/gpgsigs b/gpgsigs/gpgsigs
index af1a379..49c6e3a 100755
--- a/gpgsigs/gpgsigs
+++ b/gpgsigs/gpgsigs
@@ -150,7 +150,7 @@ print STDERR "Running --list-sigs, this will take a while ";
 open SIGS, "gpg --fixed-list-mode --with-colons --list-sigs @mykeys @keys 2>/dev/null |"
 	or die "can't get gpg listing";
 
-my ($key, $uid, $sigs, $uidstatus);
+my ($key, $uid, $sigs);
 while (<SIGS>) {
 	if ( m/^pub:(?:.*?:){3,3}([0-9A-F]{16,16}):/ ) {
 		$key = $1;
@@ -158,24 +158,26 @@ while (<SIGS>) {
 		next;
 	}
 	if ( m/^uid:(.):(?:.*?:){7,7}(.*):/s ) {
-		$uidstatus = $1;
+		my $uidstatus = $1;
 		$uid = $2;
 		$uid =~ s/\\x([0-9a-f][0-9a-f])/ chr(hex($1)) /gie;
 		$uid = myrecode($uid, "UTF-8", $charset);
 
 		my ($shortkey) = substr $key, -8;
 		# Remember non-revoked uids
-		if ($uidstatus ne "r") {
-			push @{$uids{$shortkey}}, $uid;
-		}
-
+		next if $uidstatus eq "r";
+		push @{$uids{$shortkey}}, $uid;
 		next;
 	}
-	if ( m/^uat:(.):/ ) { # uat:-::::2006-08-03::27BAEAF742BD253C2F3F03B043DC1536880193C4::1 7993:
-		$uidstatus = $1;
-		next if $uidstatus ne "-";
-		system "gpg --photo-viewer 'convert - %k.eps' --list-options show-photos --list-key $key";
-		$uid = "Photo ID";
+	if ( m/^uat:(.)::::[^:]+::([0-9A-F]+)::\d+ (\d+)/ ) { # uat:-::::2006-08-03::27BAEAF742BD253C2F3F03B043DC1536880193C4::1 7993:
+		my $uidstatus = $1;
+		# $2 is hash of attribute data
+		my $size = $3 - 19; # FIXME: find a nicer way to find out picture size
+		$uid = "[jpeg image of size $size]";
+		next if $uidstatus eq "r";
+		if ($latex) {
+			system "gpg --photo-viewer 'convert - %k.eps' --list-options show-photos --list-key $key > /dev/null";
+		}
 		my ($shortkey) = substr $key, -8;
 		push @{$uids{$shortkey}}, $uid;
 		next;
@@ -329,7 +331,7 @@ while (<TXT>) {
 		if ($refresh or $latex) {
 			foreach $uid (@{$uids{$key}}) {
 				print WRITE print_tag($key, $uid) . " $uid\n";
-				if ($latex and ($uid eq "Photo ID")) {
+				if ($latex and ($uid =~ /^\[jpeg image/)) {
 					print WRITE "\\begin{flushright}\n";
 					print WRITE "\\includegraphics[height=3cm]{$key.eps}\n";
 					print WRITE "\\end{flushright}\n";