michael@0: ########################################################################################## michael@0: # michael@0: # This Source Code Form is subject to the terms of the Mozilla Public michael@0: # License, v. 2.0. If a copy of the MPL was not distributed with this michael@0: # file, You can obtain one at http://mozilla.org/MPL/2.0/. michael@0: michael@0: ############################################# michael@0: # User-defined variables michael@0: # michael@0: $machineStats = "WinNT 4.0 (sp5), 450 MHz, 128mg RAM"; michael@0: # michael@0: ############################################# michael@0: michael@0: sub debug_print { michael@0: foreach $str (@_){ michael@0: # print( $str ); michael@0: } michael@0: } michael@0: michael@0: @ARGV; michael@0: #$buildRoot = $ARGV[0]; michael@0: #$buildIDFile = '< '.$buildRoot.'\bin\chrome\locales\en-US\navigator\locale\navigator.dtd'; michael@0: $pullDate = $ARGV[1]; michael@0: $useClockTime = $ARGV[2]; michael@0: michael@0: #open (XUL_FILE, $buildIDFile) or die "Unable to open BuildID file $buildIDFile (header.pl)"; michael@0: #$BuildNo = ""; michael@0: #$LineList; michael@0: #while () michael@0: #{ michael@0: # $ThisLine = $_; michael@0: # chop ($ThisLine); michael@0: # if (/Build ID/){ michael@0: # @LineList = split (/\"/, $ThisLine); michael@0: # $BuildNo = $LineList[1]; michael@0: # } michael@0: #} michael@0: #$BuildNo =~ s/"//g; michael@0: #$BuildNo =~ s/[>]//g; michael@0: #close (XUL_FILE); michael@0: #debug_print ($BuildNo); michael@0: michael@0: ############################################# michael@0: michael@0: ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime; michael@0: %weekday= ( michael@0: "1", "$day", michael@0: '2', 'Tuesday', michael@0: '3', 'Wednesday', michael@0: '4', 'Thursday', michael@0: '5', 'Friday', michael@0: '6', 'Saturday', michael@0: '7', 'Sunday', michael@0: ); michael@0: $mon += 1; michael@0: $year += 1900; michael@0: michael@0: open (TABLE_FILE, ">table.html"); michael@0: michael@0: print (TABLE_FILE "Top 40 Sites - File Load Performance Metrics"); michael@0: print (TABLE_FILE "Seamonkey Win32"); michael@0: print (TABLE_FILE "
"); michael@0: print (TABLE_FILE "$pullDate"); michael@0: print (TABLE_FILE "
"); michael@0: print (TABLE_FILE "$weekday{$wday} "); michael@0: print (TABLE_FILE "$mon/$mday/$year "); michael@0: printf (TABLE_FILE "%02d:%02d:%02d", $hour, $min, $sec); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE "
"); michael@0: print (TABLE_FILE "\n"); michael@0: print (TABLE_FILE "$machineStats\n"); michael@0: print (TABLE_FILE "
"); michael@0: if($useClockTime){ michael@0: print (TABLE_FILE "Time is reported in Seconds of Clock time"); michael@0: } else { michael@0: print (TABLE_FILE "Time is reported in Seconds of CPU time"); michael@0: } michael@0: print (TABLE_FILE "\n"); michael@0: print (TABLE_FILE "
\n\n"); michael@0: michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE ""); michael@0: print (TABLE_FILE "\n\n"); michael@0: close (TABLE_FILE);

"); michael@0: print (TABLE_FILE "Parsing"); michael@0: print (TABLE_FILE "

"); michael@0: print (TABLE_FILE "Content Creation"); michael@0: print (TABLE_FILE "

"); michael@0: print (TABLE_FILE "Frame Creation"); michael@0: print (TABLE_FILE "

"); michael@0: print (TABLE_FILE "Style Resolution"); michael@0: print (TABLE_FILE "

"); michael@0: print (TABLE_FILE "Reflow"); michael@0: print (TABLE_FILE "

"); michael@0: print (TABLE_FILE "Total Layout Time"); michael@0: print (TABLE_FILE "

"); michael@0: print (TABLE_FILE "Total Page Load Time"); michael@0: print (TABLE_FILE "

"); michael@0: print (TABLE_FILE "Sites"); michael@0: print (TABLE_FILE "