Changeset 3521 for lang/perl/WWW-NicoVideo

Timestamp:

12/24/07 14:16:43 (11 months ago)

Author:

yasu

Message:

lang/perl/WWW-NicoVideo?:

getNewEntries, getRecentEntries を追加。(NicoVideo?.pm)
ニコニコ動画の仕様変更 (サムネイル画像のXpath) に追従。(Scraper.pm)
timelocalの使い方を間違えていて1月ずれていたのを修正。(Scraper.pm)

Location:

lang/perl/WWW-NicoVideo/trunk/lib/WWW

Files:

• NicoVideo.pm (modified) (3 diffs)
• NicoVideo/Entry.pm (modified) (1 diff)
• NicoVideo/Scraper.pm (modified) (2 diffs)

lang/perl/WWW-NicoVideo/trunk/lib/WWW/NicoVideo.pm

@@ -11 +11 @@
 use LWP::UserAgent;
 use HTTP::Cookies;
-use URI;
 use URI::QueryParam;
 use WWW::NicoVideo::Entry;
@@ -103 +102 @@
 *getEntriesByKeyword = \&getEntriesByKeywords;
 
+sub getNewEntries
+{
+  my $self = shift;
+  $self->getEntries("newarrival", @_);
+}
+
+*getNewEntry = \&getNewEntries;
+
+sub getRecentEntries
+{
+  my $self = shift;
+  $self->getEntries("recent", @_);
+}
+
+*getRecentEntry = \&getRecentEntries;
+
 sub getEntries
 {
@@ -120 +135 @@
   }
 
-  my $url = new URI(nicoURL($type, @keys));
+  my $url = nicoURL($type, @keys);
   $url->query_param_append(sort => $sort) if(defined $sort);
   $url->query_param_append(order => $order) if(defined $order);

lang/perl/WWW-NicoVideo/trunk/lib/WWW/NicoVideo/Entry.pm

@@ -49 +49 @@
      return;
   };
+  $ent->{url} ||= $uri;
 
   @$self{keys %$ent} = values %$ent;

lang/perl/WWW-NicoVideo/trunk/lib/WWW/NicoVideo/Scraper.pm

@@ -29 +29 @@
     process('//div[@class="thumb_frm"]',
             'entries[]' => scraper {
-              process('/div/div/div/p/a/img',
+              process('/div/div/div[3]/a/img',
                       imgUrl => '@src',
                       imgWidth => '@width',
@@ -79 +79 @@
               $postDateTimeStr =~
                 /(\d+)年(\d+)月(\d+)日\s+(\d+)\D+(\d+)\D+(\d+)/;
-              timelocal($6, $5, $4, $3, $2, $1); }
+              timelocal($6, $5, $4, $3, $2 - 1, $1 - 1900); }
            );
     process('//div[@id="PAGEBODY"]/div/div/p[3]',