#!/usr/bin/perl open(SSHFP_JS, ">", "include/sshfp.js") || die $!; print SSHFP_JS qq|var SSHFP_RECORDS = [\n|; if (-f "/etc/ssh/ssh_known_hosts") { open(SSHFP, "-|","sshfp", "-k", "/etc/ssh/ssh_known_hosts") || die $!; while (my $line = ) { if ($line =~ /^(\S+) IN SSHFP (\d+) (\d+) ([0-9A-F]+)$/) { my $host = $1; my $algorithm = $2; my $type = $3; my $value = $4; if ($type == 2 && $algorithm == 1) { print SSHFP_JS qq| SSHFP("${host}", ${algorithm}, ${type}, "${value}"),\n|; } } else { warn $line; } } close(SSHFP); } print SSHFP_JS qq|];\n|; close(SSHFP_JS); exit 0;