deac/gitolite
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

(sshkeys-lint) add detection of duplicate *.pub files

Browse source
This commit is contained in:
Sitaram Chamarty 2011-05-10 10:15:21 +05:30
parent 18c69e8612
commit 74c1736222
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/sshkeys-lint
View file

@ -1,7 +1,7 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use strict; use strict;
our (%users, %linenos); our (%users, %linenos, %pubkeyfiles);
my $thisbin = $0; my $thisbin = $0;
$thisbin = "$ENV{PWD}/$thisbin" unless $thisbin =~ /^\//; $thisbin = "$ENV{PWD}/$thisbin" unless $thisbin =~ /^\//;
@ -33,13 +33,15 @@ print "\n";
# all *.pub in current dir should be exactly one line, starting with ssh-rsa # all *.pub in current dir should be exactly one line, starting with ssh-rsa
# or ssh-dss # or ssh-dss
my @pubkeys = glob("*.pub"); my @pubkeys = sort glob("*.pub");
die "no *.pub files here\n" unless @pubkeys; die "no *.pub files here\n" unless @pubkeys;
for my $pub (@pubkeys) { for my $pub (@pubkeys) {
my @lines = filelines($pub); my @lines = filelines($pub);
die "$pub has more than one line\n" if @lines > 1; die "$pub has more than one line\n" if @lines > 1;
die "$pub does not start with ssh-rsa or ssh-dss\n" unless $lines[0] =~ /^(?:ssh-rsa|ssh-dss) (\S+)/; die "$pub does not start with ssh-rsa or ssh-dss\n" unless $lines[0] =~ /^(?:ssh-rsa|ssh-dss) (\S+)/;
my $key = $1; my $key = $1;
print "$pub seems to be A COPY OF $pubkeyfiles{$key}\n" if $pubkeyfiles{$key};
$pubkeyfiles{$key} ||= $pub;
if ($users{$key}) { if ($users{$key}) {
print "$pub $users{$key}\n"; print "$pub $users{$key}\n";
} else { } else {