blob: 870e0cc1099418d15ce3b489fbfeb4ae6d238782 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
#!/usr/bin/perl -w
#
# $FreeBSD$
#
use strict;
use Fcntl;
use Getopt::Std;
use vars qw(%KEYS);
sub add_file($);
sub add_dir($);
sub add_dir($) {
my $dn = shift;
local *DIR;
my $ent;
$dn =~ s|/+|/|g;
$dn =~ s|^(.+)/$|$1|;
opendir(DIR, $dn)
or die("$dn: opendir(): $!\n");
while ($ent = readdir(DIR)) {
next if ($ent eq "." || $ent eq "..");
add_file("$dn/$ent");
}
closedir(DIR);
}
sub add_file($) {
my $fn = shift;
local *FILE;
my $line;
my $key;
if (-d $fn) {
return add_dir($fn);
}
sysopen(FILE, $fn, O_RDONLY)
or die("$fn: open(): $!\n");
while (<FILE>) {
if (m'-----BEGIN PGP PUBLIC KEY BLOCK-----$') {
$key = $_;
} elsif (m'^-----END PGP PUBLIC KEY BLOCK-----') {
$key .= $_;
chomp($key);
$KEYS{$key}++
if defined($key);
$key = undef;
} elsif (defined($key)) {
$key .= $_;
}
}
}
sub usage() {
print(STDERR "Usage: keyring [-o outfile] [dir|file] ...\n");
}
MAIN:{
my %opts;
getopts('o:', \%opts)
or usage();
if ($opts{'o'}) {
sysopen(STDOUT, $opts{'o'}, O_RDWR|O_CREAT|O_TRUNC)
or die("$opts{'o'}: open(): $!\n");
}
if (!@ARGV) {
add_dir(".");
} else {
while (@ARGV) {
add_file(shift(@ARGV));
}
}
print(join("\n", sort(keys(%KEYS))));
}
|