perl - 500 error con la API de Adwords en la zona de pruebas v2011109
soap wsdl (1)
Necesito crear una cuenta de espacio aislado: http://code.google.com/apis/adwords/docs/sandbox.html
Desafortunadamente, obtengo un error de 500 al emitir el GET contra la ubicación de WSDL que suministraron (No existe tal operación: (HTTP GET PATH_INFO: / v201109 / CampaignService))
Ese enlace dice:
Para crear una cuenta de espacio aislado, envíe una solicitud de obtención a la versión de entorno limitado de CampaignService, utilizando la ubicación WSDL y los encabezados de la zona de pruebas como se describe a continuación. Esta llamada inicial a la zona de pruebas crea una cuenta de espacio aislado de MCC, junto con cinco cuentas de cliente, para la dirección de correo electrónico especificada. Su cuenta de espacio aislado y sus cuentas de cliente comienzan vacías ".
Creé mi authToken con:
my $token = Google::Ads::Common::AuthToken::get_token({
email => EMAIL,
password => PASSWORD,
service => "adwords"
});
Sin embargo, emitir una solicitud GET a la ubicación WSDL especificada da como resultado un error 500 con el siguiente contenido:
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Fault>
<faultcode>soap:Server</faultcode>
<faultstring>No such operation: (HTTP GET PATH_INFO: /v201109/CampaignService)</faultstring>
</soap:Fault>
</soap:Body>
</soap:Envelope>
Estoy usando el siguiente código:
use HTTP::Request;
use LWP::UserAgent;
my $wsdl_location =
''https://adwords-sandbox.google.com/api/adwords/cm/v201109/CampaignService'';
my $req = HTTP::Request->new( GET => $wsdl_location );
$req->header(
":authToken" => $auth_token,
":developerToken" => EMAIL . ''++USD'',
":userAgent" => ''weborama'',
);
my $ua = LWP::UserAgent->new;
$ua->add_handler("request_send", sub { shift->dump; return });
$ua->add_handler("response_done", sub { shift->dump; return });
my $res = $ua->request($req);
if ( $res->is_success ) {
print $res->content;
}
else {
print $res->status_line, "/n";
}
Mis encabezados de solicitud:
GET https://adwords-sandbox.google.com/api/adwords/cm/v201109/CampaignService
User-Agent: libwww-perl/6.02
authToken: *********
developerToken: EMAIL++USD
userAgent: weborama
¿Alguien ha hecho esto funcionar con Perl y v201109? ¿Me estoy perdiendo algo obvio? (No recibo respuesta del foro API de Google Adwords)