Author: pawelz Date: Mon Sep 20 00:28:57 2010 New Revision: 11813 Added: toys/rsget.pl/Audio/Gazeta (contents, props changed) toys/rsget.pl/Link/TokFM (contents, props changed) Log: - support for tok.fm podcasts - sparky: please review. Is Text::Iconv dependency acceptable?
Added: toys/rsget.pl/Audio/Gazeta ============================================================================== --- (empty file) +++ toys/rsget.pl/Audio/Gazeta Mon Sep 20 00:28:57 2010 @@ -0,0 +1,25 @@ +# $Id$ +# Audio::Gazeta - Audio getter plugin for rsget.pl +# +# 2010 (c) Paweł Zuzelski <[email protected]> +# This program is free software, +# you may distribute it under GPL v2 or newer. + +name: Gazeta +short: A:Gazeta +web: "http://gazeta.pl/"; +uri: qr{bi.gazeta.pl/im/\d/\d+/m\d+\.mp3} +slots: max +status: OK 2010-09-19 + +unify: + return $_; +start: + my $fname = uri_unescape( $1 ).".mp3" + if $-{_uri} =~ /\/([^\/]+?)(?:\.mp3)?$/; + + INFO( name => $fname, quality => "mp3" ); + + DOWNLOAD( $-{_uri}, fname => $fname ); + +# vim: filetype=perl:ts=4:sw=4 Added: toys/rsget.pl/Link/TokFM ============================================================================== --- (empty file) +++ toys/rsget.pl/Link/TokFM Mon Sep 20 00:28:57 2010 @@ -0,0 +1,27 @@ +# $Id$ +# Link:TokFM - Link retriever plugin for rsget.pl +# +# 2010 (c) Paweł Zuzelski <[email protected]> +# This program is free software, +# you may distribute it under GPL v2 or newer. + +name: TokFM +short: L:TokFM +web: "http://www.tok.fm/"; +uri: qr{tok.fm/TOKFM/\d+,\d+.html} +slots: max +status: OK 2010-09-19 + +start: + GET( $-{_uri} ); + + use Text::Iconv; + my $converter = Text::Iconv->new("ISO-8859-2", "UTF-8"); + + my @list = map { $1."#/".uri_escape($converter->convert($2)) + if $_ =~ /href="(.+?)" title="(.+?)"/ } + m{<a (href=".+?" title=".+?") class="tokfm_play">}g; + + LINK( @list ); + +# vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
