]>
git.sthu.org Git - pgp-tools.git/blob - keyanalyze/scripts/htmlify_report
7 getopts
('k:', \
%options);
8 my $keyring = $options{k
} ?
"--no-default-keyring --keyring=$options{k}" : "";
13 return $UID{$key} if $UID{$key};
14 open G
, "gpg --list-key --fixed-list-mode --with-colon $keyring $key |" or die "gpg: $!";
16 next unless /^uid:[-qmfue]::::\d*::[\dA-F]*::(.+):$/;
20 $name =~ s/\@/@/g;
22 return $UID{$key} = $name;
29 #$key =~ /^([\dA-F]{2})/;
30 #return "<a href=\"../$1/$key.html\">$key</a>";
31 return "<a href=\"$key.html\">$key</a>";
34 for my $file (@ARGV) {
35 #print STDERR "$file...\n";
36 open F
, "$file" or die "$file: $!";
37 open H
, ">$file.html" or die "$file.html: $!";
41 <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
48 next if /^(This individual|report at)/;
49 s/([\dA-F]{8})$/uid_link($1)." ".get_uid($1);/e;
52 print H
"</pre>\n</body></html>\n";