From: Dominik Csapak <d.csapak@proxmox.com>
Date: Thu, 15 Jun 2023 12:36:43 +0000 (+0200)
Subject: fix #4778: fix boolean type check for json parameters over the api
X-Git-Url: https://git.proxmox.com/?p=pve-common.git;a=commitdiff_plain;h=bc24aad31684d2cb731a940d5ed076ee37d70d38

fix #4778: fix boolean type check for json parameters over the api

if a real json boolean is sent via the api, $value is a
JSON::PP::Boolean here instead of a string/scalar

so we should validate that too

the $value itself can be used normally in conditions like
----
if ($value) {
----

if the value is stringified, the result is either '1' or '0' so even if
we have some explicit checks like that it should not make a problem

Signed-off-by: Dominik Csapak <d.csapak@proxmox.com>
---

diff --git a/src/PVE/JSONSchema.pm b/src/PVE/JSONSchema.pm
index 85d47f2..60b02cb 100644
--- a/src/PVE/JSONSchema.pm
+++ b/src/PVE/JSONSchema.pm
@@ -10,6 +10,7 @@ use Devel::Cycle -quiet; # todo: remove?
 use PVE::Tools qw(split_list $IPV6RE $IPV4RE);
 use PVE::Exception qw(raise);
 use HTTP::Status qw(:constants);
+use JSON;
 use Net::IP qw(:PROC);
 use Data::Dumper;
 
@@ -1040,6 +1041,9 @@ sub check_type {
 	    return 1;
 	} else {
 	    if ($vt) {
+		if ($type eq 'boolean' && JSON::is_bool($value)) {
+		    return 1;
+		}
 		add_error($errors, $path, "type check ('$type') failed - got $vt");
 		return undef;
 	    } else {