proxmox-mirrors/pve-manager
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-manager synced 2025-07-27 15:21:28 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

add correct parameters to PUT requests

Browse Source
This commit is contained in:
Dietmar Maurer 2013-09-04 14:31:23 +02:00
parent c0659a7379
commit dde4dfb972
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
PVE/API2Client.pm
View File

@ -98,7 +98,15 @@ sub call {
} elsif ($method eq 'POST') { } elsif ($method eq 'POST') {
$response = $ua->request(HTTP::Request::Common::POST($uri, Content => $param)); $response = $ua->request(HTTP::Request::Common::POST($uri, Content => $param));
} elsif ($method eq 'PUT') { } 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') { } elsif ($method eq 'DELETE') {
$response = $ua->request(HTTP::Request::Common::DELETE($uri)); $response = $ua->request(HTTP::Request::Common::DELETE($uri));
} else { } else {
@ -107,7 +115,7 @@ sub call {
#print "RESP: " . Dumper($response) . "\n"; #print "RESP: " . Dumper($response) . "\n";
my $ct = $response->header('Content-Type'); my $ct = $response->header('Content-Type') || '';
if ($response->is_success) { if ($response->is_success) {