Changeset 3147 for lang/perl/plagger

Timestamp:

12/14/07 23:09:50 (12 months ago)

Author:

hsbt

Message:

lang/perl/plagger/lib/Plagger/Plugin/Filter/FetchNicoVideo.pm: added interval time(optional).

Files:

• lang/perl/plagger/lib/Plagger/Plugin/Filter/FetchNicoVideo.pm (modified) (4 diffs)

lang/perl/plagger/lib/Plagger/Plugin/Filter/FetchNicoVideo.pm

@@ -8 +8 @@
 use File::Spec;
 use HTTP::Request;
+use Time::HiRes qw(sleep);
 use Plagger::Enclosure;
 use Plagger::UserAgent;
@@ -75 +76 @@
     my $path = File::Spec->catfile( $self->conf->{dir}, $filename . ".flv" );
 
-    #access video page
-    $ua->get("http://www.nicovideo.jp/watch/$video_id");
+    unless ( -e $path ) {
+        #access video page
+        $ua->get("http://www.nicovideo.jp/watch/$video_id");
 
-    #download flv file
-     unless ( -e $path ) {
-     my $req = HTTP::Request->new(GET => $enclosure->url);
-         $context->log(info => "Fetching $video_id FLV File from " . $enclosure->url . "..." );
-         my $res = $ua->request($req, $path);
-         $context->log(warn => "Fetch FLV Error: $video_id" ) if $res->is_error;
+        #download flv file
+        my $req = HTTP::Request->new(GET => $enclosure->url);
+        $context->log(info => "Fetching $video_id FLV File from " . $enclosure->url . "..." );
+        my $res = $ua->request($req, $path);
+        $context->log(warn => "Fetch FLV Error: $video_id" ) if $res->is_error; 
+    }else{
+        $context->log(info => "Exist FLV File: $video_id"); 
+        my $sleeping_time = $self->conf->{interval} || 15;
+        $context->log(info => "sleep $sleeping_time.");
+        sleep( $sleeping_time );
     }
 
@@ -108 +114 @@
     }
     $entry->add_enclosure($enclosure);
-
-    sleep(1);
 }
 
@@ -129 +133 @@
       download_xml: 1 #optional default is 0
       filename_encode: euc-jp #optional default is utf-8
+      interval: 60 #optional default is 15
 
 =head1 DESCRIPTION