rpm/suse-build-key
SHA256
1
0
Fork 0
forked from pool/suse-build-key
Code Pull Requests Activity

OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/suse-build-key?expand=0&rev=11

Browse Source
This commit is contained in:
Adrian Schröter 2008-09-19 07:41:26 +00:00 committed by Git OBS Bridge
parent ec77203902
commit d8b810fb27
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
dumpsigs Normal file
View File

@ -0,0 +1,42 @@
#!/usr/bin/perl
my $keyring='';
$keyring="--no-default-keyring --keyring=$ARGV[0]" if $ARGV[0] ne '';
my @line;
my $ver;
my $rel;
my $name;
open(GPG, "gpg $keyring --no-secmem-warning --list-sigs --list-options show-keyring --fixed-list-mode --with-colons |");
while (<GPG>) {
chomp;
next unless /^pub:/;
@line = split(':', $_);
my $id = $line[4];
$_ = <GPG>;
chomp;
next unless /^uid:/;
@line = split(':', $_);
$name = $line[9];
while (1) {
$_ = <GPG>;
chomp;
die unless /^sig:/;
@line = split(':', $_);
next if $line[4] ne $id;
$ver = lc($id);
$ver =~ s/.*(........)$/$1/;
$rel = sprintf("%08x", $line[5]);
last;
}
$names{"gpg-pubkey-$ver-$rel"} = $id;
}
close GPG;
my $n;
for $n (sort keys %names) {
print "writing $n.asc\n";
system("gpg $keyring --no-secmem-warning --export -a '$names{$n}' >$n.asc");
}