NAME

WebService::ChangesXml - Do something with updated blogs on Weblogs.Com

SYNOPSIS

            

              
              
use WebService::ChangesXml;
# Simple API
my $changes = WebService::ChangesXml->new("http://www.weblogs.com/changes.xml");
my $pings   = $changes->find_new_pings(600); # find new blogs updated in 600 seconds
for my $ping (@$pings) {
    do_something($ping->{url});
}
# Event based API
# do something with new blogs with 300 seconds interval
my $changes = WebService::ChangesXml->new("http://www.weblogs.com/changes.xml");
$changes->add_handler(\&found_new_ping);
while (1) {
    $changes->find_new_pings();
    sleep 300;
}
sub found_new_ping {
    my($blog_name, $blog_url, $when) = @_;
    do_something($blog_url);
}
            
          

DESCRIPTION

WebService::ChangesXml is a event-driven module to build your application that does something with newly updated blogs displayed on Weblogs.Com (or other services that provides compatible changes.xml).

METHODS

new

            

              
              
$changes = WebService::ChangesXml->new($changes_xml);
            
          

Creates new object. Takes URL for changes.xml.

url

            

              
              
$url = $changes->url();
            
          

Returns URL for changes.xml, that should be set on new.

add_handler

Registers new subroutine that is invoked when this module finds newly updated blogs. Registerd subroutine will be given 3 paarameters: Blog name, Blog URL and when its updated (epoch time).

find_new_pings

            

              
              
$changes->find_new_pings($seconds);
$changes->find_new_pings();
            
          

Fetches changes.xml and returns newly updated blogs as hashref in simple API, or invokes registered handlers when it found new blogs in event based API.

updated

            

              
              
my $updated = $changes->updated();
$changes->updated($updated);
            
          

Gets/sets last updated time of changes.xml. If you call find_new_pings method once in a script, and saves updated timestamp in file or database. Use this method to restore last updated time. For example:

            

              
              
# restore updated time from $timestamp_file's mtime
my $last_invoked = (stat($timestamp_file))[8];
$changes->updated($updated);
# now find new Blogs
$changes->find_new_pings();
# equivalent to Unix "touch"
my $updated = $changes->updated;
utime $updated, $updated, $timestamp_file;
            
          

Last updated time is set internally when you call find_new_pings methods.

count

            

              
              
my $count = $changes->count();
            
          

Returns how many times changes.xml is updated.

user_agent

            

              
              
my $ua = $changes->user_agent();
            
          

Returns LWP::UserAgent object used internally. If you wanna override User-Agent: header, timeout setting or other LWP setting, use this method.

AUTHOR

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

Thanks to Naoya Ito for teaching me KeyAttr usage of XML::Simple ;-)

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

WebService::weblogUpdates

http://newhome.weblogs.com/changesXml

http://www.weblogs.com/changes.xml