#!/usr/bin/perl

use strict;
use warnings;
require HTTP::Request;
use Data::Dumper;
use HTTP::Async;

#load the list of targets from a file
#file format is:
#server_name,username,password,https://{url}

my $file='conf.cfg';
my @data;
open(my $fh, '<', $file) or die "Can't read config file '$file' [$!]\n";
while (my $line = <$fh>) {
    chomp $line;
    my @fields = split(/,/, $line);
    push @data, \@fields;	
}
   
my $async = HTTP::Async->new;
$async->proxy_host("proxy.my.company.com");
$async->proxy_port("8080");
$async->timeout(10);
$async->max_request_time(10);
$async->slots(100);
while(1){
    foreach(@data) {
	my $page;
	my $name=$_->[0];
	my $account=$_->[1];
	my $password=$_->[2];
	my $url=$_->[3] . "/info.html";
        my $port=$_->[3];
	$port=~s/.*://g;
 	my $method=$_->[3];
	$method=~s/:\/\/.*//g;
	my $img1=$_->[3]."/image1.jpg";
	my $img2=$_->[3]."/image2.jpg";
	my $url=$method . "://" . $addr . ":" . $port . "/status/captures";
	my $now = time;
	$async->add( HTTP::Request->new( GET => $url) );
        $async->add( HTTP::Request->new( GET => $img1) );
        $async->add( HTTP::Request->new( GET => $img2) );
	while ( my $response = $async->wait_for_next_response ) {

     	my $url = sprintf "%-20s,%-25s", $venue, $url;
	my $len = sprintf   "%8s", length $response->content;
	my $et  = sprintf "%5.3f", time - $now;
	print "$url has length $len and loaded in $et s \n";

	if ($response->content eq "Timed out"){
		$page="Timed out";
	}
	else{
	$page=$response->content;
	}
	open (FILE, '>', $name);
	print FILE $page;
	close (FILE);
	}
    }		
    sleep(10);
}
exit(0);