clive-delfi.patch

   1 --- clive-2.1.9/clive~  2009-03-30 11:55:42.000000000 +0200
   2 +++ clive-2.1.9/clive   2009-03-30 12:05:00.000000000 +0200
   3 @@ -85,6 +85,7 @@
   4                   IsLiveleak  => qr|liveleak.com|i,
   5                   IsEvisor    => qr|evisor.tv|i,
   6                   IsDmotion   => qr|dailymotion.com|i,
   7 +                 IsDelfi     => qr|.delfi.|i,
   8                 );
   9
  10  # Parse config
  11 @@ -324,6 +325,8 @@
  12          ($xurl, $id) = handle_evisor($response_ref);
  13      } elsif ($url =~ /$re_hosts{IsDmotion}/) {
  14          ($xurl, $id) = handle_dmotion($response_ref);
  15 +    } elsif ( $url =~ /$re_hosts{IsDelfi}/ ) {
  16 +       ($xurl, $id) = handle_delfi($response_ref, $response_fh);
  17      }
  18      return -1
  19          if !$xurl or !$id or !$title;
  20 @@ -992,6 +993,64 @@
  21      return ($xurl, $id);
  22  }
  23
  24 +sub handle_delfi {
  25 +    my ($response_ref, $response_fh) = @_;
  26 +
  27 +    my %re = (
  28 +    # videobox
  29 +    # http://www.delfi.ee/news/paevauudised/paevavideo/article.php?id=15218215
  30 +        GrabVideoboxURL => qr|flv_url:\s*'(.*?)'|,
  31 +    # videoproject embed
  32 +    # http://www.delfi.ee/news/paevauudised/paevavideo/article.php?id=18759038
  33 +        GrabVideoSalt   => qr|_delfiVideoSalt\s*=\s*"([^"]+)";|,
  34 +        GrabVideoSite   => qr|src="(\S+://[^/]+)/js/embed.js"|,
  35 +    # videoproject
  36 +    # http://video.delfi.ee/video/CzurzqNz/
  37 +        GrabVideoURL   => qr|\.addVariable\('file',\s*'([^']+)'|,
  38 +    );
  39 +
  40 +    my ($xurl, $id);
  41 +    my $videobox_url = $1 if $$response_ref =~ /$re{GrabVideoboxURL}/;
  42 +    my $video_salt   = $1 if $$response_ref =~ /$re{GrabVideoSalt}/;
  43 +    my $video_site   = $1 if $$response_ref =~ /$re{GrabVideoSite}/;
  44 +    my $video_url   = $1 if $$response_ref =~ /$re{GrabVideoURL}/;
  45 +
  46 +    if ($videobox_url) {
  47 +        $id = $1 if $videobox_url =~ m{/([^/]+)\.flv$};
  48 +        $xurl = $videobox_url;
  49 +
  50 +    } elsif ($video_url) {
  51 +        $xurl = uri_unescape($video_url);
  52 +        $id = $1 if $xurl =~ m{^\S+://[^/]+/v/(.+?)\.flv};
  53 +
  54 +    } elsif ($video_salt and $video_site) {
  55 +        my $url = $video_site . '/video/' . $video_salt . '/';
  56 +        print "done.\nfetch page ..." unless $opts{quiet};
  57 +
  58 +        my $page = "";
  59 +        open my $fh, ">", \$page;
  60 +
  61 +        # Disable: header
  62 +        $curl->setopt(CURLOPT_HEADER, 0);
  63 +        $curl->setopt(CURLOPT_URL, $url);
  64 +        $curl->setopt(CURLOPT_WRITEDATA, $fh);
  65 +
  66 +        my $rc = $curl->perform;
  67 +        close $fh;
  68 +
  69 +        if ($rc == 0) {
  70 +            # recurse
  71 +            ($xurl, $id) = handle_delfi(\$page);
  72 +        } else {
  73 +            print STDERR "\nerror: " . $curl->strerror($rc) . " (http/$rc)\n";
  74 +        }
  75 +    } else {
  76 +        print STDERR "error: url not found\n";
  77 +    }
  78 +
  79 +    return ($xurl, $id);
  80 +}
  81 +
  82  # Subroutines: Progress
  83  # NOTE: the 'dot' progress copies much from wget.