Author: sparky Date: Fri Feb 19 16:04:14 2010 New Revision: 11146 Added: toys/rsget.pl/Video/ExtremeTube Log: - new, becouse someone sent it to me
Added: toys/rsget.pl/Video/ExtremeTube ============================================================================== --- (empty file) +++ toys/rsget.pl/Video/ExtremeTube Fri Feb 19 16:04:14 2010 @@ -0,0 +1,37 @@ +# $Id: .template 10946 2009-11-04 15:58:19Z sparky $ +# Video::ExtremeTube - Video getter plugin for rsget.pl +# +# 2009 (c) Przemysław Iskra <[email protected]> +# This program is free software, +# you may distribute it under GPL v2 or newer. + +name: ExtremeTube +short: V:ExtremeTube +web: "http://www.extremetube.com/"; +uri: qr{extremetube\.com/video/} +slots: max +status: OK 2010-02-19 + +start: + GET( $-{_uri} ); + + ! m{<h1 class="title-video-box".+?>(.*?)</h1>}; + $-{fname} = de_ml( $1 ); + $-{fname} =~ s{/}{_}g; + $-{fname} =~ s/\s*$/.flv/; + + ! m{flashvars\.options = "(.*?)"}; + GET( $1 ); + + ! m#<flv_url>(.+?)</flv_url>#; + $-{file_uri} = $1; + ! m#<width>(\d+)</width>#; + my $width = $1; + ! m#<height>(\d+)</height>#; + my $height = $1; + + INFO( name => $-{fname}, quality => $width."x".$height ); + + DOWNLOAD( $-{file_uri}, fname => $-{fname} ); + +# vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
