#!/usr/bin/perl

use LWP::Simple;

my $DBG = 1;
my $URL = 'http://www.stileproject.com';
my $TOP = 'hfv.gif';
my $BOT = '<div align="center" class="forum">';
my $LNK = 'http://www.stilemedia.com';

my $OUTPUT_PATH = "./"; #remember the slash at the end of the path!

my $content = get ($URL);

if ($content =~ /$TOP(.*?)$BOT/si){
	$videoz_slice = $1;
	while ($videoz_slice =~ /"($LNK.*?)"/gsi){
		push @links, $1;
	}
}

foreach $link (@links){
	if ($link =~ /$LNK\/(.*)/){
		my $search = $1;
		print "Downloading page $link...\n" if $DBG;
		my $content = get ($link);
		print " Searching $search... " if $DBG;
		if ($content =~ /"(\Q$search\E.*?)"/i){
			print "Found!\n";
			my $link2 = "$LNK/$1";
			if ($link2 =~ /v=(.*?)\&/){
				my $search = $1;
				print " Downloading page $link2...\n" if $DBG;
				my $content = get ($link2);
				print "  Searching $search... " if $DBG;
				if ($content =~ /href="(.*?$search.*?)">Click/i){
					print "Found!\n" if $DBG;
					my $file_url = $1;
					print "  $file_url\n" if $DBG;
					dload ($file_url);
				}
			}
		}
	}
}

sub dload {
	my $url = shift;
	my $filename;
	if ($url =~ /([^\/]*?)$/){
		$filename = $1;
		print "Saving to $OUTPUT_PATH$filename... " if $DBG;
	}

	getstore ($url, $OUTPUT_PATH.$filename);
	print "Done.\n" if $DBG;
}