packages: djbdns/add-sshfp.pl - revert, tinydns already depends on perl, sigh

[glen]

Author: glen                         Date: Fri Aug  6 08:37:14 2010 GMT
Module: packages                      Tag: HEAD
---- Log message:
- revert, tinydns already depends on perl, sigh

---- Files affected:
packages/djbdns:
   add-sshfp.pl (1.2 -> 1.3) 

---- Diffs:

================================================================
Index: packages/djbdns/add-sshfp.pl
diff -u /dev/null packages/djbdns/add-sshfp.pl:1.3
--- /dev/null	Fri Aug  6 10:37:14 2010
+++ packages/djbdns/add-sshfp.pl	Fri Aug  6 10:37:09 2010
@@ -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);
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/djbdns/add-sshfp.pl?r1=1.2&r2=1.3&f=u