[Pgp-tools-commit] r141 - trunk/gpglist
Peter Palfrader
weasel at costa.debian.org
Mon Jul 25 23:25:33 UTC 2005
Author: weasel
Date: 2005-07-25 23:25:32 +0000 (Mon, 25 Jul 2005)
New Revision: 141
Modified:
trunk/gpglist/gpglist
Log:
Remove trailing whitespace
Modified: trunk/gpglist/gpglist
===================================================================
--- trunk/gpglist/gpglist 2005-07-25 23:24:58 UTC (rev 140)
+++ trunk/gpglist/gpglist 2005-07-25 23:25:32 UTC (rev 141)
@@ -16,7 +16,7 @@
# documentation and/or other materials provided with the distribution.
# 3. The name of the author may not be used to endorse or promote products
# derived from this software without specific prior written permission.
-#
+#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
@@ -35,7 +35,7 @@
if ( $key eq "" ) {
die
}
-
+
open SIGS, "gpg --fixed-list-mode --with-colons --list-sigs $key 2>/dev/null |"
or die "can't get gpg listing";
@@ -61,7 +61,7 @@
$rev{$uid} = "x" if ($longkey eq $1);
$sigs{$1}->{$uid} = "R";
next;
- }
+ }
if ( m/^uat:.:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:(.*):$/ ) {
$uid = "Photo ID";
push @uids, $uid;
@@ -75,7 +75,7 @@
next if ( m/^(tru):/ );
print STDERR "hi, i'm a bug. please report me to my owner";
die "input: $_, key: $key";
-}
+}
close SIGS;
my $n = scalar @uids -1;
@@ -94,7 +94,7 @@
for my $id (sort keys %ids) {
print((defined $sigs{$ids{$id}}->{$_} ? $sigs{$ids{$id}}->{$_} : " ") . " ") for (@uids);
- print $ids{$id}." $id\n";
+ print $ids{$id}." $id\n";
}
for my $id (sort keys %unknownID) {
print((defined $sigs{$id}->{$_} ? $sigs{$id}->{$_} : " ") . " ") for (@uids);
More information about the Pgp-tools-commit
mailing list