[Pgp-tools-commit] r174 - trunk/gpg-key2ps
Thijs Kinkhorst
kink-guest at costa.debian.org
Sat Aug 13 17:57:41 UTC 2005
Author: kink-guest
Date: 2005-08-13 17:57:41 +0000 (Sat, 13 Aug 2005)
New Revision: 174
Added:
trunk/gpg-key2ps/Makefile
Removed:
trunk/gpg-key2ps/gpg-key2ps.1
Modified:
trunk/gpg-key2ps/README
trunk/gpg-key2ps/gpg-key2ps
Log:
* Add comments and licence info to gpg-key2ps
* Integrate man page as pod documentation
* Update FSF address.
Added: trunk/gpg-key2ps/Makefile
===================================================================
--- trunk/gpg-key2ps/Makefile 2005-08-13 17:29:35 UTC (rev 173)
+++ trunk/gpg-key2ps/Makefile 2005-08-13 17:57:41 UTC (rev 174)
@@ -0,0 +1,7 @@
+all: gpg-key2ps.1
+
+gpg-key2ps.1: gpg-key2ps
+ pod2man $< > $@
+
+clean:
+ rm -f gpg-key2ps.1
Modified: trunk/gpg-key2ps/README
===================================================================
--- trunk/gpg-key2ps/README 2005-08-13 17:29:35 UTC (rev 173)
+++ trunk/gpg-key2ps/README 2005-08-13 17:57:41 UTC (rev 174)
@@ -38,7 +38,7 @@
You should have received a copy of the GNU General Public License with
the Debian GNU/Linux distribution in file /usr/share/common-licenses/GPL;
- if not, write to the Free Software Foundation, Inc., 59 Temple Place,
- Suite 330, Boston, MA 02111-1307 USA
+ if not, write to the Free Software Foundation, Inc., 51 Franklin St,
+ Fifth Floor, Boston, MA 02110-1301, USA
Modified: trunk/gpg-key2ps/gpg-key2ps
===================================================================
--- trunk/gpg-key2ps/gpg-key2ps 2005-08-13 17:29:35 UTC (rev 173)
+++ trunk/gpg-key2ps/gpg-key2ps 2005-08-13 17:57:41 UTC (rev 174)
@@ -1,6 +1,9 @@
#!/usr/bin/perl -w
#
# gpg-key2ps: convert a PGP/GnuPG key into paper slips.
+# Copyright (C) 2001-2005 Simon Richter and Thijs Kinkhorst
+# Licenced under the GNU General Public License,
+# version 2 or later.
#
# $Id$
@@ -18,6 +21,7 @@
exit 1;
}
+# fetch command line parameters
my %opts;
getopt('pr', \%opts);
if ( $opts{r} ) { $revokestyle = $opts{'r'}; }
@@ -34,6 +38,7 @@
exit 1;
}
+# determine default papersize through the paperconf tool
my $w; my $h;
if ( -x "/usr/bin/paperconf" ) {
$w=`paperconf -w`;
@@ -46,13 +51,18 @@
$h=842;
}
+# check if key exists
+# can't check that accurately through the 'open' call below
+# so have to run gpg twice). Please supply a better way.
if ( system( "gpg --fingerprint $keyids >/dev/null" ) != 0 ) {
print STDERR "Key not found. Try 'gpg --list-keys'\n";
exit 1;
}
+# open a gpg process we'll be reading from below
open(GPG, "gpg --fingerprint --with-colons $keyids |");
+# start the PostScript output
print <<EOF;
%!PS-Adobe-3.0
%%BoundingBox: 0 0 $w $h
@@ -117,6 +127,7 @@
EOF
+# output the desired display for revoked uids
if ( $revokestyle eq "grey" ) {
print "/revuid {\n";
print " .5 setgray\n";
@@ -153,11 +164,17 @@
noneedhline
EOF
+# walk the output of gpg line by line
+# $numlines has the total number of lines so we'll know how many to put on page
my $numlines = 0;
while(<GPG>) {
+ # we don't use these
if ( /^(tru|uat):/ ) { next; }
+ # every primary uid causes an extra line because of the separator
if ( /^pub:/ ) { $numlines++; }
+ # primary uid
s/^pub:[^:]*:([^:]*):([0-9]*):.{8,8}(.{8,8}):([^:]*):[^:]*:[^:]*:[^:]*:([^:]*):[^:]*:[^:]*:.*/ ($5) ($4) ($3) $2 ($1) pub/;
+ # fingerprint, format it nicely with spaces
if ( /^fpr:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:([^:]*):.*/ ) {
my $fpr = $1;
# v4 key
@@ -166,15 +183,20 @@
$fpr =~ s/(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})(\w{2})/$1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16/g;
$_ = " ($fpr) fpr\n";
}
+ # user id's
s/^uid:[^:r]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:([^:]*):.*/ ($1) uid/;
s/^uid:[^:r]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:([^:]*):.*/ ($1) uid/;
+ # revoked user id
s/^uid:r[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:([^:]*):.*/ ($1) revuid/;
+ # subkey
s/^sub:[^:]*:([^:]*):([0-9]*):.{8,8}(.{8,8}):([^:]*):[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:.*/ ($4) ($3) $2 ($1) sbk/;
$numlines++;
+ # print this line
print;
}
close(GPG);
+# output the remaining postscript
print <<EOF;
} def
@@ -209,5 +231,62 @@
%%EOF
EOF
+# done!
exit 0;
+
+__END__
+
+=head1 NAME
+
+B<gpg-key2ps> - generates a PS file from a GnuPG keyring
+
+=head1 SYNOPSIS
+
+B<gpg-key2ps> [-r I<revoked-style>] [-p I<papersize>] I<keyid>I<[> I<keyidI<[> I<...>I<]>>I<]>
+
+=head1 DESCRIPTION
+
+gpg-key2ps generates a PostScript file with your OpenPGP key fingerprint (repeated
+as often as it fits) useful for keysigning parties. The only argument is the same
+as you would pass to GPG's list-keys command, either a key-id or a (partial) name.
+The PS data is written to stdout.
+
+=head1 OPTIONS
+
+=over
+
+=item -p I<paper-size>
+
+Select the output paper size. Default is to look into /etc/papersize or A4 if
+libpaper isn't installed.
+
+=item -r I<revoked-style>
+
+Select how to mark revoked UIDs. Five styles are available:
+B<hide> (don't show at all),
+B<show> (show normally),
+B<grey> (display in 50% grey),
+B<note> (add a note), and
+B<strike> (strike through).
+
+=item I<keyid>
+
+Keyid's to print. Multiple can be separated by spaces.
+
+
+=back
+
+
+=head1 SEE ALSO
+
+gpg(1)
+
+http://pgp-tools.alioth.debian.org/
+
+=head1 AUTHORS AND COPYRIGHT
+
+(c) 2001 - 2005 Simon Richter <sjr at debian.org>
+
+(c) 2005 Thijs Kinkhorst <thijs at kinkhorst.com>
+
Deleted: trunk/gpg-key2ps/gpg-key2ps.1
===================================================================
--- trunk/gpg-key2ps/gpg-key2ps.1 2005-08-13 17:29:35 UTC (rev 173)
+++ trunk/gpg-key2ps/gpg-key2ps.1 2005-08-13 17:57:41 UTC (rev 174)
@@ -1,40 +0,0 @@
-.TH GPG-KEY2PS 1 "February 11, 2001"
-.SH NAME
-gpg\-key2ps \- generates a PS file from a GnuPG keyring
-.SH SYNOPSIS
-.B gpg-key2ps
-.I [-p paper]
-.I [-r revoked-style]
-.RI id
-.SH DESCRIPTION
-.B gpg-key2ps
-generates a PostScript file with your OpenPGP key fingerprint (repeated as
-often as it fits) useful for keysigning parties. The only argument is the same
-as you would pass to GPG's list-keys command, either a key-id or a (partial)
-name. The PS data is written to stdout.
-.SH OPTIONS
-.TP 13
-.I \-p paper
-Select the output paper size. Default is to look into /etc/papersize or A4 if
-libpaper isn't installed
-.TP
-.I \-r revoked-style
-Select how to mark revoked UIDs. Five styles are available:
-.B hide
-(don't show at all),
-.B show
-(show normally),
-.B grey
-(display in 50% grey),
-.B note
-(add a note),
-.B strike
-(strike through).
-.SH BUGS
-.B gpg-key2ps
-does not check whether it would be better to print just one column, and wastes
-space with "-r hide".
-.SH SEE ALSO
-.BR gpg (1)
-.SH AUTHOR
-This manual page was written by Simon Richter <sjr at debian.org>.
More information about the Pgp-tools-commit
mailing list