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 );
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
