classics.

2012/02/18 Satflickr

Serene Bach 3 系で新着コメントを Notify My Android に通知

sendmail の設定もしてないし、それなら Notify My Android に送った方がいいなということで少し Serene Bach をいじった。Perl 全然わかってないけど。HTTP::Request::Common を入れる罰とかも受けた。

lib/sb/App/Receipt.pm で

$self->send_nma($new, $entry);

$self->_sendmail("com",$new,$entry);

の下あたりに追加して、適当なところに

sub send_nma {
    use HTTP::Request::Common;
    my $self = shift;
    my ($obj,$entry) = @_;
    my $url = "https://www.notifymyandroid.com/publicapi/notify";
    my $text = "new comment [". $obj->body ."]  by ". $obj->auth . " for " . $entry->subj . " http://oquno.com/" . $entry->id ;
    my $data = [apikey => "APIKEY",
        application => 'BLOGNAME', # ちゃんとオブジェクトから取れそう
        event => 'comment',
        description => $text];
    my $ua = LWP::UserAgent->new;
    $ua->request(POST $url, $data);
}

を追加した。やっぱ Perl 苦手っぽい。

Trackbacks

Comments

Comment form