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.15
Committed: Sun Mar 11 21:46:46 2001 UTC (23 years, 7 months ago) by pjm2
Branch: MAIN
Changes since 1.14: +3 -0 lines
Log Message:
Graphs are now a little more spaced out so that there is no confusion
about which title belongs to which graph.

File Contents

# Content
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
14 # return an array of subdirectories from a directory.
15 function getdirArray($dir='./',$sort='asort') {
16 global $dir_file_count;
17 if ( is_dir($dir) ) {
18 $fd = @opendir($dir);
19 while ( ($part = @readdir($fd)) == TRUE ) {
20 clearstatcache();
21 if ($part != "." && $part != "..") {
22 $dir_array[] = $part;
23 }
24 }
25 if($fd == TRUE) {
26 closedir($fd);
27 }
28 if (is_array($dir_array)) {
29 $sort($dir_array);
30 $dir_file_count = count($dir_array);
31 Return $dir_array;
32 } else {
33 Return FALSE;
34 }
35 } else {
36 Return FALSE;
37 }
38 }
39
40 function printLine($title) {
41 echo "<hr color=\"#9999ff\">";
42 echo "<b>$title</b>";
43 }
44
45
46 function showStat($title, $value, $input) {
47 preg_match("/$value=([^\,]*)[\,\}]/", $input, $matches);
48 $value = $matches[1];
49 if (empty($value)) {
50 $value = "<i><font color=\"#999999\">not sent</font></i>";
51 }
52 ?>
53 <table border="0" width="100%">
54 <tr>
55 <td width="50%" align="right" valign="top"><b><?=$title?></b></td>
56 <td width="50%" align="left" valign="top"><?=$value?></td>
57 </tr>
58 </table>
59 <?
60 }
61
62
63 # show a bar-represented value.
64 function showBar($title, $value, $max, $units, $input) {
65
66 include("latest_config.inc.php");
67
68 preg_match("/$value=([^\,]*)\,/", $input, $matches);
69 $value = $matches[1];
70 if (!is_int($max)) {
71 preg_match("/$max=([^\,]*)\,/", $input, $matches);
72 $max = $matches[1];
73 }
74 if (empty($value) || empty($max)) {
75 return;
76 }
77
78 $width = intval($max_width * $value / $max);
79
80 ?>
81 <table border="0" cellpadding="0" cellspacing="0" align="center">
82 <tr>
83 <td colspan="2"><b><?=$title?></b> <font size="2">(<?=$value?><?=$units?>)</font></td>
84 </tr>
85 <tr>
86 <td colspan="2" bgcolor="#eeeeff"><img src="<?=$barImage?>" border="0" height="20" width="<?=$width?>"></td>
87 </tr>
88 <tr>
89 <td colspan="2"><img src="<?=$scaleImage?>" border="0" height="11" width="<?=$max_width?>"></td>
90 </tr>
91 <tr>
92 <td align="left">0<?=$units?></td>
93 <td align="right"><?=$max?><?=$units?></td>
94 </tr>
95 <tr>
96 <td colspan="2">&nbsp;</td>
97 </tr>
98 </table>
99 <?
100 }
101
102
103 ?>
104
105 <? include($titleHTML); ?>
106
107 <? printLine("Display the latest information received from a host"); ?>
108
109 <form method="<? echo $formMethod ?>" action="<? echo $thisPage ?>">
110 <?
111
112 $file_array = getdirArray($latestDirectory,'asort');
113 print "<select size=\"1\" name=\"machine\">";
114 if ($machine) { ?>
115 <option selected value="<? echo $machine ?>"><? echo $machine ?></option>
116 <option value="">----------------</option>
117 <? }
118 foreach($file_array as $file_name) {
119 #if (is_dir($file_name)) {
120 print "<option value=\"$file_name\">$file_name</option>";
121 #}
122 }
123 print "</select>";
124
125 ?>
126 <input type="submit" name="submit" value="Display">
127 </form>
128
129 <hr weight="1" color="<? echo $lineColor ?>">
130
131 <? if ($machine) {
132
133 $last_modified = filemtime("$latestDirectory/$machine/$latestData");
134 clearstatcache();
135 $data_age = time() - $last_modified;
136
137 $last_modified = strftime("%a %d %b %Y at %T", $last_modified);
138
139 if ($data_age > $warning_age) {
140 $warning = <<<EOT
141 <br>
142 <font color="red"><b>
143 Warning:
144 </b></font>
145 This realtime report is too old to be considered recent
146 EOT;
147 }
148
149 echo <<<EOT
150 <table border="0" bgcolor="#000066" cellpadding="3" cellspacing="1" align="center">
151 <tr>
152 <td bgcolor="#000066">
153 &nbsp;
154 </td>
155 <td bgcolor="#ffffcc">
156 <font face="arial,sans-serif" size="2">
157 <b>Recipt date:</b> $last_modified
158 $warning
159 </font>
160 </td>
161 </tr>
162 </table>
163 EOT;
164
165 # Read the file.
166 #$input = "packet.attributes.machine_name=raptor.ukc.ac.uk,packet.memory.free=10,packet.memory.total=100,";
167 $input = file("$latestDirectory/$machine/$latestData");
168 # All we need is the first line if there is more than one line.
169 $input = $input[0];
170
171 if (empty($input)) {
172 echo "<br><br>There was an error reading from the latest packet received. Please notify your i-scream server administrator.";
173 }
174 else {
175 # Display the data specified in the display include.
176 include("latest_display.inc.php");
177 }
178
179 printLine("");
180 }
181
182 ?>
183
184
185 <? include($bottomHTML); ?>