From 6dc9e0948e0c61cc8bfba98a33084660aee4ddef Mon Sep 17 00:00:00 2001
From: "Paul Buetow (lxpbuetow)" <paul.buetow@1und1.de>
Date: Tue, 30 Dec 2014 13:29:46 +0100
Subject: update this for FreeBSD 10.1

---
 index.pl | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/index.pl b/index.pl
index 9bc44e5..4da2f55 100755
--- a/index.pl
+++ b/index.pl
@@ -3,8 +3,6 @@
 use strict;
 use warnings;
 
-use Shell qw(host dig);
-
 print <<END;
 Content-type: text/html
 
@@ -54,12 +52,12 @@ print "<pre>You are using <b>" . do {
 } . "</b>\n";
 
 
-chomp (my $remote = host($ENV{REMOTE_ADDR}));
-chomp (my $server = host($ENV{SERVER_ADDR}));
-chomp (my $server0 = host($ENV{SERVER_NAME}));
-chomp (my $digremote = dig('-x', $ENV{REMOTE_ADDR}));
-chomp (my $digserver = dig('-x', $ENV{SERVER_ADDR}));
-chomp (my $digserver0 = dig('-t', 'any', $ENV{SERVER_NAME}));
+chomp (my $remote = `host $ENV{REMOTE_ADDR}`);
+chomp (my $server = `host $ENV{SERVER_ADDR}`);
+chomp (my $server0 = `host $ENV{SERVER_NAME}`);
+chomp (my $digremote = `dig -x $ENV{REMOTE_ADDR}`);
+chomp (my $digserver = `dig -x $ENV{SERVER_ADDR}`);
+chomp (my $digserver0 = `dig -t any $ENV{SERVER_NAME}`);
 
 print <<END;
 Client address: $ENV{REMOTE_ADDR}
-- 
cgit v1.2.3