]>
git.proxmox.com Git - pve-network.git/blob - PVE/Network/SDN/Dns.pm
1 package PVE
::Network
::SDN
::Dns
;
9 use PVE
::Tools
qw(extract_param dir_glob_regex run_command);
10 use PVE
::Cluster
qw(cfs_read_file cfs_write_file cfs_lock_file);
13 use PVE
::Network
::SDN
::Dns
::PowerdnsPlugin
;
14 use PVE
::Network
::SDN
::Dns
::Plugin
;
16 PVE
::Network
::SDN
::Dns
::PowerdnsPlugin-
>register();
17 PVE
::Network
::SDN
::Dns
::Plugin-
>init();
21 my ($cfg, $id, $noerr) = @_;
23 die "no sdn dns ID specified\n" if !$id;
25 my $scfg = $cfg->{ids
}->{$id};
26 die "sdn '$id' does not exist\n" if (!$noerr && !$scfg);
32 my $config = cfs_read_file
("sdn/dns.cfg");
39 cfs_write_file
("sdn/dns.cfg", $cfg);
45 return keys %{$cfg->{ids
}};
48 sub complete_sdn_dns
{
49 my ($cmdname, $pname, $cvalue) = @_;
51 my $cfg = PVE
::Network
::SDN
::Dns
::config
();
53 return $cmdname eq 'add' ?
[] : [ PVE
::Network
::SDN
::Dns
::sdn_dns_ids
($cfg) ];