From: "Fabian Grünbichler" <f.gruenbichler@proxmox.com>
To: Proxmox VE development discussion <pve-devel@lists.proxmox.com>
Subject: [pve-devel] applied: [PATCH v3 manager] pve6to7: add check for pool permissions
Date: Fri, 18 Jun 2021 10:56:16 +0200 [thread overview]
Message-ID: <1624006483.mzzgfvmkne.astroid@nora.none> (raw)
In-Reply-To: <20210617083918.42253-1-l.stechauner@proxmox.com>
with a small follow-up:
[PATCH] pve6to7: improve user.cfg parser
make it a bit more like the actual one - remove whitespace padding, use
same regex/split calls.
Signed-off-by: Fabian Grünbichler <f.gruenbichler@proxmox.com>
---
PVE/CLI/pve6to7.pm | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/PVE/CLI/pve6to7.pm b/PVE/CLI/pve6to7.pm
index 4fe606f3..412fb30f 100644
--- a/PVE/CLI/pve6to7.pm
+++ b/PVE/CLI/pve6to7.pm
@@ -609,9 +609,20 @@ sub check_custom_pool_roles {
my $raw = read_file('/etc/pve/user.cfg');
my $roles = {};
- while ($raw =~ /^\s*role:(.*?):(.*?):(.*?)\s*$/gm) {
- my ($role, $privlist) = ($1, $2);
+ while ($raw =~ /^\s*(.+?)\s*$/gm) {
+ my $line = $1;
+ my @data;
+ foreach my $d (split (/:/, $line)) {
+ $d =~ s/^\s+//;
+ $d =~ s/\s+$//;
+ push @data, $d
+ }
+
+ my $et = shift @data;
+ next if $et ne 'role';
+
+ my ($role, $privlist) = @data;
if (!PVE::AccessControl::verify_rolename($role, 1)) {
warn "user config - ignore role '$role' - invalid characters in role name\n";
next;
--
2.20.1
On June 17, 2021 10:39 am, Lorenz Stechauner wrote:
> the two checks make sure that:
> * no user defined role 'PVEPoolUser' exists
> * the user gets a hint for roles only containing Pool.Allocate and
> not Pool.Audit
>
> a very simple parser for user.cfg was implemented to be able to
> parse the (in pve 6 invalid) Pool.Audit permission
>
> Signed-off-by: Lorenz Stechauner <l.stechauner@proxmox.com>
> ---
> PVE/CLI/pve6to7.pm | 48 +++++++++++++++++++++++++++++++++++++++++++++-
> 1 file changed, 47 insertions(+), 1 deletion(-)
>
> diff --git a/PVE/CLI/pve6to7.pm b/PVE/CLI/pve6to7.pm
> index 90f92a55..4fe606f3 100644
> --- a/PVE/CLI/pve6to7.pm
> +++ b/PVE/CLI/pve6to7.pm
> @@ -9,6 +9,7 @@ use PVE::API2::LXC;
> use PVE::API2::Qemu;
> use PVE::API2::Certificates;
>
> +use PVE::AccessControl;
> use PVE::Ceph::Tools;
> use PVE::Cluster;
> use PVE::Corosync;
> @@ -16,10 +17,11 @@ use PVE::INotify;
> use PVE::JSONSchema;
> use PVE::RPCEnvironment;
> use PVE::Storage;
> -use PVE::Tools qw(run_command);
> +use PVE::Tools qw(run_command split_list);
> use PVE::QemuServer;
> use PVE::VZDump::Common;
>
> +use File::Slurp;
> use Term::ANSIColor;
>
> use PVE::CLIHandler;
> @@ -601,6 +603,49 @@ sub check_cifs_credential_location {
> log_pass("no CIFS credentials at outdated location found.") if !$found;
> }
>
> +sub check_custom_pool_roles {
> + log_info("Checking custom roles for pool permissions..");
> +
> + my $raw = read_file('/etc/pve/user.cfg');
> +
> + my $roles = {};
> + while ($raw =~ /^\s*role:(.*?):(.*?):(.*?)\s*$/gm) {
> + my ($role, $privlist) = ($1, $2);
> +
> + if (!PVE::AccessControl::verify_rolename($role, 1)) {
> + warn "user config - ignore role '$role' - invalid characters in role name\n";
> + next;
> + }
> +
> + $roles->{$role} = {} if !$roles->{$role};
> + foreach my $priv (split_list($privlist)) {
> + $roles->{$role}->{$priv} = 1;
> + }
> + }
> +
> + foreach my $role (sort keys %{$roles}) {
> + if (PVE::AccessControl::role_is_special($role)) {
> + next;
> + }
> +
> + if ($role eq "PVEPoolUser") {
> + # the user created a custom role named PVEPoolUser
> + log_fail("Custom role '$role' has a restricted name - a built-in role 'PVEPoolUser' will be available with the upgrade");
> + } else {
> + log_pass("Custom role '$role' has no restricted name");
> + }
> +
> + my $perms = $roles->{$role};
> + if ($perms->{'Pool.Allocate'} && $perms->{'Pool.Audit'}) {
> + log_pass("Custom role '$role' contains updated pool permissions");
> + } elsif ($perms->{'Pool.Allocate'}) {
> + log_warn("Custom role '$role' contains permission 'Pool.Allocate' - to ensure same behavior add 'Pool.Audit' to this role");
> + } else {
> + log_pass("Custom role '$role' contains no permissions that need to be updated");
> + }
> + }
> +}
> +
> sub check_misc {
> print_header("MISCELLANEOUS CHECKS");
> my $ssh_config = eval { PVE::Tools::file_get_contents('/root/.ssh/config') };
> @@ -693,6 +738,7 @@ sub check_misc {
>
> check_backup_retention_settings();
> check_cifs_credential_location();
> + check_custom_pool_roles();
> }
>
> __PACKAGE__->register_method ({
> --
> 2.30.2
>
>
>
> _______________________________________________
> pve-devel mailing list
> pve-devel@lists.proxmox.com
> https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel
>
>
>
prev parent reply other threads:[~2021-06-18 8:56 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-06-17 8:39 [pve-devel] " Lorenz Stechauner
2021-06-17 8:42 ` Lorenz Stechauner
2021-06-18 8:56 ` Fabian Grünbichler [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1624006483.mzzgfvmkne.astroid@nora.none \
--to=f.gruenbichler@proxmox.com \
--cc=pve-devel@lists.proxmox.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox