remove obsolete scripts
This commit is contained in:
@@ -1,21 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
use Martnet::DDNS;
|
|
||||||
use Regexp::Common qw/net/;
|
|
||||||
|
|
||||||
my $host = shift || die "No zonename provided";
|
|
||||||
my $master = shift;
|
|
||||||
my $ddns = Martnet::DDNS->new();
|
|
||||||
$master ||= $ddns->default_master();
|
|
||||||
|
|
||||||
|
|
||||||
die "Zonename must end in a dot"
|
|
||||||
unless ($host =~ /^[a-zA-Z0-9\.\-\_]+\.$/);
|
|
||||||
|
|
||||||
my $regex = $RE{net}{IPv4} . '|' . $RE{net}{IPv6};
|
|
||||||
die "Master must be an IPv4 or IPv6 address"
|
|
||||||
unless ($master =~ /^$regex$/);
|
|
||||||
|
|
||||||
$ddns->add($host, $master, '_dnssec');
|
|
||||||
@@ -1,14 +0,0 @@
|
|||||||
#!/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, '_dnssec');
|
|
||||||
@@ -1,12 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
use Martnet::DDNS;
|
|
||||||
|
|
||||||
my $ddns = Martnet::DDNS->new();
|
|
||||||
|
|
||||||
my @vh = $ddns->get('_dnssec');
|
|
||||||
foreach my $i (sort {$a->{zone} cmp $b->{zone}} @vh) {
|
|
||||||
print $i->{zone}, ". master: ", $i->{master},"\n";
|
|
||||||
}
|
|
||||||
Reference in New Issue
Block a user