SVN: toys/rsget.pl/Audio/GoEar
sparky
sparky at pld-linux.org
Thu Mar 11 01:08:33 CET 2010
Author: sparky
Date: Thu Mar 11 01:08:32 2010
New Revision: 11233
Modified:
toys/rsget.pl/Audio/GoEar
Log:
- update for structure changes
Modified: toys/rsget.pl/Audio/GoEar
==============================================================================
--- toys/rsget.pl/Audio/GoEar (original)
+++ toys/rsget.pl/Audio/GoEar Thu Mar 11 01:08:32 2010
@@ -19,11 +19,10 @@
start:
GET( $-{_uri} );
- ! m{<param name="FlashVars" value="file=([0-9a-f]+)" />};
+ ! m{<object.*?><embed src=".*?swf\?file=([0-9a-f]+)"};
my $id = $1;
- my $first = substr $id, 0, 1;
- GET( "/files/xmlfiles/$first/secm$id.xml" );
+ GET( "/localtrackhost.php?f=$id" );
! m{<song path="(.*?)" bild=".*?" artist="(.*?)" title="(.*?)"/>};
my ( $file_uri, $artist, $title ) = ( $1, $2, $3 );
More information about the pld-cvs-commit
mailing list