diff options
| -rw-r--r-- | URPM/Signature.pm | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/URPM/Signature.pm b/URPM/Signature.pm new file mode 100644 index 0000000..4e7ef70 --- /dev/null +++ b/URPM/Signature.pm @@ -0,0 +1,77 @@ +package URPM; + +use strict; + +#- parse an armored file and import in keys hash if the key does not already exists. +sub parse_armored_file { + my ($urpm, $file) = @_; + my ($block, @l, $contents); + local (*F, $_); + + #- read armored file. + open F, $file; + while (<F>) { + chomp; + $block ||= /^-----BEGIN PGP PUBLIC KEY BLOCK-----$/; + if ($block) { + my $inside_block = /^$/ ... /^-----END PGP PUBLIC KEY BLOCK-----$/; + if ($inside_block > 1) { + if ($inside_block =~ /E/) { + push @l, $contents; + $block = undef; + $contents = ''; + } else { + $contents .= $_; + } + } + } + } + close F or die "unable to parse armored file $file"; + + #- check only one key has been found. + @l > 1 and die "armored file contains more than one key"; + @l < 1 and die "no key found while parsing armored file"; + + #- check if key has been found, remove from list. + @l = grep { + my $found = 0; + foreach my $k (values %{$urpm->{keys}}) { + $k->{contents} eq $_ and $found = 1, last; + } + !$found; + } @l; + + #- now return something (true) which reflect what should be found in keys. + map { +{ contents => $_ } } @l; +} + +#- pare from rpmdb. +sub parse_rpmdb_pubkeys { + my ($urpm, $db) = @_; + my ($block, @l, $contents); + + $db->traverse_tag('name', [ 'gpg-pubkey' ], sub { + my ($p) = @_; + my $s; + foreach (split "\n", $p->description) { + $block ||= /^-----BEGIN PGP PUBLIC KEY BLOCK-----$/; + if ($block) { + my $inside_block = /^$/ ... /^-----END PGP PUBLIC KEY BLOCK-----$/; + if ($inside_block > 1) { + if ($inside_block =~ /E/) { + $urpm->{keys}{$p->version} = { $p->summary =~ /^gpg\(\)$/ ? (name => $1) : @{[]}, + id => $p->version, + contents => $contents, + }; + $block = undef; + $contents = ''; + } else { + $contents .= $_; + } + } + } + } + }) +} + +1; |