diff -r 000000000000 -r 83f4b4db085c bldsystemtools/commonbldutils/DefectTrack.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bldsystemtools/commonbldutils/DefectTrack.pl	Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,56 @@
+# This script scans through the changes submitted on the specified codeline, within the range specified, and detects all changes involving a Defect Fix 
+
+# Renaming Parameters  
+$Codeline=$ARGV[0];
+$OldNumber=$ARGV[1];
+$NewNumber=$ARGV[2];
+$query="$Codeline\@$OldNumber,$NewNumber";
+
+system("p4 changes $query >changes.tmp");
+@changes;
+open(TMP,"changes.tmp");
+while(<TMP>)
+{
+    $_=split /\s+/,$_;
+    push @changes, $_[1];
+}
+close(TMP);
+
+#print @changes;
+    
+
+foreach $i(@changes){
+        system("p4 describe -ds -s $i >>description.tmp");
+	open(DES,">>description.tmp");
+	print DES "\n\n";
+	close(DES);
+    }
+
+
+open(DES,"description.tmp");
+$FileFlag=0;
+while(<DES>)
+{
+    if ($_ =~/^Change\s(\d+)\s/){
+	@ChangeInfo=split /\s+/,$_;
+	$CurrentChange=$ChangeInfo[1];
+	}
+    
+    if ($_=~/([A-Z][A-Z][A-Z]-)/){		#V4 defects
+	print "$CurrentChange\n";
+	print $_;
+    }
+	
+    if ($_=~/([a-zA-Z]{3}\d{4,6})/){		#TeamTrack defects
+ 	print "$CurrentChange\n";
+ 	print $_;
+    }
+ 
+
+}
+
+
+close(DES);
+close(TMP);
+system("del description.tmp");
+system("del changes.tmp");