Re: problems using PUT

[Kevin Philp]

Should your response line be

my $response = $ua->request(PUT $url, @headers, Content => @form_data);


-----Original Message-----
From: Paul Miles <paul.mi...@playfish.com>
To: libwww@perl.org
Subject: problems using PUT
Date: Mon, 8 Nov 2010 14:29:28 +0000


#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;
use warnings;

our $COOKIE_JAR_DIR="/root/cookie_jar";
our $COOKIE_FILE="$COOKIE_JAR_DIR/cookies.txt";

my $url = "https://my.rightscale.com/api/acct/xxxx/servers/yyyyy";;

my @headers = ('X-API-VERSION' => "1.0");
my @form_data;
push @form_data, 'server[parameters][DNSMADEEASY_DNSIDS]' =>
'text:1234';

my $ua = LWP::UserAgent->new;
my $response = $ua->request(PUT $url, @headers, Content => \...@form_data);

if (!$response->is_success) {
  print $response->decoded_content;  # or whatever
  die $response->status_line;
}

print $response->decoded_content;