puppet wants to send in keys with comment lines

This commit is contained in:
Sitaram Chamarty 2011-11-08 11:23:25 +05:30
parent b4f96e0a47
commit 5858ecb56e
2 changed files with 2 additions and 1 deletions

View file

@ -38,7 +38,7 @@ print "\n";
my @pubkeys = sort glob("*.pub");
die "no *.pub files here\n" unless @pubkeys;
for my $pub (@pubkeys) {
my @lines = filelines($pub);
my @lines = grep { ! /^\s*#/ } filelines($pub);
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+)/;
my $key = $1;