X-Git-Url: https://git.sthu.org/?a=blobdiff_plain;f=gpg-key2ps%2Fgpg-key2ps;h=302381b73e6b758ae2a06a517e43c9ac78147215;hb=135487f47117bae469f6088c0ceb75db951f402e;hp=05c2bf5d0b660c014c4e1cd2f603e17ea2571c08;hpb=3763137f68d29429c1101ff500748c80988277a1;p=pgp-tools.git diff --git a/gpg-key2ps/gpg-key2ps b/gpg-key2ps/gpg-key2ps index 05c2bf5..302381b 100755 --- a/gpg-key2ps/gpg-key2ps +++ b/gpg-key2ps/gpg-key2ps @@ -3,7 +3,7 @@ # gpg-key2ps: convert a PGP/GnuPG key into paper slips. # Copyright (C) 2001-2005 Simon Richter # Copyright (C) 2005-2006 Thijs Kinkhorst -# Copyright (C) 2005 Christoph Berg +# Copyright (C) 2005-2006 Christoph Berg # Licenced under the GNU General Public License, # version 2 or later. # @@ -19,7 +19,7 @@ my $creationdate = scalar(localtime); sub version($) { my $fd = shift; - print $fd "gpg-key2ps $version - (c) 2001-2005 Simon Richter, Thijs Kinkhorst, Christoph Berg\n"; + print $fd "gpg-key2ps $version - (c) 2001-2006 Simon Richter, Thijs Kinkhorst, Christoph Berg\n"; } sub usage($$) { @@ -92,7 +92,8 @@ if ( `which paperconf` && $? == 0 ) { # open a gpg process we'll be reading from below map { s/'/'\\''/g; } @ARGV; # quote single quotes -open(GPG, "gpg --fingerprint --with-colons '". (join "' '", @ARGV) ."' |"); +# --list-key due to #382794 +open(GPG, "gpg --list-key --with-fingerprint --with-colons '". (join "' '", @ARGV) ."' |"); sub start_postscript { # start the PostScript output