#!/usr/bin/perl

use warnings;
use strict;
use File::Basename;
use diagnostics;
use Parallel::ForkManager qw( );
use Time::HiRes qw( time );

my $max_processes = 5;
my $home = '/vagrant';
my $url = 'http://xxx.xxx.xxx.xxx/rest/xbrl/validation?file=';

my @files = `ls $home/*.zip`;

my $pm = Parallel::ForkManager->new($max_processes);

foreach my $zip (@files){
    chomp $zip;
    my $start = time();
    my $pid = $pm->start and next;
    my $filename = `unzip -l $zip | awk '{print \$4}' | grep -P '.*-\\d+\\.xml'`;
    chomp $filename;
    my $header = "curl -s --header 'Content-Type: application/zip' --data-binary '@" . $zip . "' '". $url . $filename . '&media' . "=xml'";
    my @response = `$header`;
    foreach my $line (@response){
        chomp $line;
        if ($line =~ m/\<ref href\=\"(.*-\d+\.xml)\"\/\>\<\/entry\>/){
            print "XBRL Name -- $1\nExpected Filename -- $filename\n";
            last;
        }
    }
    my $end = time();
    print "Runtime --- ";
    printf("%.2f\n", $end - $start);
    print "\n\n";
    $pm->finish;
}
$pm->wait_all_children;