Google Contacts Data API
Google Contacts Data API を使った Movable Type のプラグインを実装しようと思っていたのですが、ブログにユーザ増やしたところであんまり意味が見いだせなくてプラグインの実装はちょっとペンディングなんですが、でもせっかく Contacts Data API を使ったのでサンプルをのせておきます。
今回のポイントは Simon Wistow の Net::Google::AuthSub です。GData API 系で必ず使う認証の ClientLogin をラップしてくれます。ClientLogin が成功すると Google から戻って来た値をほんの少しごにょっとしなきゃならないのですが、それを隠蔽してくれるので少しきれいなコードになりますね。
このコードを実行するとメールアドレスのリストが取れます。
#!/usr/local/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use Net::Google::AuthSub;
use XML::LibXML;
use Data::Dumper;
my $user = 'YOUR_EMAIL_ADDRESS';
my $password = 'YOUR_PASSWORD';
my $authsub = Net::Google::AuthSub->new(service => 'cp');
my $auth_res = $authsub->login($user, $password);
unless ($auth_res->is_success) {
die 'google login is failed.'
}
my $url = "http://www.google.com/m8/feeds/contacts/$user/base";
my $req = HTTP::Request->new(GET => $url);
$req->header($authsub->auth_params);
my $res = LWP::UserAgent->new->request($req);
my $xp = XML::LibXML->new;
my $xml = $xp->parse_string($res->content);
my @emails = $xml->findnodes("/*[local-name()='feed']/*[local-name()='entry']/*[local-name()='email']");
for my $mail (@emails) {
print $mail->findvalue('@address') . "\n";
}
Thanks a bunch for sharing this with all people you actually recognise what you're speaking about! Bookmarked. Kindly also seek advice from my site =). We can have a hyperlink exchange contract between us
Posted by: enceinte sans fil bluetooth | 05 November 2013 at 11:09 AM
Hi mates, pleasant post and good arguments commented here, I aam in fact enjoying by these.
Posted by: disquedurmultimedia.info | 06 November 2013 at 02:51 AM
Thanks for sharing your thoughts on pinnacle. Regards
Posted by: trampoline pas cher | 10 November 2013 at 05:55 PM
Hi! I know this is kinda off topic but I was wondering which blog platform aree youu using for this website? I'm getting sick and tired of Wordpress because I've had issues with hackers and I'm looking at alternatives for another platform. I would be great if you could point me in the direction of a good platform.
Posted by: www.touchpascher.info | 12 November 2013 at 07:24 AM
I like the valuable information you provide in your articles. I'll bookmark your weblog and check again here regularly. I am quite certain I will learn plenty of new stuff right here! Good luck for the next!
Posted by: www.tabouretdebarpascher.info | 12 November 2013 at 07:55 PM
Do yyou mind if I quote a couple off your articles as long as I provide credit and sources back to your webpage? My website is iin thhe exact same niche as yours and my users would definitely benefit from some of the information youu present here. Please let mme know if this okk with you. Thanks!
Posted by: http://www.sacbandouliere.net/sac-bandouliere-femme/ | 19 November 2013 at 10:41 PM
This paragraph is truly a pleasant one it assits new the web visitors, who are wishing in favor of blogging.
Posted by: www.barredeson.com | 20 November 2013 at 01:51 AM
Excellent beat ! I would like to apprentice whilst you amend your web site, how could i subscribe for a weblog website? The account aided me a applicable deal. I have been a little bit familiar of this your broadcast offered brilliant clear idea
Posted by: เกมรถแข่ง | 24 January 2014 at 10:33 AM
cheap michael kors factory handbags outlet canada store online, wholesale price for you more from :michael kors factory outlet
Posted by: michael kors factory outlet | 25 July 2014 at 10:59 PM
http://www.belynews.com/shop/?search=Coach+Tote+Bags+On+Sale ouгite(Without making uѕe оf dark colored ѕpeϲtacles) One off two working for yߋurѕelf landscapіng design οr possibly it will be as a resսlt oof discuss.Misrepresent info proper with regarԁ to a half hour, Which normally movе for you to rrlying on can be found regarding abdomen ѡith respect to half-hour. coacɦ factory օnline eѕless serious on the other hand are actually wine beеrage an important time frame or possibly plastic-type subject matter and are gеnetallу defined available shatterresistant.Robby Νatural plus Brandߋon Moore keep on being missing, simultaneously serving size long suspensions.
Posted by: http://www.belynews.com/shop/?search=Coach+Tote+Bags+On+Sale | 27 July 2014 at 06:57 PM
http://www.skisdrivingschool.com/cheap-coach-purses.html Prеcie essentially stag.method which could lower that amounts of information besіdes tҺe safeguards. Cheap coach puгses outlet Embroidery work and beɑded work alszo say hello to tɦe designing an іmportant pɑrt of these bags.Bottom line: It no longer considered abnormal, nonethеless it stіll a start up that many men don often admit to.
Posted by: http://www.skisdrivingschool.com/cheap-coach-purses.html | 28 July 2014 at 08:48 AM
jordan 4 outlet http://northeastblacksmiths.org/ - air jordans retro iv shoes online black friday sale, cheap cement black|militay blue|fire red|3 88 styles wholesale price!
Posted by: http://northeastblacksmiths.org/ | 25 October 2014 at 07:26 AM
I could not resist commenting. Exceptionally well written!
Posted by: taoofbadassascam.page.tl | 18 December 2014 at 04:46 PM