X-Git-Url: https://git.proxmox.com/?p=pve-common.git;a=blobdiff_plain;f=src%2FPVE%2FJSONSchema.pm;h=e392f5898612331464d582bb90a73846dd525821;hp=8725949443d08ff50ad1e973dd8ee8ac4f77c5ef;hb=86425a09da0293652507ac16d6d1a30f62aba88f;hpb=d5d10f858042bc4ddd86fc998c048d541ba3088d

diff --git a/src/PVE/JSONSchema.pm b/src/PVE/JSONSchema.pm
index 8725949..e392f58 100644
--- a/src/PVE/JSONSchema.pm
+++ b/src/PVE/JSONSchema.pm
@@ -563,6 +563,19 @@ sub check_object {
     }
 }
 
+sub check_object_warn {
+    my ($path, $schema, $value, $additional_properties) = @_;
+    my $errors = {};
+    check_object($path, $schema, $value, $additional_properties, $errors);
+    if (scalar(%$errors)) {
+	foreach my $k (keys %$errors) {
+	    warn "parse error: $k: $errors->{$k}\n";
+	}
+	return 0;
+    }
+    return 1;
+}
+
 sub check_prop {
     my ($value, $schema, $path, $errors) = @_;