ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/reports/php/latest/latest.php
Revision: 1.28
Committed: Sat Mar 17 22:27:22 2001 UTC (23 years, 7 months ago) by pjm2
Branch: MAIN
Changes since 1.27: +27 -6 lines
Log Message:
Blimey, added all the stuff needed to make reports on all the disks described
in the packet.

File Contents

# User Rev Content
1 pjm2 1.1 <?php
2    
3     # Navigation for the i-scream reports.
4     # pjm2@ukc.ac.uk
5     #
6     # CONFIGURABLE CONSTANTS: -
7    
8     include("latest_config.inc.php");
9    
10     #
11     # END CONFIGURATION
12    
13 pjm2 1.18 include("iutils.inc.php");
14 pjm2 1.1
15 pjm2 1.9 function printLine($title) {
16 pjm2 1.19 echo "<hr style=\"color:#9999ff;\">";
17 pjm2 1.9 echo "<b>$title</b>";
18 pjm2 1.6 }
19    
20 pjm2 1.1
21     function showStat($title, $value, $input) {
22 pjm2 1.24
23     $report = $value;
24    
25 pjm2 1.28 $value = getPregMatch($value, $input);
26 pjm2 1.1 if (empty($value)) {
27 pjm2 1.8 $value = "<i><font color=\"#999999\">not sent</font></i>";
28 pjm2 1.1 }
29     ?>
30     <table border="0" width="100%">
31     <tr>
32 pjm2 1.24 <td width="50%" align="right" valign="top">
33     <b><?=$title?></b>
34     </td>
35     <td width="50%" align="left" valign="top">
36     <? if (preg_match("/^[0-9]+\.?[0-9]*$/", $value)) {
37     linkToHistory($report);
38     } ?>
39     <?=$value?></td>
40 pjm2 1.1 </tr>
41     </table>
42     <?
43     }
44    
45    
46 pjm2 1.20 function linkToHistory($report) {
47     global $machine;
48     $yesterday = date("Y-m-d", time() - 86400);
49     echo <<<EOT
50 pjm2 1.23 <a href="browser.php?machine_name=$machine&report=$report&day=$yesterday&submit=Show"><img src="minichart.gif" alt="View yesterday's 24-hour chart" width="20" height="20" border="0"></a>
51 pjm2 1.20 EOT;
52     }
53    
54    
55 pjm2 1.28 # show all disk information.
56     function showDisks($diskRoot, $units, $input) {
57     include("latest_config.inc.php");
58    
59     $i = 0;
60     while(1) {
61     $name = getPregMatch("$diskRoot.p$i.attributes.name", $input);
62     if ($name) {
63     $mount = getPregMatch("$diskRoot.p$i.attributes.mount", $input);
64     $used = getPregMatch("$diskRoot.p$i.attributes.used", $input);
65     $kbytes = getPregMatch("$diskRoot.p$i.attributes.kbytes", $input);
66     showBar("$name ($mount)", $used, $kbytes, $units, $input);
67     }
68     $i++;
69     }
70     }
71    
72     # Return a preg_match result.
73     function getPregMatch($value, $input) {
74     preg_match("/$value=([^\,\}]*)\,\}/", $input, $matches);
75     return $matches[1];
76     }
77    
78    
79 pjm2 1.1 # show a bar-represented value.
80 pjm2 1.26 function showBar($title, $value, $max, $units, $input, $arrange='normal') {
81 pjm2 1.1
82     include("latest_config.inc.php");
83    
84 pjm2 1.22 $report = $value;
85    
86 pjm2 1.28 $value = getPregMatch($value, $input);
87 pjm2 1.1 if (!is_int($max)) {
88 pjm2 1.28 $max = getPregMatch($max, $input);
89 pjm2 1.1 }
90     if (empty($value) || empty($max)) {
91     return;
92     }
93    
94 pjm2 1.26 if ($arrange == 'swap') {
95 pjm2 1.27 $value = $max - $value;
96 pjm2 1.26 }
97 pjm2 1.27
98     $width = intval($max_width * $value / $max);
99 pjm2 1.1
100     ?>
101 pjm2 1.10 <table border="0" cellpadding="0" cellspacing="0" align="center">
102 pjm2 1.1 <tr>
103 pjm2 1.23 <td colspan="2"><? linkToHistory($report); ?> <b><?=$title?></b> <font size="2">(<?=$value?><?=$units?>)</font></td>
104 pjm2 1.1 </tr>
105     <tr>
106     <td colspan="2" bgcolor="#eeeeff"><img src="<?=$barImage?>" border="0" height="20" width="<?=$width?>"></td>
107     </tr>
108     <tr>
109     <td colspan="2"><img src="<?=$scaleImage?>" border="0" height="11" width="<?=$max_width?>"></td>
110     </tr>
111     <tr>
112 pjm2 1.13 <td align="left">0<?=$units?></td>
113     <td align="right"><?=$max?><?=$units?></td>
114 pjm2 1.1 </tr>
115 pjm2 1.15 <tr>
116     <td colspan="2">&nbsp;</td>
117     </tr>
118 pjm2 1.1 </table>
119     <?
120     }
121    
122    
123     ?>
124    
125     <? include($titleHTML); ?>
126    
127 pjm2 1.12 <? printLine("Display the latest information received from a host"); ?>
128 pjm2 1.1
129     <form method="<? echo $formMethod ?>" action="<? echo $thisPage ?>">
130     <?
131    
132 pjm2 1.5 $file_array = getdirArray($latestDirectory,'asort');
133 pjm2 1.1 print "<select size=\"1\" name=\"machine\">";
134     if ($machine) { ?>
135     <option selected value="<? echo $machine ?>"><? echo $machine ?></option>
136     <option value="">----------------</option>
137     <? }
138     foreach($file_array as $file_name) {
139 pjm2 1.3 #if (is_dir($file_name)) {
140 pjm2 1.1 print "<option value=\"$file_name\">$file_name</option>";
141 pjm2 1.3 #}
142 pjm2 1.1 }
143     print "</select>";
144    
145     ?>
146     <input type="submit" name="submit" value="Display">
147     </form>
148    
149     <? if ($machine) {
150    
151 pjm2 1.12 $last_modified = filemtime("$latestDirectory/$machine/$latestData");
152     clearstatcache();
153     $data_age = time() - $last_modified;
154    
155 pjm2 1.17 $last_modified = date("l jS F - g:ia", $last_modified);
156 pjm2 1.12
157     if ($data_age > $warning_age) {
158     $warning = <<<EOT
159     <br>
160     <font color="red"><b>
161     Warning:
162     </b></font>
163     This realtime report is too old to be considered recent
164     EOT;
165     }
166    
167     echo <<<EOT
168 pjm2 1.16 <table border="0" bgcolor="#000066" cellpadding="3" cellspacing="1">
169 pjm2 1.12 <tr>
170     <td bgcolor="#000066">
171     &nbsp;
172     </td>
173     <td bgcolor="#ffffcc">
174     <font face="arial,sans-serif" size="2">
175 pjm2 1.24 <b>Receipt date:</b> $last_modified
176 pjm2 1.12 $warning
177     </font>
178     </td>
179     </tr>
180     </table>
181     EOT;
182    
183 pjm2 1.1 # Read the file.
184 pjm2 1.25 if (file_exists("$latestDirectory/$machine/$latestData")) {
185     $input = file("$latestDirectory/$machine/$latestData");
186     # All we need is the first line if there is more than one line.
187     $input = $input[0];
188     }
189 pjm2 1.1
190     if (empty($input)) {
191 pjm2 1.25 echo "<br><br>There are currently no latest details about <b>$machine</b>. Please notify your i-scream server administrator if you believe this to be incorrect.";
192 pjm2 1.1 }
193     else {
194     # Display the data specified in the display include.
195     include("latest_display.inc.php");
196     }
197 pjm2 1.9 }
198 pjm2 1.12
199 pjm2 1.1 ?>
200    
201 pjm2 1.16 <? printLine(""); ?>
202 pjm2 1.1
203     <? include($bottomHTML); ?>