File Coverage

blib/lib/WebService/ChangesXml.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	30	32	93.7

package WebService::ChangesXml;

use strict;
use vars qw($VERSION);
$VERSION = '0.01';

use Carp;
use LWP::UserAgent;
use HTTP::Date;
use HTTP::Request;
use HTTP::Status;
use XML::Simple;

sub new {
    my($class, $url) = @_;
    defined($url) or croak "Usage: new(\$url)";
    my $self = bless { url => $url }, $class;
    $self->_init_ua();
    return $self;
}

sub _init_ua {
    my $self = shift;
    $self->{ua} = LWP::UserAgent->new();
    $self->{ua}->agent("WebService::ChangesXml/$VERSION");
}

sub user_agent { shift->{ua} }
sub url        { shift->{url} }
sub count      { shift->{count} }

sub updated {
    my $self = shift;
    $self->{updated} = shift if @_;
    $self->{updated};
}

sub add_handler {
    my($self, $sub) = @_;
    defined($sub) and ref($sub) eq 'CODE' or croak "Usage: add_handler(\$subref);";
    push @{$self->{handlers}}, $sub;
}

sub find_new_pings {
    my $self = shift;

    my $simple_api;
    if (@_) {
	$simple_api = 1;

	# set updated with $interval
	my $interval = shift;
	$self->{updated} = time - $interval;
    }

    # HTTP/GET changes.xml
    my $request  = HTTP::Request->new(GET => $self->url);
    if (defined($self->{updated})) {
	$request->header('If-Modified-Since' => HTTP::Date::time2str($self->{updated}));
    }
    my $response = $self->user_agent->request($request);
    die "Got error in fetching changes.xml: ", $response->code unless $response->is_success;

    # do nothing if changes.xml is not modified
    if ($response->code == RC_NOT_MODIFIED) {
	return $simple_api ? [] : 1;
    }

    my $xml = $response->content();
    my $p   = XML::Simple->new();
    my $updates = $p->XMLin($xml, KeyAttr => 'weblog', ForceArray => 1);

    # set updated and count
    my $old = $self->{updated} || 0;
    $self->{updated} = HTTP::Date::str2time($updates->{updated})
	or croak "weird updated format: $updates->{updated}";
    $self->{count}   = $updates->{count};

    my @pings;
    for my $weblog (@{$updates->{weblog}}) {
	# calculate "when" to Unix time
	my $when = $self->{updated} - $weblog->{when};

	# no more new blogs
	last if $old >= $self->{updated} - $weblog->{when};

	if ($simple_api) {
	    push @pings, { name => $weblog->{name},
			   url  => $weblog->{url},
			   when => $when };
	} else {
	    for my $handler (@{$self->{handlers}}) {
		$handler->($weblog->{name}, $weblog->{url}, $when);
	    }
	}
    }

    return $simple_api ? \@pings : 1;
}

1;
__END__