Package: clive Version: 2.2.26-1 Severity: wishlist Tags: patch upstream Please add support for videobash.com videos. Attached is a patch which works for me (tested on 5 videos).
Best regards, Thomas Preud'homme -- System Information: Debian Release: wheezy/sid APT prefers unstable APT policy: (990, 'unstable'), (500, 'stable-updates'), (500, 'testing'), (500, 'stable'), (1, 'experimental') Architecture: amd64 (x86_64) Kernel: Linux 3.0.0-1-amd64 (SMP w/2 CPU cores) Locale: LANG=fr_FR.UTF-8, LC_CTYPE=fr_FR.UTF-8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/dash Versions of packages clive depends on: ii libclass-singleton-perl 1.4-1 ii libconfig-tiny-perl 2.14-1 ii libexpect-perl 1.21-1 ii libgetopt-argvfile-perl 1.11-1 ii libhtml-parser-perl 3.68-1+b1 ii liburi-perl 1.59-1 ii libwww-curl-perl 4.15-1+b1 ii perl 5.12.4-4 ii perl-modules [libversion-perl] 5.12.4-4 Versions of packages clive recommends: ii clive-utils 2.1.6-1 ii libberkeleydb-perl 0.48-1 ii libterm-readkey-perl 2.30-4+b1 Versions of packages clive suggests: ii ffmpeg 4:0.7.1-4 -- no debconf information
Description: Add support for Videobash Author: Thomas Preud'homme <[email protected]> Origin: vendor Forwarded: no Last-Update: 2011-09-04 --- --- clive-2.2.26.orig/lib/clive/HostFactory.pm +++ clive-2.2.26/lib/clive/HostFactory.pm @@ -46,6 +46,7 @@ my @_hosts = ( [ "Clipfish", qr|clipfish.de|i, "default" ], [ "Funnyhub", qr|funnyhub.com|i, "default" ], [ "Buzzhumor", qr|buzzhumor.com|i, "default" ], + [ "Videobash", qr|videobash.com|i, "default" ], ); sub new { --- /dev/null +++ clive-2.2.26/lib/clive/Host/Videobash.pm @@ -0,0 +1,50 @@ +# -*- coding: ascii -*- +########################################################################### +# clive, command line video extraction utility. +# +# Copyright 2011 Thomas Preud'homme. +# +# This file is part of clive. +# +# clive is free software: you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free +# Software Foundation, either version 3 of the License, or (at your option) +# any later version. +# +# clive is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS +# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +# details. +# +# You should have received a copy of the GNU General Public License along +# with this program. If not, see <http://www.gnu.org/licenses/>. +########################################################################### +package clive::Host::Videobash; + +use warnings; +use strict; + +sub new { + return bless( {}, shift ); +} + +sub parsePage { + my ( $self, $content, $props ) = @_; + + $$props->video_host("videobash"); + + my %re = ( + id => qr|video_url=.*?_(.*?)\.|, + url => qr|video_url=(.*?)\?|, + ); + + my $tmp; + if ( clive::Util::matchRegExps( \%re, \$tmp, $content ) == 0 ) { + $$props->video_id( $tmp->{id} ); + $$props->video_link( $tmp->{url} ); + return (0); + } + return (1); +} + +1;
