65 lines
1.2 KiB
Perl
65 lines
1.2 KiB
Perl
#!/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;
|
|
}
|
|
|