[Pgp-tools-commit] r114 - trunk/gpgsigs
Peter Palfrader
weasel at costa.debian.org
Wed Jul 6 11:37:05 UTC 2005
Author: weasel
Date: 2005-07-06 11:37:05 +0000 (Wed, 06 Jul 2005)
New Revision: 114
Modified:
trunk/gpgsigs/gpgsigs
Log:
Note signature class in output
Modified: trunk/gpgsigs/gpgsigs
===================================================================
--- trunk/gpgsigs/gpgsigs 2005-07-02 21:59:47 UTC (rev 113)
+++ trunk/gpgsigs/gpgsigs 2005-07-06 11:37:05 UTC (rev 114)
@@ -182,9 +182,21 @@
$uid = myrecode($1);
next;
}
- if ( m/^sig:(?:.*?:){3,3}([0-9A-F]{8})([0-9A-F]{8}):(?:.*?:){3,3}(.*):.*?:/ ) {
- $sigs->{$key}->{$uid}->{$1.$2} = $3;
- $sigs->{$key}->{$uid}->{$2} = $3;
+ if ( m/^sig:(?:.*?:){3,3}([0-9A-F]{8})([0-9A-F]{8}):(?:.*?:){5,5}(.*?):/ ) {
+ my $class = $3;
+ if ($class eq '10x') {
+ $class = 'S';
+ } elsif ($class eq '11x') {
+ $class = '1';
+ } elsif ($class eq '12x') {
+ $class = '2';
+ } elsif ($class eq '13x') {
+ $class = '3';
+ } else {
+ $class = 's';
+ };
+ $sigs->{$key}->{$uid}->{$1.$2} = $class;
+ $sigs->{$key}->{$uid}->{$2} = $class;
next;
}
if ( m/^uat:/ ) {
@@ -229,7 +241,7 @@
}
my $r = '(';
foreach my $mykey (@mykeys) {
- $r .= defined $sigs->{$key}->{$uid}->{$mykey} ? "S" : " ";
+ $r .= defined $sigs->{$key}->{$uid}->{$mykey} ? $sigs->{$key}->{$uid}->{$mykey} : ' ';
}
$r .= ')';
return $r;
More information about the Pgp-tools-commit
mailing list