読者です 読者をやめる 読者になる 読者になる

stMind

You'll never blog alone

Google+をGrowlする

最近、アクセス頻度も落ちてきてるけど確認はしたいよねってことでGoogle+のストリームをGrowlするスクリプトを書きました。
Google+のAPIは使ってません。WWW::MechanizeとWeb::ScraperGoogle+のページをスクレイピングして、
AnyEventのタイマーで30分に一回Growlで通知してます。(公式APIも使ってないし控えめ)

google_plus.pl at master from satojkovic/GooglePlus - GitHub

#!perl

use strict;
use warnings;

use Config::Pit;
use WWW::Mechanize;
use Web::Scraper;
use Encode;
use Growl::Any;
use AnyEvent;

## APIKey and UserID
my $config = pit_get("plus.google.com", require=>{
    "APIKey" => "your API key",
    "UserID" => "your user ID",
    "Mail" => "your mailaddress",
    "Password" => "your password"
                     });

my $api_key = $config->{APIKey};
my $user_id = $config->{UserID};
my $mail = $config->{Mail};
my $password = $config->{Password};

## timer watcher
my $cv = AnyEvent->condvar;
my $timer = AnyEvent->timer(
    after => 0,
    interval => 1800,
    cb => sub {
        ## login
        my $agent = WWW::Mechanize->new( agent => "Mozilla/5.0 (X15; Linux x86_64) AppleWebKit/534.24 (KHTML, like Gecko) Chrome/11.0.696.16 Safari/534.24" );
        $agent->get('https://plus.google.com');
        $agent->follow_link( 
            url_abs_regex => qr{^https://accounts\.google\.com/ServiceLogin},
            );
        $agent->submit_form(
            with_fields => {
                Email => $mail,
                Passwd => $password,
            },
            );

        ## scraping
        my $scraper = scraper {
            process '//div[@class="Sq"]/div', 'list[]' => scraper { 
                process '//div[@class="jr"]/a/img', 'icon' => '@src'; 
                process '//div[@class="jr"]/div[@class="Ex"]/span[@class="eE"]/a', 'name' => 'TEXT'; 
                process '//div[@class="Bx"]//div[@class="vg"]', 'post' => 'TEXT'; 
            };
        };
        my $res = $scraper->scrape($agent->content);

        foreach my $list (@{$res->{list}}) {
            print encode_utf8("$list->{name} : $list->{post}\n\n");
        }

        ## notify by growl
        my $growl = Growl::Any->new(appname => "Growl a google+ stream",  events => ["gplus notification"]);

        foreach my $list (@{$res->{list}}) {
            $growl->notify(
                "gplus notification",
                $list->{name},
                $list->{post},
                $list->{icon},
                );
        }
    },    
    );
$cv->recv;