ac41629891
* la lib (app actuellement, à renommer) partiellement testée
permet une utilisation facilitée des différents modules
* l'application dancer permet pour le moment de connecter un
utilisateur, lister les domaines, ajouter et supprimer un domaine
* les fichiers t/zone* sont des fichiers de tests, et non des exemples
* tpl.zone est un fichier modèle pour une nouvelle zone
21 lines
344 B
Perl
Executable File
21 lines
344 B
Perl
Executable File
#!/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 $nom = $ARGV[0];
|
|
my $zdir = "/srv/named/";
|
|
|
|
my $ed = app::zone::edit->new(zdir => $zdir, zname => $nom);
|
|
|
|
my $zonefile = $ed->new_tmp();
|
|
|
|
print $zonefile->output();
|