[Librefm-commits] [1203] Use big list of songs instead of small list of songs.

[Toby Inkster]

Revision: 1203
          http://svn.sv.gnu.org/viewvc/?view=rev&root=librefm&revision=1203
Author:   tobyink
Date:     2009-05-05 15:43:22 +0000 (Tue, 05 May 2009)
Log Message:
-----------
Use big list of songs instead of small list of songs.

Modified Paths:
--------------
    trunk/lastscrape/librescrape.pl

Modified: trunk/lastscrape/librescrape.pl
===================================================================
--- trunk/lastscrape/librescrape.pl     2009-05-05 02:42:53 UTC (rev 1202)
+++ trunk/lastscrape/librescrape.pl     2009-05-05 15:43:22 UTC (rev 1203)
@@ -12,6 +12,16 @@
 my $uri = shift @ARGV
        or die "Usage: librescrape.pl 'http://alpha.libre.fm/user/somebody'\n";
 
+if ($uri =~ /user-profile\.php/)
+{
+       $uri =~ s/user-profile.php/user-recent-tracks.php/;
+       $uri .= '&count=1000';
+}
+else
+{
+       $uri .= '/recent-tracks?count=1000';
+}
+
 my $parser = RDF::RDFa::Parser::Redland->new(get($uri), $uri);
 $parser->consume;
 my $model = $parser->redland;