1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
package PVE::Network::SDN::Dhcp::Plugin;
use strict;
use warnings;
use PVE::Cluster;
use PVE::JSONSchema qw(get_standard_option);
use base qw(PVE::SectionConfig);
my $defaultData = {
propertyList => {
type => {
description => "Plugin type.",
format => 'pve-configid',
type => 'string',
},
},
};
sub private {
return $defaultData;
}
sub add_ip_mapping {
my ($class, $dhcpid, $macdb, $mac, $ip4, $ip6) = @_;
die 'implement in sub class';
}
sub configure_range {
my ($class, $config, $dhcpid, $vnetid, $subnet_config, $range_config) = @_;
die 'implement in sub class';
}
sub configure_subnet {
my ($class, $config, $dhcpid, $vnetid, $subnet_config) = @_;
die 'implement in sub class';
}
sub configure_vnet {
my ($class, $config, $dhcpid, $vnetid, $vnet_config) = @_;
die 'implement in sub class';
}
sub before_configure {
my ($class, $dhcpid, $zone_config) = @_;
die 'implement in sub class';
}
sub after_configure {
my ($class, $dhcpid, $noerr) = @_;
die 'implement in sub class';
}
sub before_regenerate {
my ($class, $noerr) = @_;
die 'implement in sub class';
}
sub after_regenerate {
my ($class) = @_;
die 'implement in sub class';
}
1;
|
