#!/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 = <SSHFP>)
    {
        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 == 3 || $algorithm == 4))
            {
                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;