Signed-off-by: Fabian Grünbichler <f.gruenbich...@proxmox.com>
---
data/PVE/RemoteConfig.pm | 20 ++++++++++++++++++--
1 file changed, 18 insertions(+), 2 deletions(-)
diff --git a/data/PVE/RemoteConfig.pm b/data/PVE/RemoteConfig.pm
index 7c395ba..563e5c1 100644
--- a/data/PVE/RemoteConfig.pm
+++ b/data/PVE/RemoteConfig.pm
@@ -5,7 +5,7 @@ use warnings;
use PVE::APIClient::LWP;
use PVE::Cluster qw(cfs_register_file cfs_read_file cfs_write_file
cfs_lock_file);
-use PVE::JSONSchema qw(get_standard_option);
+use PVE::JSONSchema qw(get_standard_option register_standard_option);
use PVE::Tools;
use PVE::SectionConfig;
@@ -33,6 +33,11 @@ my $defaultData = {
},
};
+register_standard_option('pve-remote-cluster', {
+ description => "A remote cluster identifier.",
+ type => 'string', format => 'pve-node',
+});
+
sub private {
return $defaultData;
}
@@ -180,7 +185,6 @@ sub get_remote_info {
my $api_token = $cluster_info->{token} // $api_node->{token};
my $conn_args = {
- username => 'root@pam',
protocol => 'https',
host => $api_node->{endpoint},
apitoken => $api_token,
@@ -213,6 +217,18 @@ sub get_remote_info {
return ($res, $conn_args);
}
+sub complete_remote_cluster {
+ my $conf = PVE::RemoteConfig->new();
+ my $sections = $conf->{ids};
+ return [ grep { $sections->{$_}->{type} eq 'pvecluster' } keys %$sections
];
+}
+
+sub complete_remote_node {
+ my $conf = PVE::RemoteConfig->new();
+ my $sections = $conf->{ids};
+ return [ grep { $sections->{$_}->{type} eq 'pvenode' } keys %$sections ];
+}
+
package PVE::RemoteConfig::Cluster;
use PVE::RemoteConfig;
--
2.20.1
_______________________________________________
pve-devel mailing list
pve-devel@lists.proxmox.com
https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel
