1 # This script scans through the changes submitted on the specified codeline, within the range specified, and detects all changes involving a Defect Fix 

     2 

     3 # Renaming Parameters  

     4 $Codeline=$ARGV[0];

     5 $OldNumber=$ARGV[1];

     6 $NewNumber=$ARGV[2];

     7 $query="$Codeline\@$OldNumber,$NewNumber";

     8 

     9 system("p4 changes $query >changes.tmp");

    10 @changes;

    11 open(TMP,"changes.tmp");

    12 while(<TMP>)

    13 {

    14     $_=split /\s+/,$_;

    15     push @changes, $_[1];

    16 }

    17 close(TMP);

    18 

    19 #print @changes;

    20     

    21 

    22 foreach $i(@changes){

    23         system("p4 describe -ds -s $i >>description.tmp");

    24 	open(DES,">>description.tmp");

    25 	print DES "\n\n";

    26 	close(DES);

    27     }

    28 

    29 

    30 open(DES,"description.tmp");

    31 $FileFlag=0;

    32 while(<DES>)

    33 {

    34     if ($_ =~/^Change\s(\d+)\s/){

    35 	@ChangeInfo=split /\s+/,$_;

    36 	$CurrentChange=$ChangeInfo[1];

    37 	}

    38     

    39     if ($_=~/([A-Z][A-Z][A-Z]-)/){		#V4 defects

    40 	print "$CurrentChange\n";

    41 	print $_;

    42     }

    43 	

    44     if ($_=~/([a-zA-Z]{3}\d{4,6})/){		#TeamTrack defects

    45  	print "$CurrentChange\n";

    46  	print $_;

    47     }

    48  

    49 

    50 }

    51 

    52 

    53 close(DES);

    54 close(TMP);

    55 system("del description.tmp");

    56 system("del changes.tmp");