[PATCH pve-storage v3 04/17] api: plugins/storage/plugin: mark sensitive properties in schema

["Max R. Carrara" <m.carrara@proxmox.com>]

Return a new 'x-sensitive' key as part of a plugin property's schema.
Take the information for this key directly from the
'sensitive-properties' hash in `plugindata()`.

Ensure that the return type is always the same, as Perl would
otherwise return an empty string if `defined(...)` is false.

Signed-off-by: Max R. Carrara <m.carrara@proxmox.com>
---
 src/PVE/API2/Plugins/Storage/Plugin.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/PVE/API2/Plugins/Storage/Plugin.pm b/src/PVE/API2/Plugins/Storage/Plugin.pm
index 07061207..44e18b77 100644
--- a/src/PVE/API2/Plugins/Storage/Plugin.pm
+++ b/src/PVE/API2/Plugins/Storage/Plugin.pm
@@ -42,6 +42,7 @@ my sub get_schema_for_plugin : prototype($) ($plugin) {
     return $PLUGIN_SCHEMAS->{$type} if defined($PLUGIN_SCHEMAS->{$type});
 
     my $options = $plugin->options();
+    my $plugindata = $plugin->plugindata();
 
     my $schema = {};
     $PLUGIN_SCHEMAS->{$type} = $schema;
@@ -52,6 +53,10 @@ my sub get_schema_for_plugin : prototype($) ($plugin) {
 
         # shallow copy
         my $property = { $prop_schema->%* };
+        if (defined(my $props = $plugindata->{'sensitive-properties'})) {
+            $property->{'x-sensitive'} = defined($props->{$option}) ? 1 : 0;
+        }
+
         $schema->{$option} = $property;
 
         for my $opt_key (keys $options->{$option}->%*) {
-- 
2.47.3