NAME
VUser::Google::ApiProtocol::V2_0 - Implements version 2.0 of the Google APIs.
SYSNOPSIS
## Create a new connection
my
= VUser::Google::ApiProtocol::V2_0->new(
domain
=>
'your.google-apps-domain.com'
,
admin
=>
'admin_user'
,
password
=>
'admin_user password'
,
);
## Login to the Google Apps API
# Login() uses the credentials provided in new()
->Login();
## Create a new request
# Create the URL to send to API request to.
# See the API docs for the valid URLs
$url
.=
"your.google-apps-domain.com/username/label"
;
# Create XML message to send to Google
# See the API docs for the valid XML to send
my
$xml
=
'<?xml version="1.0" encoding="utf-8"?>...'
;
# NB: The method (POST here) may be different depending on API call
my
$success
=
->Request(
'POST'
,
$url
,
$xml
);
# Get the parsed response
if
(
$success
) {
# $result is the XML reply parsed by XML::Simple
my
$result
=
->get_result;
}
else
{
# $result is the error message from google
# parsed by XML::Simple with the addition of a
# 'reason' key which contains the error.
my
$result
=
->get_result;
die
"Error: $result->{reason}"
;
}
DESCRIPTION
Implements version 2.0 of the Google API. See VUser::Google::ApiProtocol for a list of members and methods.
SEE ALSO
VUser::Google::ApiProtocol, XML::Simple
AUTHOR
Randy Smith <perlstalker@vuser.org>
Adapted from code from Johan Reinalda <johan@reinalda.net>
LICENSE
Copyright (C) 2006 by Johan Reinalda, johan at reinalda dot net Copyright (C) 2009 by Randy Smith, perlstalker at vuser dot org
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.
If you make useful modification, kindly consider emailing then to me for inclusion in a future version of this module.