Changeset 542
- Timestamp:
- 04/05/06 17:14:21
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Plugin/CustomFeed/Frepa.pm
r461 r542 54 54 my ($self, $context, $plugin, $args) = @_; 55 55 56 57 56 my $feed = Plagger::Feed->new; 58 57 $feed->type('frepa'); … … 62 61 my $format = DateTime::Format::Strptime->new(pattern => '%Y/%m/%d %H:%M'); 63 62 64 my @msgs = $plugin->get_list($self->{mech} );63 my @msgs = $plugin->get_list($self->{mech}, $self); 65 64 my $items = $self->conf->{fetch_items} || 20; 66 65 … … 171 170 sub top_re { 172 171 return <<'RE'; 173 <a href="http:// frepa\.livedoor\.com/.*?/"(?: rel="popup")?><img src="(http://img\d+\.(?:ico\.frepa\.livedoor\.com/member_photo/|bbs\.frepa\.livedoor\.com/community_board/).*?\.(?:jpe?g|JPE?G|gif|GIF|png|PNG))" border="0"></a>172 <a href="http://(?:frepa\.livedoor\.com/.*?/|www\.frepa\.livedoor\.com/)"(?: rel="popup")?><img src="(http://img\d+\.(?:ico\.frepa\.livedoor\.com/member_photo/|bbs\.frepa\.livedoor\.com/community_board/).*?\.(?:jpe?g|JPE?G|gif|GIF|png|PNG))" border="0"></a> 174 173 </small> 175 174 .*? trunk/plagger/lib/Plagger/Plugin/CustomFeed/Frepa/RecentComment.pm
r458 r542 11 11 12 12 sub get_list { 13 my ($self, $mech) = @_;13 my($self, $mech, $plugin) = @_; 14 14 15 15 my @msgs = (); … … 23 23 my ($link, $subject, $user_link, $name) = 24 24 (decode_entities($6), decode_entities($7), decode_entities($8), decode_entities($9)); 25 my $uri = URI->new($self->start_url); 26 $uri->path($link); 25 my $uri = URI->new_abs($link, $self->start_url); 27 26 $link = $uri->as_string; 27 28 # your post doesn't link to your profile, ick 29 if ($user_link =~ m!www\.frepa\.livedoor\.com/$!) { 30 $user_link = "http://frepa.livedoor.com/" . $plugin->conf->{livedoor_id} . "/"; 31 } 28 32 29 33 push(@msgs, +{
