SVN: toys/rsget.pl/Link/TokFM

[sparky]

Author: sparky
Date: Thu Oct  7 14:29:05 2010
New Revision: 11832

Modified:
   toys/rsget.pl/Link/TokFM
Log:
- let's do it my way, no more Text::Iconv, use Encode instead


Modified: toys/rsget.pl/Link/TokFM
==============================================================================
--- toys/rsget.pl/Link/TokFM	(original)
+++ toys/rsget.pl/Link/TokFM	Thu Oct  7 14:29:05 2010
@@ -12,15 +12,15 @@
 slots: max
 status: OK 2010-09-19
 
+pre:
+	use Encode;
+
 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;
+	my @list;
+	push @list, $1 . "#/" . uri_escape( encode( "utf8", decode( "iso-8859-2", $2) ) )
+		while s{<a\s+href="(.+?)"\s+title="(.+?)"\s+class="tokfm_play">}{};
 
 	LINK( @list );