#!/usr/bin/perl -w

use strict;
use warnings;

use WWW::Scripter;

print "Hello, RelinkFetchedWorld...\n";

my $log_file = 'demo_log.txt';
open(LOG_FILE, ">$log_file");
print LOG_FILE '';
close(LOG_FILE);

open(LINK_FILE, "<links.txt");
my @ar_lines = <LINK_FILE>;
close(LINK_FILE);

my %attributes = (max_docs => 1, max_history => 1);

my $www = new WWW::Scripter %attributes;
$www->use_plugin('Ajax');

for (my $i = 0;$i<=$#ar_lines;$i++) {
	open(LOG_FILE, ">>$log_file");
	print LOG_FILE "************** Neuer IFrame Inhalt: \n";
	$www->get($ar_lines[$i]);
	$www->document->getElementById('file-1')->trigger_event('click');
	my $iframe_doc = $www->document->innerHTML;	
	$www->clear_history();
	print LOG_FILE $iframe_doc . "\n";
	close(LOG_FILE);
}

$www = undef;
close(LOG_FILE);