#!/usr/bin/perl

use Net::Nslookup;
my @hostnames = qw /
!Domain
geisslermail.de
irgendwas.geisslermail.de
!S2_Server
s2.geisslermail.de
mail.geisslermail.de
mail1.geisslermail.de
!S3_Server
s3.geisslermail.de
mscp.geisslermail.de
admin.mscp.geisslermail.de
irgendwas.admin.mscp.geisslermail.de
!S3_andregeissler
andregeissler.de
ttrss.andregeissler.de
irgendwas.andregeissler.de
!S3_julianegeissler
julianegeissler.de
ttrss.julianegeissler.de
irgendwas.julianegeissler.de
!S4_Server
s4.geisslermail.de
mail2.geisslermail.de
svn.geisslermail.de
websvn.geisslermail.de
/;

my @mx = qw /
geisslermail.de
andregeissler.de
julianegeissler.de
/;

my @ptr = qw /
62.113.250.13
62.113.250.43
62.113.242.49
62.113.250.204
/;
printf "%3s: %40s : %15s\n", "Typ", "gesucht", "gefunden";
foreach (@hostnames) {
 my $ip = nslookup (host => $_, type => 'A', server => '8.8.8.8');
 $link = "https://$_/";
 if ($_ =~/^!/) {
  printf "\n  %-s\n", $_;
 } else {
  printf "%3s: %40s : %15s : %s\n", "A", $_, $ip, $link;
 }
}
print "\n";
foreach (@mx) {
 my @ip = nslookup (domain => $_, type => 'MX');
 printf "%3s: %40s : %15s\n", "MX", $_, @ip;
}
print "\n";
foreach (@ptr) {
 my @ip = nslookup (host => $_, type => 'PTR');
 printf "%3s: %40s : %15s\n", "PTR", $_, @ip;
}