perl - 500 error con la API de Adwords en la zona de pruebas v2011109

soap wsdl

Question

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)

Answer 1

Supongo que quiere https://adwords-sandbox.google.com/api/adwords/cm/v201109/CampaignService?wsdl