#!/usr/bin/perl -w

use strict;

my $argc = @ARGV;

if($argc != 1) { die "Usage: fileChanged.pl <path>\n"; }

if( -f "files.txt") {
   unlink "files.txt";
}

my $p4 = "p4";
my $changes = "changes";
my $path = "$ARGV[0]";
my $range = '@>=2007/01/01,@<=2008/01/01';

my @changeNums = ();
foreach (`$p4 $changes -m10 '$path...$range'`) {
   chomp;
   my @line = split(/ /,$_);
   shift @line;
   my $changeNum = shift @line;
   push @changeNums,$changeNum;
}

#open(STDOUT,">>out.txt");

my $fileHashRef = {};
my $describe = "describe -s";
foreach my $changeNum (@changeNums) {
   #print "$p4 $describe $changeNum\n";
   my $count = 0;
   foreach (`$p4 $describe $changeNum`) {
	chomp;
	print STDOUT "$_\n";
	if(/^\.\.\.\s(.+)$/) {
	   $count++;
	   $fileHashRef->{$changeNum}{$changeNum . "_f" . $count} = $1;
	}
   }
} 

#close(STDOUT);

open(OUT,">>files.txt");

foreach my $changelistNum (keys %$fileHashRef) {

	foreach my $num (sort keys %{$fileHashRef->{$changelistNum}}) {
		print OUT "ChangeNum: $num, File: $fileHashRef->{$changelistNum}{$num}\n";
	}
}
close(OUT);