common/tools/ats/ats_generate_index.pl
changeset 850 0e8b8d588322
parent 844 385ad61f2ab3
--- a/common/tools/ats/ats_generate_index.pl	Mon Jan 18 14:34:12 2010 +0000
+++ b/common/tools/ats/ats_generate_index.pl	Wed Jan 20 10:27:12 2010 +0000
@@ -29,11 +29,21 @@
 else { die "Missing parameter \"path\". For example: //v800020/Publish/SF_builds/symbian2/builds/default/symbian2_default.sf-test-bc-check.PDK_2.0.1.51/ats_reports"; }
 
 find(\&Wanted, $path);
+
+#Find and delete the link to Smoke Test Report
 my $n = 0;
+my $item_to_find = $path . "/ATS3Report.html";
+foreach (@files) {
+	if (@files[$n] eq $item_to_find) { splice @files, $n, 1; }
+	$n++;
+}
+
+$n = 0;
 foreach (@files) { #Replace "//v800020/Publish" with "http://cdn.symbian,org"
 	@files[$n] =~ s/\/\/v800020\/Publish/http:\/\/cdn.symbian.org/;
 	$n++;
 }
+
 #Copy template and insert links
 copy("report_template.html","index.html") or die ("Cannot copy file \"report_template.html\". $!\n");
 tie @lines, 'Tie::File', "index.html" or die ("Cannot tie file \"index.html\". $!\n");
@@ -56,6 +66,6 @@
 
 sub Wanted {
     # only operate on ATS3Report.html files
-    /ATS3Report.html/ or return;	
-	push (@files, $File::Find::name);
+	/ATS3Report.html/ or return;
+    push (@files, $File::Find::name);
 }
\ No newline at end of file