Plaggerで夕暮れ時刻

Tweet

lib/Plagger/Plugin/CustomFeed/Sunset.pm

package Plagger::Plugin::CustomFeed::Sunset;
use strict;
use base qw( Plagger::Plugin );
use Astro::Sunrise;
 
sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'subscription.load' => $self->can('load'),
    );
}
 
sub load {
    my($self, $context) = @_;
    my $feed = Plagger::Feed->new;
    $feed->aggregator(sub { $self->aggregate(@_) });
    $context->subscription->add($feed);
}
 
sub aggregate {
    my($self, $context, $args) = @_;
 
    my $longitude = $self->conf->{longitude}; # keido
    my $latitude  = $self->conf->{latitude} ; # ido
 
    my $sunset   = sun_set( $longitude, $latitude);
    my $today    = substr(Plagger::Date->now(),0,10);
    my $feed = Plagger::Feed->new;
    $feed->title('Sunset time '.$today);
 
    my $entry = Plagger::Entry->new;
    $entry->title('Sunset time '.$today);
    $entry->date('Sunset time '.$today);
 
    $entry->body('<pre>'.$sunset.'</pre>');
 
    $feed->add_entry($entry);
    $context->update->add($feed);
}
 
1;

config.yaml のサンプル

plugins:
  - module: CustomFeed::Sunset
    config:
      longitude: 135.750
      latitude:   35.017

参考

Astro::Sunrise - Perl extension for computing the sunrise/sunset on a given day - search.cpan.org [search.cpan.org]
subtechグループ - Buy OEM Software - Plagger::Plugin::CustomFeed::Pipe [subtech.g.hatena.ne.jp]

まだメールしかとばせないのでこの feed をどうすればイベントトリガに出来るか不明ｗ

とりあえず、google で印刷と検索したら自動的に PDF がうちの会社に入稿されて印刷物になって届くところまでやるつもりです（やりません）。

2006.08.26 00:01 投稿　大野 義貴 [Script] | 固定リンク |