Changeset 199
- Timestamp:
- 05/13/08 09:12:50
- Files:
-
- obskml/trunk/QAQC/GenPlatformUptimeWebpage.pl (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
obskml/trunk/QAQC/GenPlatformUptimeWebpage.pl
r198 r199 13 13 ############################################################################################################################## 14 14 #Revisions 15 #Rev: 1.2.0.0 16 #Author: DWR 17 #Changes: Added BODY background color tag for style. 15 18 #Rev: 1.1.0.0 16 19 #Author: DWR … … 19 22 use constant MICROSOFT_PLATFORM => 0; 20 23 24 =comment 21 25 use constant 22 26 { … … 27 31 RGB_MISSING => '4169e1', 28 32 }; 33 =cut 29 34 30 35 my $PLATFORMCSVFILE = "PlatformUptimePercentages.csv"; … … 67 72 68 73 print( $PlatformPercentHTMLFile "<html>\n" ); 69 print( $PlatformPercentHTMLFile "<BODY >\n" );74 print( $PlatformPercentHTMLFile "<BODY id=\"RGB_BODY_BG\" >\n" ); 70 75 71 76 print( $PlatformPercentHTMLFile "<link href=\"$strStyleSheet\" rel=\"stylesheet\" type=\"text/css\" media=\"screen\" />\n" ); … … 74 79 75 80 print( $PlatformPercentHTMLFile "<table border=\"1\">\n" ); 76 print( $PlatformPercentHTMLFile "<CAPTION><H2>Sensor Reporting Percentage</H2></CAPTION>\n" );81 #print( $PlatformPercentHTMLFile "<CAPTION><H2>Sensor Reporting Percentage</H2></CAPTION>\n" ); 77 82 foreach my $strLine (<$PlatformPercentCSVFile>) 78 83 {
