fix quoting in AsyncWgetFileGetter again

[videosite.git] / videosite / VimeoGrabber.pm

diff --git a/videosite/VimeoGrabber.pm b/videosite/VimeoGrabber.pm
index 89d3158..19dfe94 100644 (file)
--- a/videosite/VimeoGrabber.pm
+++ b/videosite/VimeoGrabber.pm
@@ -8,23 +8,23 @@ package videosite::VimeoGrabber;
 use videosite::GrabberBase;
 @ISA = qw(videosite::GrabberBase);
 
-use XML::Simple;
-use Digest::MD5 qw(md5_hex);
+use HTML::TokeParser;
+use videosite::JSArrayParser;
 use Data::Dumper;
 
 use strict;
 
 sub new {
     my $class = shift;
-    my $self = $class->SUPER::new();
-
-    $self->{'NAME'} = 'vimeo';
-    $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*vimeo.com/(\d+))'];
-
-    bless($self, $class);
-    $self->_prepare_parameters();
-
-    return $self;
+    my $self = $class->SUPER::new(
+        NAME => 'vimeo',
+        _SELFTESTURL => 'http://vimeo.com/35055590',
+        _SELFTESTTITLE => 'Hello',
+        PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*vimeo.com/(?:m/)?(\d+))'],
+        @_,
+    );
+
+    return bless($self, $class);
 }
 
 sub _parse {
@@ -33,8 +33,8 @@ sub _parse {
     my $pattern = shift;
     my $content;
     my $metadata = {};
-    my $p = XML::Simple->new();
-    my $t;
+    my $p;
+    my $e;
     my $dlurl;
     my $hd;
     my $dlpath;
@@ -52,46 +52,51 @@ sub _parse {
     $metadata->{'DLURL'} = undef;
 
     # Get the XML file containing the video metadata
-    unless(defined($content = $self->simple_get(sprintf('http://www.vimeo.com/moogaloop/load/clip:%s', $2)))) {
-        $self->error('Could not download XML metadata');
-        return undef;
-    }
-
-    unless(defined($t = $p->XMLin($content, KeepRoot => 1))) {
-        $self->error('Could not parse XML metadata');
+    unless(defined($content = $self->simple_get(sprintf('http://vimeo.com/%s', $2)))) {
+        $self->error('Could not download site');
         return undef;
     }
 
-    if (exists($t->{'xml'}->{'video'}->{'isHD'}) and (0 != $t->{'xml'}->{'video'}->{'isHD'})) {
-        $self->debug('Selecting HD video');
-        $hd = '/?q=hd';
-    } else {
-        $self->debug('Selecting SD video');
-        $hd = '';
+    $p = HTML::TokeParser->new(\$content);
+
+    while ($e = $p->get_tag('script')) {
+        if ($e->[0] eq 'script') {
+            my $t = $p->get_text();
+
+            if ($t =~ m|clip\d+_\d+ = (.*\});Player|s) {
+                my $jsp = videosite::JSArrayParser->new();
+                my $r;
+
+                $self->debug("Found raw config: %s", $1);
+                $r = $jsp->parse($1);
+
+                unless(defined($r)) {
+                    $self->error("Found information hash, but could not parse");
+                    return undef;
+                }
+
+                $self->debug("Found parsed config: %s", Dumper($r));
+
+                unless(exists($r->{'config'}->{'request'})) {
+                    $self->error("Required information not found in hash");
+                    return undef;
+                }
+
+                $metadata->{'TITLE'} = $r->{'config'}->{'video'}->{'title'};
+                $hd = grep { $_ eq 'hd' } @{$r->{'config'}->{'video'}->{'files'}->{'h264'}};
+                $self->debug("HD: %d", $hd);
+                $r = $r->{'config'}->{'request'};
+
+                $metadata->{'DLURL'} = sprintf("http://%s/play_redirect?clip_id=%d&sig=%s&time=%d&quality=%s&codecs=H264,VP8,VP6",
+                        $r->{'player_url'},
+                        $metadata->{'ID'},
+                        $r->{'signature'},
+                        $r->{'timestamp'},
+                        $hd?'hd':'sd',
+                        );
+            }
+        }
     }
-    $timestamp = $t->{'xml'}->{'request_signature_expires'};
-    $hash = $t->{'xml'}->{'request_signature'};
-    $dlurl = sprintf('http://vimeo.com/moogaloop/play/clip:%s/%s/%d%s', $metadata->{'ID'}, $hash, $timestamp, $hd);
-
-    unless(defined($dlurl)) {
-        $self->error('No dlurl found in XML');
-        return undef;
-    }
-
-    # # Vimeo appends a hash to the download URL, in order to thwart people like me.
-    # # Unfortunately the algorithm isn't that complicated :)
-    # if ($dlurl =~ m|http://bitcast.vimeo.com(.+)|) {
-    #     $dlpath = $1;
-    #     $timestamp += 1800;
-    #     $hash = md5_hex(sprintf('redFiretruck%s?e=%d', $dlpath, $timestamp));
-    # } else {
-    #     $self->error('Unknown dlurl scheme: %s', $dlurl);
-    #     return undef;
-    # }
-
-    # $metadata->{'DLURL'} = sprintf('%s?e=%d&h=%s', $dlurl, $timestamp, $hash);
-    $metadata->{'DLURL'} = $dlurl;
-    $metadata->{'TITLE'} = $t->{'xml'}->{'video'}->{'caption'};
 
     unless(defined($metadata->{'DLURL'}) && defined($metadata->{'TITLE'})) {
         $self->error('Could not extract download URL and title');