From: Elan Ruusamäe <glen@pld-linux.org>
Date: Fri, 6 Aug 2010 08:37:09 +0000 (+0000)
Subject: - revert, tinydns already depends on perl, sigh
X-Git-Url: https://git.pld-linux.org/?p=packages%2Fdjbdns.git;a=commitdiff_plain;h=04b620fddac38753aad17889920867f570d523b3

- revert, tinydns already depends on perl, sigh

Changed files:
    add-sshfp.pl -> 1.3
---

diff --git a/add-sshfp.pl b/add-sshfp.pl
new file mode 100644
index 0000000..07ba5a8
--- /dev/null
+++ b/add-sshfp.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+
+open IN, "ssh-keygen -f /etc/ssh/ssh_host_rsa_key.pub -r $ARGV[0] |";
+my $FP = <IN>;
+close IN;
+chop $FP;
+my ($host, $in, $sshfp, $alg, $fptype, $fp) = split " ", $FP;
+my $out = sprintf("\\%03o\\%03o", $alg, $fptype);
+for (my $i = 0; $i < length($fp); $i += 2) {
+	$out .= sprintf("\\%03o", hex substr($fp, $i, 2));
+}
+printf(":%s:44:%s:\n", $host, $out);