X-Git-Url: https://git.proxmox.com/?p=pve-client.git;a=blobdiff_plain;f=PVE%2FAPIClient%2FHelpers.pm;h=b83829b39f8216a901d31693e4f04bbca0089a16;hp=d6d1a176d6d482754fe8313623524d08e7b2b6fa;hb=b133a905129381b7c066c216e93adca67654312f;hpb=661012f85d270843746d8b038dcb16957d40953b

diff --git a/PVE/APIClient/Helpers.pm b/PVE/APIClient/Helpers.pm
index d6d1a17..b83829b 100644
--- a/PVE/APIClient/Helpers.pm
+++ b/PVE/APIClient/Helpers.pm
@@ -15,6 +15,13 @@ my $pve_api_path_hash;
 
 my $pve_api_definition_fn = "/usr/share/pve-client/pve-api-definition.dat";
 
+my $method_map = {
+    create => 'POST',
+    set => 'PUT',
+    get => 'GET',
+    delete => 'DELETE',
+};
+
 my $build_pve_api_path_hash;
 $build_pve_api_path_hash = sub {
     my ($tree) = @_;
@@ -131,16 +138,49 @@ sub complete_api_path {
 	$info = $pve_api_path_hash->{"/$dir"};
     }
 
+    my $res = [];
     if ($info) {
 	if (my $children = $info->{children}) {
 	    foreach my $c (@$children) {
 		if ($c->{path} =~ m!\Q$dir/$rest!) {
-		    print "$c->{path}\n";
-		    print "$c->{path}/\n"if $c->{children};
+		    push @$res, $c->{path};
+		    push @$res, "$c->{path}/" if $c->{children};
 		}
 	    }
 	}
     }
+    return $res;
+}
+
+# test for command lines with api calls (or similar bash completion calls):
+# example1: pveclient api get remote1 /cluster
+sub extract_path_info {
+
+    my $info;
+
+    my $test_path_properties = sub {
+	my ($args) = @_;
+
+	return if scalar(@$args) < 5;
+	return if $args->[1] ne 'api';
+
+	my $path = $args->[4];
+	if (my $method = $method_map->{$args->[2]}) {
+	    $info = lookup_api_method($path, $method, 1);
+	}
+    };
+
+    if (defined(my $cmd = $ARGV[0])) {
+	if ($cmd eq 'api') {
+	    $test_path_properties->([$0, @ARGV]);
+	} elsif ($cmd eq 'bashcomplete') {
+	    my $cmdline = substr($ENV{COMP_LINE}, 0, $ENV{COMP_POINT});
+	    my $args = PVE::Tools::split_args($cmdline);
+	    $test_path_properties->($args);
+	}
+    }
+
+    return $info;
 }
 
 1;