#! /usr/bin/perl
# Sep 7 2007
# Return the URLs from an album page and download them

if ($#ARGV < 0) {die "Usage: $0 iTMS-URL\n";}

my $itmsurl = $ARGV[0];
my $album = $itmsurl; $album =~ s/^.*id=//; $album =~ s/&s.*//;
my $store = $itmsurl; $store =~ s/.*s=//;

my $doit = qq{./fetchalbum $album $store | gunzip };
my $riz = `$doit`;

my @rizray = split('\n', $riz);

foreach my $item (@rizray)
{
  if  ($item =~ /m4p/)
    {
      $item =~ s/.*<string>//g; 
      $item =~ s/<.string.//;
      print "Downloading ",$item, "\n";
      $doit = qq{curl -O $item};
      $riz = `$doit`;
    }
}