Changeset 217

Show
Ignore:
Timestamp:
06/27/08 16:41:12
Author:
dan
Message:

Sub: TabulatePlatformResults()
Changes: Added the sensor count out of expected interval value in the percentage output.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • obskml/trunk/QAQC/CalcPlatformUptimePercentage.pl

    r159 r217  
     1####################################################################################################### 
     2#Revisions 
     3#Rev: 1.1.0.0 
     4#Author: DWR 
     5#Date: 6/27/2008 
     6#Sub: TabulatePlatformResults() 
     7#Changes: Added the sensor count out of expected interval value in the percentage output. 
     8####################################################################################################### 
    19####################################################################################################### 
    210#This script uses a Test Profile XML file to query each platform's sensors and do a percentage uptime 
     
    2230#of shell commands. 
    2331 
    24 use constant MICROSOFT_PLATFORM => 0
     32use constant MICROSOFT_PLATFORM => 1
    2533 
    2634#1 enables the various debug print statements, 0 turns them off. 
     
    542550        print( "WARNING: Platform: $strPlatformID Sensor: $Sensor has $iMaxCnt updates when the specified update interval is $iUpdateInterval.\n"); 
    543551      } 
    544       $fSensorAvg = (( $fSensorAvg / $iDayCnt ) / $iUpdateInterval) * 100.0 ; 
     552      #DWR v1.1.0.0 
     553      my $fAvg = $fSensorAvg / $iDayCnt; 
     554      $fSensorAvg = ($fAvg / $iUpdateInterval) * 100.0 ; 
    545555      if( $iSensorCnt == 0 ) 
    546556      { 
     
    552562      }  
    553563      my $strSensorAvg = sprintf( "%.2f",$fSensorAvg ); 
    554       $strRow = $strRow."$strSensorAvg"; 
     564      $strRow = $strRow."$strSensorAvg($fAvg/$iUpdateInterval)"; 
    555565      if( $iUpdateDatabase ) 
    556566      {