Update of /project/cl-soap/cvsroot/cl-soap/test In directory common-lisp.net:/tmp/cvs-serv3520/test
Modified Files: test-google-adwords.lisp Log Message: added get-all-adgroups
Date: Tue Sep 27 07:39:34 2005 Author: scaekenberghe
Index: cl-soap/test/test-google-adwords.lisp diff -u cl-soap/test/test-google-adwords.lisp:1.9 cl-soap/test/test-google-adwords.lisp:1.10 --- cl-soap/test/test-google-adwords.lisp:1.9 Mon Sep 26 13:14:56 2005 +++ cl-soap/test/test-google-adwords.lisp Tue Sep 27 07:39:34 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-google-adwords.lisp,v 1.9 2005/09/26 11:14:56 scaekenberghe Exp $ +;;;; $Id: test-google-adwords.lisp,v 1.10 2005/09/27 05:39:34 scaekenberghe Exp $ ;;;; ;;;; Some test on the Google AdWords API (not publically available) ;;;; @@ -223,6 +223,16 @@ :headers `("email" ,*google-adwords-email* "password" ,*google-adwords-password* "useragent" ,*google-adwords-user-agent* + "token" ,*google-adwords-token* + "clientEmail" ,*google-client-email*))) + +(defun get-all-adgroups (campaign-id) + (wsdl-soap-call (wsdl-cache-get "https://adwords.google.com:443/api/adwords/v2/AdGroupService?wsdl") + "getAllAdGroups" + :input `("campaignID" ,campaign-id) + :headers `("email" ,*google-adwords-email* + "password" ,*google-adwords-password* + "useragent" ,*google-adwords-user-agent* "token" ,*google-adwords-token* "clientEmail" ,*google-client-email*)))