Search
j0ke.net Open Build Service
>
Projects
>
stresslinux
>
stresslinux-build-key
> dumpsigs
Sign Up
|
Log In
Username
Password
Cancel
Overview
Repositories
Revisions
Requests
Users
Advanced
Attributes
Meta
File dumpsigs of Package stresslinux-build-key
#!/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"); }
