Skip to content

P
pve-manager
Commit 4777561a authored by Dietmar Maurer's avatar Dietmar Maurer
Browse files
Options

add correct parameters to PUT requests

parent 2c9be9d1
Hide whitespace changes
Inline Side-by-side
Showing with 10 additions and 2 deletions
PVE/API2Client.pm
View file @ 4777561a
......@@ -98,7 +98,15 @@ sub call {
} elsif ($method eq 'POST') {
$response = $ua->request(HTTP::Request::Common::POST($uri, Content => $param));
} elsif ($method eq 'PUT') {
$response = $ua->request(HTTP::Request::Common::PUT($uri, Content => $param));
# We use another temporary URI object to format
# the application/x-www-form-urlencoded content.
my $tmpurl = URI->new('http:');
$tmpurl->query_form(%$param);
my $content = $tmpurl->query;
$response = $ua->request(HTTP::Request::Common::PUT($uri, 'Content-Type' => 'application/x-www-form-urlencoded', Content => $content));
} elsif ($method eq 'DELETE') {
$response = $ua->request(HTTP::Request::Common::DELETE($uri));
} else {
......@@ -107,7 +115,7 @@ sub call {
#print "RESP: " . Dumper($response) . "\n";
my $ct = $response->header('Content-Type');
my $ct = $response->header('Content-Type') || '';
if ($response->is_success) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Technounit-GROUP 2023