use PVE::JSONSchema qw(get_standard_option);
use PVE::Firewall;
+use PVE::API2::Firewall::Aliases;
use PVE::API2::Firewall::Rules;
use PVE::API2::Firewall::Groups;
use PVE::API2::Firewall::IPSet;
#fixme: locking?
-use Data::Dumper; # fixme: remove
use base qw(PVE::RESTHandler);
__PACKAGE__->register_method ({
- subclass => "PVE::API2::Firewall::Groups",
+ subclass => "PVE::API2::Firewall::Groups",
path => 'groups',
});
__PACKAGE__->register_method ({
- subclass => "PVE::API2::Firewall::ClusterRules",
+ subclass => "PVE::API2::Firewall::ClusterRules",
path => 'rules',
});
+__PACKAGE__->register_method ({
+ subclass => "PVE::API2::Firewall::ClusterIPSetList",
+ path => 'ipset',
+});
+
+__PACKAGE__->register_method ({
+ subclass => "PVE::API2::Firewall::ClusterAliases",
+ path => 'aliases',
+});
+
+
__PACKAGE__->register_method({
name => 'index',
path => '',
my ($param) = @_;
my $result = [
+ { name => 'aliases' },
{ name => 'rules' },
{ name => 'options' },
{ name => 'groups' },
{ name => 'ipset' },
{ name => 'macros' },
+ { name => 'refs' },
];
return $result;
}});
+my $option_properties = $PVE::Firewall::cluster_option_properties;
+
+my $add_option_properties = sub {
+ my ($properties) = @_;
+
+ foreach my $k (keys %$option_properties) {
+ $properties->{$k} = $option_properties->{$k};
+ }
+
+ return $properties;
+};
+
+
__PACKAGE__->register_method({
name => 'get_options',
path => 'options',
method => 'GET',
description => "Get Firewall options.",
+ permissions => {
+ check => ['perm', '/', [ 'Sys.Audit' ]],
+ },
parameters => {
additionalProperties => 0,
},
returns => {
type => "object",
#additionalProperties => 1,
- properties => {
- enable => {
- type => 'boolean',
- optional => 1,
- },
- },
+ properties => $option_properties,
},
code => sub {
my ($param) = @_;
my $cluster_conf = PVE::Firewall::load_clusterfw_conf();
- my $options = $cluster_conf->{options};
-
- return $options;
+ return PVE::Firewall::copy_opject_with_digest($cluster_conf->{options});
}});
-my $option_properties = {
- enable => {
- type => 'boolean',
- optional => 1,
- },
-};
-
-my $add_option_properties = sub {
- my ($properties) = @_;
-
- foreach my $k (keys %$option_properties) {
- $properties->{$k} = $option_properties->{$k};
- }
-
- return $properties;
-};
__PACKAGE__->register_method({
name => 'set_options',
method => 'PUT',
description => "Set Firewall options.",
protected => 1,
+ permissions => {
+ check => ['perm', '/', [ 'Sys.Modify' ]],
+ },
parameters => {
additionalProperties => 0,
properties => &$add_option_properties({
description => "A list of settings you want to delete.",
optional => 1,
},
+ digest => get_standard_option('pve-config-digest'),
}),
},
returns => { type => "null" },
code => sub {
my ($param) = @_;
- my $cluster_conf = PVE::Firewall::load_clusterfw_conf();
+ PVE::Firewall::lock_clusterfw_conf(10, sub {
+ my $cluster_conf = PVE::Firewall::load_clusterfw_conf();
+
+ my (undef, $digest) = PVE::Firewall::copy_opject_with_digest($cluster_conf->{options});
+ PVE::Tools::assert_if_modified($digest, $param->{digest});
- if ($param->{delete}) {
- foreach my $opt (PVE::Tools::split_list($param->{delete})) {
- raise_param_exc({ delete => "no such option '$opt'" })
- if !$option_properties->{$opt};
- delete $cluster_conf->{options}->{$opt};
+ if ($param->{delete}) {
+ foreach my $opt (PVE::Tools::split_list($param->{delete})) {
+ raise_param_exc({ delete => "no such option '$opt'" })
+ if !$option_properties->{$opt};
+ delete $cluster_conf->{options}->{$opt};
+ }
}
- }
- if (defined($param->{enable})) {
- $cluster_conf->{options}->{enable} = $param->{enable} ? 1 : 0;
- }
+ if (defined($param->{enable}) && ($param->{enable} > 1)) {
+ $param->{enable} = time();
+ }
- PVE::Firewall::save_clusterfw_conf($cluster_conf);
+ foreach my $k (keys %$option_properties) {
+ next if !defined($param->{$k});
+ $cluster_conf->{options}->{$k} = $param->{$k};
+ }
+
+ PVE::Firewall::save_clusterfw_conf($cluster_conf);
+ });
+
+ # instant firewall update when using double (anti-lockout) API call
+ # -> not waiting for a firewall update at the first (timestamp enable) set
+ if (defined($param->{enable}) && ($param->{enable} > 1)) {
+ PVE::Firewall::update();
+ }
return undef;
}});
path => 'macros',
method => 'GET',
description => "List available macros",
+ permissions => { user => 'all' },
parameters => {
additionalProperties => 0,
},
}});
__PACKAGE__->register_method({
- name => 'ipset',
- path => 'ipset',
+ name => 'refs',
+ path => 'refs',
method => 'GET',
- description => "List IPSets",
+ description => "Lists possible IPSet/Alias reference which are allowed in source/dest properties.",
+ permissions => {
+ check => ['perm', '/', [ 'Sys.Audit' ]],
+ },
parameters => {
- additionalProperties => 0,
+ additionalProperties => 0,
+ properties => {
+ type => {
+ description => "Only list references of specified type.",
+ type => 'string',
+ enum => ['alias', 'ipset'],
+ optional => 1,
+ },
+ },
},
returns => {
type => 'array',
items => {
type => "object",
- properties => {
+ properties => {
+ type => {
+ type => 'string',
+ enum => ['alias', 'ipset'],
+ },
name => {
- description => "IPSet name.",
type => 'string',
},
+ ref => {
+ type => 'string',
+ },
+ scope => {
+ type => 'string',
+ },
+ comment => {
+ type => 'string',
+ optional => 1,
+ },
},
},
- links => [ { rel => 'child', href => "{name}" } ],
},
code => sub {
my ($param) = @_;
- my $cluster_conf = PVE::Firewall::load_clusterfw_conf();
-
- my $res = [];
- foreach my $name (keys %{$cluster_conf->{ipset}}) {
- push @$res, { name => $name, count => scalar(@{$cluster_conf->{ipset}->{$name}}) };
- }
+ my $conf = PVE::Firewall::load_clusterfw_conf();
- return $res;
+ return PVE::Firewall::Helpers::collect_refs($conf, $param->{type}, "dc");
}});
-__PACKAGE__->register_method ({
- subclass => "PVE::API2::Firewall::ClusterIPset",
- path => 'ipset/{name}',
- # set fragment delimiter (no subdirs) - we need that, because CIDR address contain a slash '/'
- fragmentDelimiter => '',
-});
-
1;