Changeset 1887
- Timestamp:
- 11/29/06 12:16:31
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Plugin/Subscription/HatenaGroup.pm
r361 r1887 4 4 5 5 use URI; 6 use XML::Feed; 6 use Plagger::FeedParser; 7 use Plagger::UserAgent; 7 8 8 9 sub register { … … 23 24 my $feed_uri = "http://$group.g.hatena.ne.jp/diarylist?mode=rss"; 24 25 25 my $remote = XML::Feed->parse(URI->new($feed_uri)) or $context->error("feed parse error $feed_uri"); 26 my $agent = Plagger::UserAgent->new; 27 my $remote = eval { $agent->fetch_parse(URI->new($feed_uri)) } 28 or $context->error("feed parse error $feed_uri: $@"); 26 29 for my $r ($remote->entries) { 27 30 $context->log(info => "diary: ". $r->link);
