tools/performance/layout/perf.pl

   1 ##########################################################################################
   2 #
   3 # ***** BEGIN LICENSE BLOCK *****
   4 # Version: MPL 1.1/GPL 2.0/LGPL 2.1
   5 #
   6 # The contents of this file are subject to the Mozilla Public License Version
   7 # 1.1 (the "License"); you may not use this file except in compliance with
   8 # the License. You may obtain a copy of the License at
   9 # http://www.mozilla.org/MPL/
  10 #
  11 # Software distributed under the License is distributed on an "AS IS" basis,
  12 # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
  13 # for the specific language governing rights and limitations under the
  14 # License.
  15 #
  16 # The Original Code is mozilla.org code.
  17 #
  18 # The Initial Developer of the Original Code is
  19 # Netscape Communications Corporation.
  20 # Portions created by the Initial Developer are Copyright (C) 1998
  21 # the Initial Developer. All Rights Reserved.
  22 #
  23 # Contributor(s):
  24 #   2/10/00 attinasi
  25 #
  26 # Alternatively, the contents of this file may be used under the terms of
  27 # either the GNU General Public License Version 2 or later (the "GPL"), or
  28 # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
  29 # in which case the provisions of the GPL or the LGPL are applicable instead
  30 # of those above. If you wish to allow use of your version of this file only
  31 # under the terms of either the GPL or the LGPL, and not to allow others to
  32 # use your version of this file under the terms of the MPL, indicate your
  33 # decision by deleting the provisions above and replace them with the notice
  34 # and other provisions required by the GPL or the LGPL. If you do not delete
  35 # the provisions above, a recipient may use your version of this file under
  36 # the terms of any one of the MPL, the GPL or the LGPL.
  37 #
  38 # ***** END LICENSE BLOCK *****
  39
  40 # 1) Load Mozilla with an argument indicating where to find the URLs to cycle through
  41 # 2) Uncombine the logfile into a log for each site
  42 # 3) Run the script genfromlogs.pl to process the logs and generate the chart
  43 # 4) Rename the chart to the ID provided
  44 # 5) Run the script history.pl to generate the history chart
  45 # 6) Move the files to a directory just for them...
  46
  47 $UseViewer = 1;    # set to 0 to use Mozilla
  48 $UseClockTime=0;   # if third argument is 'clock' this gets set to 1
  49
  50 # Get and check the arguments
  51 @ARGV;
  52 $ID = $ARGV[0];
  53 $bldRoot = $ARGV[1];
  54 $clockTimeArg = $ARGV[2];
  55 $profID = $ARGV[3];
  56 $arg=0;
  57 $cmdLineArg[$arg++] = "-f ";
  58 ##$cmdLineArg[$arg++] = "S:\\mozilla\\tools\\performance\\layout\\40-url-dup.txt ";
  59 $cmdLineArg[$arg++] = "D:\\mozilla\\tools\\performance\\layout\\40-url.txt ";
  60 if($UseViewer==0){
  61   $cmdLineArg[$arg++] = "-ftimeout ";
  62   $cmdLineArg[$arg++] = "10 ";
  63   $cmdLineArg[$arg++] = "-P ";
  64   $cmdLineArg[$arg++] = "$profID ";
  65 }
  66
  67 if($UseViewer==0){
  68   if(!$ID || !$bldRoot || !$profID || !$clockTimeArg){
  69     die "ID, Build Root, Profile Name, and clock OR CPU must be provided. \n - Example: 'perl perf.pl Daily_021400 s:\\moz\\daily\\0214  clock|cpu Attinasi' \n";
  70   }
  71 } else {
  72   if(!$ID || !$bldRoot || !$clockTimeArg){
  73     die "ID, Build Root, and clock OR CPU must be provided. \n - Example: 'perl perf.pl Daily_021400 s:\\moz\\daily\\0214 clock|CPU' \n";
  74   }
  75 }
  76
  77 # build up a full path and argument strings for the invocation
  78 $mozPath;
  79 $logName;
  80 if($UseViewer==0){
  81   $mozPath=$bldRoot."\\bin\\Mozilla.exe";
  82 } else {
  83   $mozPath=$bldRoot."\\bin\\Viewer.exe";
  84 }
  85 $logName="Logs\\".$ID."-combined.dat";
  86
  87 -e $mozPath or die "$mozPath could not be found\n";
  88
  89 if($clockTimeArg eq "clock"){
  90   $UseClockTime=1;
  91   print( "Charting Clock time...\n");
  92   die "Clock Time Does Not Yet Work! <sorry>";
  93 } else {
  94   print( "Charting CPU time...\n");
  95 }
  96
  97 # run it
  98 $commandLine = $mozPath." ".$cmdLineArg[0].$cmdLineArg[1].$cmdLineArg[2].$cmdLineArg[3].$cmdLineArg[4].$cmdLineArg[5]."> $logName";
  99 print("Running $commandLine\n");
 100 system ("$commandLine") == 0 or die "Cannot invoke Mozilla\n";
 101
 102 # uncombine the output file
 103 print("Breaking result into log files...\n");
 104 system( ("perl", "uncombine.pl", "$logName") ) == 0 or die "Error uncombining the output\n";
 105
 106 # generate the chart from the logs
 107 if($UseClockTime==1){
 108   print("Generating performance table... (ClockTime)\n");
 109   system( ("perl", "genfromlogs.pl", "$ID", "$bldRoot", "clock") ) == 0 or die "Error generating the clock-time chart from the logs\n";
 110 } else {
 111   print("Generating performance table...(CPUTime)\n");
 112   system( ("perl", "genfromlogs.pl", "$ID", "$bldRoot") ) == 0 or die "Error generating the cpu-time chart from the logs\n";
 113 }
 114
 115 # rename the output
 116 system( ("copy", "table.html", "Tables\\$ID\.html") ) == 0 or die "Error copying table.html to Tables\\$ID\.html\n";
 117
 118 # run the history script
 119 print("Generating history table...\n");
 120 system( ("perl", "history.pl") ) == 0 or die "Could not execute the history.pl script\n";
 121
 122 # rename the output
 123 system( ("copy", "TrendTable.html", "Tables\\$ID-TrendTable.html") ) == 0 or die "could not copy TrendTable.html to Tables\\$ID-TrendTable.html\n";
 124
 125 # save off the files
 126 system( ("mkdir", "Logs\\$ID") );
 127 system( ("copy", "Logs\\*.*", "Logs\\$ID\\*.*") ) == 0 or die "Cannot copy logfiles to Logs\\$ID\\*.*\n";
 128 system( ("copy", "history.txt", "Logs\\$ID-history.txt") ) == 0 or die "Cannot copy $ID_history.txt to Logs\n";
 129
 130 print("perf.pl DONE!\n");