lib/clive/Host/Youtube.pm

   1 # -*- coding: ascii -*-
   2 ###########################################################################
   3 # clive, command line video extraction utility.
   4 # Copyright 2007, 2008, 2009 Toni Gundogdu.
   5 #
   6 # This file is part of clive.
   7 #
   8 # clive is free software: you can redistribute it and/or modify it under
   9 # the terms of the GNU General Public License as published by the Free
  10 # Software Foundation, either version 3 of the License, or (at your option)
  11 # any later version.
  12 #
  13 # clive is distributed in the hope that it will be useful, but WITHOUT ANY
  14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  15 # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
  16 # details.
  17 #
  18 # You should have received a copy of the GNU General Public License along
  19 # with this program. If not, see <http://www.gnu.org/licenses/>.
  20 ###########################################################################
  21 package clive::Host::Youtube;
  22
  23 use warnings;
  24 use strict;
  25
  26 # fmt22 = HD[1280x720]
  27 # fmt35 = HQ[640x380]
  28 # fmt17 = 3gp[176x144]
  29 # fmt18 = mp4[480x360]
  30 # fmt34 = flv[320x180]
  31
  32 sub new {
  33     return bless( {}, shift );
  34 }
  35
  36 sub parsePage {
  37     my ( $self, $content, $props ) = @_;
  38
  39     $$props->video_host("youtube");
  40
  41     my %re = (
  42         id => qr|"video_id": "(.*?)"|,
  43         t  => qr|"t": "(.*?)"|,
  44     );
  45
  46     my $tmp;
  47     if ( clive::Util::matchRegExps( \%re, \$tmp, $content ) == 0 ) {
  48
  49         my $xurl
  50             = "http://youtube.com/get_video?video_id=$tmp->{id}&t=$tmp->{t}";
  51
  52         my $config = clive::Config->instance->config;
  53
  54         my $fmt;
  55
  56         if ( $config->{format} eq "best" ) {
  57             $fmt = $1
  58                 if $$content =~ /"fmt_map": "(.*?)\//;
  59         }
  60         else {
  61             $fmt = $1
  62                 if toFmt( $self, $config->{format} ) =~ /^fmt(.*)$/;
  63         }
  64
  65         $xurl .= "&fmt=$fmt"
  66             if $fmt;
  67
  68         $$props->video_id( $tmp->{id} );
  69         $$props->video_link($xurl);
  70
  71         return (0);
  72     }
  73     return (1);
  74 }
  75
  76 sub toFmt {
  77     my ( $self, $id ) = @_;
  78     $id =~ s/hd/fmt22/;
  79     $id =~ s/hq/fmt35/;
  80     $id =~ s/mp4/fmt18/;
  81     $id =~ s/3gp/fmt17/;
  82     return ($id);
  83 }
  84
  85 1;
  86
  87 # And this is not our fate.