File Coverage

blib/lib/OpenInteract2/Action/FlickrFeed.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package OpenInteract2::Action::FlickrFeed;

use strict;
use base qw( OpenInteract2::Action::RSS );

$OpenInteract2::Action::FlickrFeed::VERSION = '0.02';

my $URL_TEMPLATE   = 'http://www.flickr.com/services/feeds/photos_public.gne?id=%s&format=%s';
my $DEFAULT_FORMAT = 'atom_03';

sub _get_feed_url {
    my ( $self ) = @_;
    my $feed_id = $self->param( 'feed_id' );
    unless ( $feed_id ) {
        die "To download a Flickr feed you must specify the parameter ",
            "'feed_id' in the configuration for action ", $self->name, "\n";
    }
    my $format  = $self->param( 'feed_format' ) || $DEFAULT_FORMAT;
    return sprintf( $URL_TEMPLATE, $feed_id, $format );
}

sub _modify_template_params {
    my ( $self, $params ) = @_;
    my $num_photos = $self->param( 'num_photos' ) || 0;
    my $feed = $params->{feed};
    my @entries = ();
    foreach my $entry ( $feed->entries ) {
        my $content = $entry->content->body; # already escaped
        my $photo_data = $self->_parse_flickr_content( $content );
        push @entries, $photo_data;
        last if ( $num_photos and scalar( @entries ) == $num_photos );
    }
    $params->{photos} = \@entries;
}

# We use simple regexes to extract the data from the content Flickr
# emits; therefore this is very dependent on the format, which is:

# USER NAME posted a photo:
#
#

# Or with some data filled in:
#
# Chris Winters posted a photo:
#
#

sub _parse_flickr_content {
    my ( $self, $content ) = @_;
    $content =~ s|^.*?||;
    my ( $link )    = $content =~ m|
    my ( $title )   = $content =~ m|title="([^"]+)"|;
    my ( $img_src ) = $content =~ m|src="([^"]+)"|;
    my ( $width, $height ) = $content =~ m|width="(\d+)"\s+height="(\d+)"|;
    return {
        link  => $link,  title  => $title, img_src => $img_src,
        width => $width, height => $height
    };
}

1;

__END__