]>
Commit | Line | Data |
---|---|---|
86d22462 | 1 | package PVE::Network::SDN::Plugin; |
6939693f AD |
2 | |
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use PVE::Tools; | |
7 | use PVE::JSONSchema; | |
8 | use PVE::Cluster; | |
9 | ||
10 | use Data::Dumper; | |
eec580bf | 11 | use PVE::JSONSchema qw(get_standard_option); |
6939693f AD |
12 | use base qw(PVE::SectionConfig); |
13 | ||
6bffe819 | 14 | PVE::Cluster::cfs_register_file('sdn.cfg', |
39d04c82 AD |
15 | sub { __PACKAGE__->parse_config(@_); }); |
16 | ||
6bffe819 | 17 | PVE::Cluster::cfs_register_file('sdn.cfg.new', |
6939693f AD |
18 | sub { __PACKAGE__->parse_config(@_); }, |
19 | sub { __PACKAGE__->write_config(@_); }); | |
20 | ||
6bffe819 AD |
21 | PVE::JSONSchema::register_standard_option('pve-sdn-id', { |
22 | description => "The SDN object identifier.", | |
23 | type => 'string', format => 'pve-sdn-id', | |
fe61b14c AD |
24 | }); |
25 | ||
6bffe819 AD |
26 | PVE::JSONSchema::register_format('pve-sdn-id', \&parse_sdn_id); |
27 | sub parse_sdn_id { | |
28 | my ($sdnid, $noerr) = @_; | |
fe61b14c | 29 | |
6bffe819 | 30 | if ($sdnid !~ m/^[a-z][a-z0-9\-\_\.]*[a-z0-9]$/i) { |
fe61b14c | 31 | return undef if $noerr; |
6bffe819 | 32 | die "SDN object ID '$sdnid' contains illegal characters\n"; |
fe61b14c | 33 | } |
6bffe819 | 34 | return $sdnid; |
fe61b14c AD |
35 | } |
36 | ||
6939693f AD |
37 | my $defaultData = { |
38 | ||
39 | propertyList => { | |
7d35eaf5 | 40 | type => { |
6939693f AD |
41 | description => "Plugin type.", |
42 | type => 'string', format => 'pve-configid', | |
43 | type => 'string', | |
44 | }, | |
6bffe819 AD |
45 | sdn => get_standard_option('pve-sdn-id', |
46 | { completion => \&PVE::Network::SDN::complete_sdn }), | |
6939693f AD |
47 | }, |
48 | }; | |
49 | ||
50 | sub private { | |
51 | return $defaultData; | |
52 | } | |
53 | ||
54 | sub parse_section_header { | |
55 | my ($class, $line) = @_; | |
56 | ||
57 | if ($line =~ m/^(\S+):\s*(\S+)\s*$/) { | |
6bffe819 | 58 | my ($type, $sdnid) = (lc($1), $2); |
6939693f AD |
59 | my $errmsg = undef; # set if you want to skip whole section |
60 | eval { PVE::JSONSchema::pve_verify_configid($type); }; | |
61 | $errmsg = $@ if $@; | |
62 | my $config = {}; # to return additional attributes | |
6bffe819 | 63 | return ($type, $sdnid, $errmsg, $config); |
6939693f AD |
64 | } |
65 | return undef; | |
66 | } | |
67 | ||
6bffe819 | 68 | sub generate_sdn_config { |
6939693f AD |
69 | my ($class, $plugin_config, $node, $data, $ctime) = @_; |
70 | ||
71 | die "please implement inside plugin"; | |
72 | } | |
73 | ||
32602a38 | 74 | sub generate_frr_config { |
074d270b | 75 | my ($class, $plugin_config, $router, $id, $uplinks, $config) = @_; |
32602a38 AD |
76 | |
77 | die "please implement inside plugin"; | |
78 | } | |
79 | ||
fe0c6b9e | 80 | sub on_delete_hook { |
6bffe819 | 81 | my ($class, $sndid, $scfg) = @_; |
e8d5906e AD |
82 | |
83 | # do nothing by default | |
84 | } | |
85 | ||
86 | sub on_update_hook { | |
6bffe819 | 87 | my ($class, $sdnid, $scfg) = @_; |
fe0c6b9e AD |
88 | |
89 | # do nothing by default | |
90 | } | |
91 | ||
6939693f AD |
92 | #helpers |
93 | sub parse_tag_number_or_range { | |
94 | my ($str, $max, $tag) = @_; | |
95 | ||
96 | my @elements = split(/,/, $str); | |
97 | my $count = 0; | |
98 | my $allowed = undef; | |
99 | ||
100 | die "extraneous commas in list\n" if $str ne join(',', @elements); | |
101 | foreach my $item (@elements) { | |
102 | if ($item =~ m/^([0-9]+)-([0-9]+)$/) { | |
103 | $count += 2; | |
104 | my ($port1, $port2) = ($1, $2); | |
105 | die "invalid port '$port1'\n" if $port1 > $max; | |
106 | die "invalid port '$port2'\n" if $port2 > $max; | |
107 | die "backwards range '$port1:$port2' not allowed, did you mean '$port2:$port1'?\n" if $port1 > $port2; | |
108 | ||
109 | if ($tag && $tag >= $port1 && $tag <= $port2){ | |
110 | $allowed = 1; | |
111 | last; | |
112 | } | |
113 | ||
114 | } elsif ($item =~ m/^([0-9]+)$/) { | |
115 | $count += 1; | |
116 | my $port = $1; | |
117 | die "invalid port '$port'\n" if $port > $max; | |
118 | ||
119 | if ($tag && $tag == $port){ | |
120 | $allowed = 1; | |
121 | last; | |
122 | } | |
123 | } | |
124 | } | |
125 | die "tag $tag is not allowed" if $tag && !$allowed; | |
126 | ||
127 | return (scalar(@elements) > 1); | |
128 | } | |
129 | ||
3ee45e4c AD |
130 | #to be move to Network.pm helper |
131 | sub get_first_local_ipv4_from_interface { | |
132 | my ($interface) = @_; | |
133 | ||
134 | my $cmd = ['/sbin/ip', 'address', 'show', 'dev', $interface]; | |
135 | ||
136 | my $IP = ""; | |
137 | ||
138 | my $code = sub { | |
139 | my $line = shift; | |
140 | ||
141 | if ($line =~ m!^\s*inet\s+($PVE::Tools::IPRE)(?:/\d+|\s+peer\s+)!) { | |
142 | $IP = $1; | |
143 | return; | |
144 | } | |
145 | }; | |
146 | ||
147 | PVE::Tools::run_command($cmd, outfunc => $code); | |
148 | ||
149 | return $IP; | |
150 | } | |
151 | ||
6939693f | 152 | 1; |