SVN: toys/rsget.pl: Audio/Gazeta Link/TokFM

[pawelz]

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 <pawelz at pld-linux.org>
+#		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 <pawelz at pld-linux.org>
+#		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