22 lines
368 B
Perl
Executable File
22 lines
368 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Martnet::DDNS;
|
|
|
|
my $dom = shift || die;
|
|
|
|
$dom =~ s/^(.+)\.$/$1/; # remove trailing dot
|
|
|
|
my $ddns = Martnet::DDNS->new();
|
|
|
|
my @vh = $ddns->get();
|
|
foreach my $i (@vh) {
|
|
if (lc($i->{zone}) eq $dom) {
|
|
print "Yes, $i->{zone} is managed [$i->{type}]\n";
|
|
exit 0;
|
|
}
|
|
}
|
|
|
|
print "No, $dom does not appear to be managed\n";
|