15 lines
288 B
Perl
15 lines
288 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Martnet::DDNS;
|
|
use Regexp::Common qw/net/;
|
|
|
|
my $host = shift || die "No zonename provided";
|
|
|
|
die "Zonename must end in a dot"
|
|
unless ($host =~ /^[a-zA-Z0-9\-\_\.]+\.$/);
|
|
|
|
my $ddns = Martnet::DDNS->new();
|
|
$ddns->del($host, '_pureslave');
|