#!/usr/bin/perl -w

use utf8;
use strict;
use warnings;

BEGIN { unshift(@INC,($ENV{'POPHOME'}||'@POPHOME@').'/lib')
            unless $ENV{'KUNDE_NO_PERLPATH'};
      }

use Dbase::Globals qw(explain_child_error puny_encode);

die <<_ unless @ARGV;
Das ist ein Wrapper um dig und funktioniert genauso wie dig,
mit der einzigen Ausnahme, dass er versucht, IDN-Domains zu
erkennen und in Punycode zu übersetzen.
_

my $lat = $ENV{LANG} !~ /utf/i;

/\./ and $_ = puny_encode $_,4 for @ARGV;
exec dig => @ARGV or die explain_child_error('dig');
