Vine Linux 6.0 @Wiki

「woopie2.pl」の編集履歴（バックアップ）一覧はこちら

「woopie2.pl」の最新版変更点

追加された行はこの色になります。

削除された行はこの色になります。

 //perl
 # http://www.woopie.jp/feed/ranking/video
 sub init {
     my $self = shift;
-    $self->{handle} = '/video/watch/\w+';
+    $self->{handle} = 'video/watch/\w+';
 }
+
 
 sub find {
     my ($self, $args) = @_;
     my $uri = URI->new($args->{url});
     my($video_id) = $uri =~ m!/video/watch/(\w+)!
         or return;
-
 
     my $enclosure = Plagger::Enclosure->new;
-    $enclosure->url("http://www.woopie.jp/swf/ChannelPlayer-embed480.swf?video_id=$video_id");
+    $enclosure->url("http://www.woopie.jp/swf/ChannelPlayer-embed480.swf?channel_id=$video_id");
     $enclosure->type('application/x-shockwave-flash');
     return $enclosure;
 }
- 
+
 sub upgrade {
     my($self, $args) = @_;
- 
+
     my $enclosure = $args->{enclosure};
     return unless $enclosure->type eq 'application/x-shockwave-flash';
- 
+
     my $uri = URI->new($enclosure->url);
     unless ($uri->query_param('autostart')) {
         $enclosure->url($enclosure->url . "&autostart=1");
     }
- 
+
     $enclosure->width(480);
     $enclosure->height(400);
 }