The Tor Browser / file revision

 ##########################################################################################

 #

 # This Source Code Form is subject to the terms of the Mozilla Public

 # License, v. 2.0. If a copy of the MPL was not distributed with this

 # file, You can obtain one at http://mozilla.org/MPL/2.0/.

 #------------------------------------------------------------------------------

 sub debug_print {

   foreach $str (@_){

 #    print( $str );

   }

 }

 #------------------------------------------------------------------------------

 @ARGV;

 $buildRoot = $ARGV[0];

 #$buildIDFile = '< '.$buildRoot.'\bin\chrome\locales\en-US\navigator\locale\navigator.dtd';

 $PullID = $ARGV[1];

 #------------------------------------------------------------------------------

 # Variables for the values in the AVERAGES.TXT file

 # NOTE this is the order they appear in the file

 $Num_Entries = 0;

 $Avg_Parse_Time = 0;

 $Avg_Parse_Time_Percentage = 0;

 $Avg_Content_Time = 0;

 $Avg_Content_Time_Percentage = 0;

 $Avg_Frame_Time = 0;

 $Avg_Frame_Time_Percentage = 0;

 $Avg_Style_Time = 0;

 $Avg_Style_Time_Percentage = 0;

 $Avg_Reflow_Time = 0;

 $Avg_Reflow_Time_Percentage = 0;

 $Avg_TotalLayout_Time = 0;

 $Avg_TotalLayout_Time_Percentage = 0;

 $Avg_TotalPageLoad_Time = 0;

 $count = 0;

 @List;

 @temp;

 #------------------------------------------------------------------------------

 # Get the BuildID

 #open (XUL_FILE, $buildIDFile) or die "Unable to open BuildID file $buildIDFile (footer.pl)";

 #$BuildNo = "";

 #$LineList;

 #while (<XUL_FILE>)

 #{

 #  $ThisLine = $_;

 #  chop ($ThisLine);

 #  if (/Build ID/){

 #    @LineList = split (/\"/, $ThisLine);

 #    $BuildNo = $LineList[1];

 #  }

 #}

 #$BuildNo =~ s/"//g;

 #$BuildNo =~ s/[>]//g;

 #close (XUL_FILE);

 #debug_print ($BuildNo);

 #------------------------------------------------------------------------------

 # Process the averages file: get the number of entries 

 # and divide out the accumulated values

 #

 open (AVERAGE, "< Average.txt") or die "Unable to open average.txt (Footer.pl)";

 while (<AVERAGE>)

 {

   $ThisLine = $_;

   chop ($ThisLine);

   if( /Num Entries:/ ){

     @list = split( / /, $ThisLine );

     $Num_Entries = $list[2];

     debug_print( "Num Entries in Footer: $Num_Entries\n" );

   } else {

     if( $Num_Entries != 0 ){

       @temp = split (/ /, $ThisLine);

       $List[$count] = $temp[2];

       $List[$count] = $List[$count] / $Num_Entries;

       debug_print( "Averaged entry: $temp[2] / $Num_Entries = $List[$count]\n" );

       $count ++;

     } else {

       print( "Number of entries is 0: this is either a bad file or the universe has imploded\n" );

       die;

     }

   }

 }

 close (AVERAGE);

 #------------------------------------------------------------------------------

 # Now put the values to the table

 #

 open (TABLE_FILE, ">>table.html") or die "Cannot open the file table.html";

 print (TABLE_FILE "<tr>");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 print (TABLE_FILE "<center><b><font size =+1>Average</font></b></center>");

 print (TABLE_FILE "</td>");

 $Avg_Parse_Time = @List [0];

 debug_print ("$Avg_Parse_Time\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Parse_Time);

 print (TABLE_FILE "</td>");

 $Avg_Parse_Time_Percentage = @List [1];

 debug_print ("$Avg_Parse_Time_Percentage\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Parse_Time_Percentage);

 print (TABLE_FILE "</td>");

 $Avg_Content_Time = @List [2];

 debug_print ("$Avg_Content_Time\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Content_Time);

 print (TABLE_FILE "</td>");

 $Avg_Content_Time_Percentage = @List [3];

 debug_print ("$Avg_Content_Time_Percentage\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Content_Time_Percentage);

 print (TABLE_FILE "</td>");

 $Avg_Frame_Time = @List [4];

 debug_print ("$Avg_Frame_Time\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Frame_Time);

 print (TABLE_FILE "</td>");

 $Avg_Frame_Time_Percentage = @List [5];

 debug_print ("$Avg_Frame_Time_Percentage\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Frame_Time_Percentage);

 print (TABLE_FILE "</td>");

 $Avg_Style_Time = @List [6];

 debug_print ("$Avg_Style_Time\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Style_Time);

 print (TABLE_FILE "</td>");

 $Avg_Style_Time_Percentage = @List [7];

 debug_print ("$Avg_Style_Time_Percentage\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Style_Time_Percentage);

 print (TABLE_FILE "</td>");

 $Avg_Reflow_Time = @List [8];

 debug_print ("$Avg_Reflow_Time\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Reflow_Time);

 print (TABLE_FILE "</td>");

 $Avg_Reflow_Time_Percentage = @List [9];

 debug_print ("$Avg_Reflow_Time_Percentage\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Reflow_Time_Percentage);

 print (TABLE_FILE "</td>");

 $Avg_TotalLayout_Time = @List [10];

 debug_print ("$Avg_TotalLayout_Time\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_TotalLayout_Time);

 print (TABLE_FILE "</td>");

 $Avg_TotalLayout_Time_Percentage = @List [11];

 debug_print ("$Avg_TotalLayout_Time_Percentage\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_TotalLayout_Time_Percentage);

 print (TABLE_FILE "</td>");

 $Avg_TotalPageLoad_Time = @List [12];

 debug_print ("$Avg_TotalPageLoad_Time\n");

 print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");

 printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_TotalPageLoad_Time);

 print (TABLE_FILE "</td>");

 print (TABLE_FILE "</tr>");

 print (TABLE_FILE "</table>");

 print (TABLE_FILE "</html>");

 close (TABLE_FILE);

 #------------------------------------------------------------------------------

 # Now create the History file entries

 # FORMAT: "pullID, buildID, ParseTime, ParsePer, ContentTime, ContentPer, FrameTime, FramePer, 

 #          StyleTime, StylePer, ReflowTime, ReflowPer, LayoutTime, LayoutPer, TotalTime"

 #

 open (HISTORY, ">> History.txt" ) or die "History file could not be opened: no history will be written\n";

 print(HISTORY "$PullID,$BuildNo,$Avg_Parse_Time,$Avg_Parse_Time_Percentage,$Avg_Content_Time,$Avg_Content_Time_Percentage,");

 print(HISTORY "$Avg_Frame_Time,$Avg_Frame_Time_Percentage,$Avg_Style_Time,$Avg_Style_Time_Percentage,$Avg_Reflow_Time,$Avg_Reflow_Time_Percentage,");

 print(HISTORY "$Avg_TotalLayout_Time,$Avg_TotalLayout_Time_Percentage,$Avg_TotalPageLoad_Time\n");

 close(HISTORY);