Obsolete
/
dnsmanagerv1
Archived
3
0
Fork 0
This repository has been archived on 2024-06-18. You can view files and clone it, but cannot push or open issues/pull-requests.
dnsmanagerv1/t/zone_del.pl

18 lines
297 B
Perl
Raw Normal View History

#!/usr/bin/perl -w
use strict;
use warnings;
use v5.14;
use autodie;
use Modern::Perl;
use DNS::ZoneParse;
use lib '../';
use app::zone::rndc_interface;
use app::zone::edit;
my $ed = app::zone::edit->new( zname => $ARGV[0], zdir => "/srv/named/");
say "suppression de ". $ARGV[0];
$ed->del();