まずはhannahbrian氏のレポジトリから開発版をもらってくる。その後、ディレクトリの確認。
$ git clone http://github.com/hannahbrian/webservice-google-reader.git $ pwd /home/******************/github
開発版のディレクトリをモジュール検索パスの最初に追加して、開発版を使うようにする。エラー出ずに終了していることがわかる。
$ cat googlereader_test.pl
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use lib qw(/home/de/mnt/debian/RAID/github/webservice-google-reader/lib);
use WebService::Google::Reader;
my $reader = WebService::Google::Reader->new(
username => '*******',
password => '*******',
);
$reader->unsubscribe('http://search.cpan.org/uploads.rdf');
$reader->error;
exit;
ngrepのログ。tokenを取得して、unsubscribeしていることがわかる。
# ngrep -d ppp0 -W byline WebService interface: ppp0 (***************/255.255.255.255) match: WebService T ***************:54260 -> 66.249.89.99:80 [AP] GET /reader/api/0/token?ck=1277972121000&client=WebService%3A%3AGoogle%3A%3AReader%2F0.1+(gzip) HTTP/1.1. TE: deflate,gzip;q=0.3. Connection: TE, close. Accept-Encoding: gzip,deflate. Authorization: GoogleLogin auth=***********************************************************************************************************************************************************************************************************. Host: www.google.com. User-Agent: WebService::Google::Reader/0.1 (gzip). . ############## T ***************:37509 -> 66.249.89.104:80 [AP] POST /reader/api/0/subscription/edit?ck=1277972121000&client=WebService%3A%3AGoogle%3A%3AReader%2F0.1+(gzip) HTTP/1.1. TE: deflate,gzip;q=0.3. Connection: TE, close. Accept-Encoding: gzip,deflate. Authorization: GoogleLogin auth=***********************************************************************************************************************************************************************************************************. Host: www.google.com. User-Agent: WebService::Google::Reader/0.1 (gzip). Content-Length: 91. Content-Type: application/x-www-form-urlencoded. . ac=unsubscribe&s=feed%2Fhttp%3A%2F%2Fsearch.cpan.org%2Fuploads.rdf&T=**********************