]>
git.proxmox.com Git - pve-network.git/blob - PVE/Network/SDN/Ipams/PVEPlugin.pm
1 package PVE
::Network
::SDN
::Ipams
::PVEPlugin
;
6 use PVE
::Cluster
qw(cfs_read_file cfs_write_file cfs_register_file cfs_lock_file);
13 use base
('PVE::Network::SDN::Ipams::Plugin');
16 my $ipamdb_file = "priv/ipam.db";
18 PVE
::Cluster
::cfs_register_file
($ipamdb_file,
19 sub { PVE
::Network
::SDN
::Ipams
::PVEPlugin-
>parse_config(@_); },
20 sub { PVE
::Network
::SDN
::Ipams
::PVEPlugin-
>write_config(@_); });
32 # Plugin implementation
35 my ($class, $plugin_config, $subnetid, $subnet) = @_;
37 my $cidr = $subnet->{cidr
};
38 my $zone = $subnet->{zone
};
39 my $gateway = $subnet->{gateway
};
42 cfs_lock_file
($ipamdb_file, undef, sub {
46 $db->{zones
}->{$zone} = {} if !$db->{zones
}->{$zone};
47 my $zonedb = $db->{zones
}->{$zone};
49 if(!$zonedb->{subnets
}->{$cidr}) {
51 $zonedb->{subnets
}->{$cidr}->{ips
} = {};
59 my ($class, $plugin_config, $subnetid, $subnet) = @_;
61 my $cidr = $subnet->{cidr
};
62 my $zone = $subnet->{zone
};
64 cfs_lock_file
($ipamdb_file, undef, sub {
68 my $dbzone = $db->{zones
}->{$zone};
69 die "zone '$zone' doesn't exist in IPAM DB\n" if !$dbzone;
70 my $dbsubnet = $dbzone->{subnets
}->{$cidr};
71 die "subnet '$cidr' doesn't exist in IPAM DB\n" if !$dbsubnet;
73 die "cannot delete subnet '$cidr', not empty\n" if keys %{$dbsubnet->{ips
}} > 0;
75 delete $dbzone->{subnets
}->{$cidr};
84 my ($class, $plugin_config, $subnetid, $subnet, $ip, $hostname, $description, $is_gateway) = @_;
86 my $cidr = $subnet->{cidr
};
87 my $zone = $subnet->{zone
};
89 cfs_lock_file
($ipamdb_file, undef, sub {
93 my $dbzone = $db->{zones
}->{$zone};
94 die "zone '$zone' doesn't exist in IPAM DB\n" if !$dbzone;
95 my $dbsubnet = $dbzone->{subnets
}->{$cidr};
96 die "subnet '$cidr' doesn't exist in IPAM DB\n" if !$dbsubnet;
98 die "IP '$ip' already exist\n" if defined($dbsubnet->{ips
}->{$ip});
100 $dbsubnet->{ips
}->{$ip} = {
101 hostname
=> $hostname,
102 description
=> $description,
110 sub add_next_freeip
{
111 my ($class, $plugin_config, $subnetid, $subnet, $hostname, $description) = @_;
113 my $cidr = $subnet->{cidr
};
114 my $network = $subnet->{network
};
115 my $zone = $subnet->{zone
};
116 my $mask = $subnet->{mask
};
119 cfs_lock_file
($ipamdb_file, undef, sub {
122 my $dbzone = $db->{zones
}->{$zone};
123 die "zone '$zone' doesn't exist in IPAM DB\n" if !$dbzone;
124 my $dbsubnet = $dbzone->{subnets
}->{$cidr};
125 die "subnet '$cidr' doesn't exist in IPAM DB" if !$dbsubnet;
127 if (Net
::IP
::ip_is_ipv4
($network) && $mask == 32) {
128 die "cannot find free IP in subnet '$cidr'\n" if defined($dbsubnet->{ips
}->{$network});
131 my $iplist = new NetAddr
::IP
($cidr);
132 my $broadcast = $iplist->broadcast();
136 last if $iplist eq $broadcast;
137 my $ip = $iplist->addr();
138 next if defined($dbsubnet->{ips
}->{$ip});
144 die "can't find free ip in subnet '$cidr'\n" if !$freeip;
146 $dbsubnet->{ips
}->{$freeip} = {
147 hostname
=> $hostname,
148 description
=> $description,
155 return "$freeip/$mask";
159 my ($class, $plugin_config, $subnetid, $subnet, $ip) = @_;
161 my $cidr = $subnet->{cidr
};
162 my $zone = $subnet->{zone
};
164 cfs_lock_file
($ipamdb_file, undef, sub {
167 die "zone $zone don't exist in ipam db" if !$db->{zones
}->{$zone};
168 my $dbzone = $db->{zones
}->{$zone};
169 die "subnet $cidr don't exist in ipam db" if !$dbzone->{subnets
}->{$cidr};
170 my $dbsubnet = $dbzone->{subnets
}->{$cidr};
172 die "IP '$ip' does not exist in IPAM DB\n" if !defined($dbsubnet->{ips
}->{$ip});
173 delete $dbsubnet->{ips
}->{$ip};
183 my $db = cfs_read_file
($ipamdb_file);
190 my $json = to_json
($cfg);
191 cfs_write_file
($ipamdb_file, $json);
195 my ($class, $filename, $cfg) = @_;
201 my ($class, $filename, $raw) = @_;
203 $raw = '{}' if !defined($raw) ||$raw eq '';
204 my $cfg = from_json
($raw);