#!usr/bin/perl -w

use strict;
use Fcntl qw[:flock];

my $impressions = 0;
my $iofile = '/other/scripts/daniel/input/c07_impressions_io.info';

open (IO, $iofile) || die("Could not open file 1!");

while (<IO> ) {
      chop;
     my ($FH, $output, $file2check, $month, $year) = split (/\s+/, $_);

open OUT, ">> $output";

chdir $FH or die "$!";

while (glob $file2check) {
    open FH, $_ or die $!;
    flock FH, LOCK_SH or die $!;
    while (<FH> ) {
        chomp;
	if ( / Summary Log \(generated:/ ) {
	    print "Found Sumary Log, checking the month and year.\n";
	    my($emptyspce, $summary, $log, $generated, $day_word, $monthfile, $day_number, $time, $timezone, $yearfile ) = split(/\s+/, $_);
	    if (    $monthfile eq $month
		and $yearfile  eq $year){
		print "File has $yearfile and $monthfile in it. Now Looking for Impressions.\n";
	        if ( /Impressions:/ ) {
		    print "Found Impressions, now splitting.\n";
                    my($text, $value) = split(/:/, $_);
                    print  $impressions += $value if ($value =~ /\d+/);
   		    print "\n";
		}
	    }
	}
    }
    close FH or die $!;
  }
}
print OUT 'Total impressions: ', $impressions or die $!;