tapeleecher.pl

# Tapeleecher by ATT 20-Apr-2011 for Fungerl

use strict;
use URI;
use LWP;

my $id=695; 		# starting id minus 1  - edit here!

while ($id < 710)	# ending ID, edit here!
{
	$id++; 		# ID of tape

	my $sitename="http://c64tapes.org/title.php?id=";     # sitename including PHP id= stuff
	
	my $searchquery=$sitename.$id; 

	my $ua = LWP::UserAgent->new;
 	$ua->timeout(3);
 	my $response = $ua->get("$searchquery");
 	if (not($response->is_success)) { die $response->status_line; }
     				my $webpage=$response->decoded_content;  
     				$_=$webpage;
     				if (/.RAW.: /) 			# ".RAW." instead of (RAW) because () is REGEXPR.Code!
					{
					my @lines=split(/Filename .RAW.: /,$webpage);
					# print "\n l0: $lines[0]";   # debug code
					# print "\n l1: $lines[1]";   # debug code	
					my @lines2=split(/<.td>/,$lines[1]);
					$_=$lines2[1]; s/<td>//;    # remove TD outta filename
					my $filename=$_;
					if ($_ ne "") {
							print "\n wget http://c64tapes.org/RAW/$filename "; 
						}	
					}
				else
					{
					print "\n ID $id Not Found !" ; 
					}
}

print "\n All done! \n";