currentusage.php3 8.54 KB
Newer Older
1 2
<?php
#
3
# Copyright (c) 2000-2011 University of Utah and the Flux Group.
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
# 
# {{{EMULAB-LICENSE
# 
# This file is part of the Emulab network testbed software.
# 
# This file is free software: you can redistribute it and/or modify it
# under the terms of the GNU Affero General Public License as published by
# the Free Software Foundation, either version 3 of the License, or (at
# your option) any later version.
# 
# This file is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General Public
# License for more details.
# 
# You should have received a copy of the GNU Affero General Public License
# along with this file.  If not, see <http://www.gnu.org/licenses/>.
# 
# }}}
23 24
#
require("defs.php3");
25 26 27 28
#
# This script uses Sajax ... BEWARE!
#
require("Sajax.php");
29

Leigh B. Stoller's avatar
Leigh B. Stoller committed
30 31
#
# Get current user.
32 33
#
$this_user = CheckLogin($check_status);
34

Leigh B. Stoller's avatar
Leigh B. Stoller committed
35 36 37
#
# For anonymous users, show experiment stats.
#
38
function SHOWSTATS($mini = 0)
Leigh B. Stoller's avatar
Leigh B. Stoller committed
39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
{
    $query_result =
	DBQueryFatal("select count(*) from experiments as e " .
	     "left join experiment_stats as s on s.exptidx=e.idx " .
	     "left join experiment_resources as rs on rs.idx=s.rsrcidx ".
	     "where state='active' and rs.pnodes>0 and " .
		     "      e.pid!='emulab-ops' and ".
		     "      not (e.pid='ron' and e.eid='all')");
    
    if (mysql_num_rows($query_result) != 1) {
	$active_expts = "ERR";
    }
    else {
	$row = mysql_fetch_array($query_result);
	$active_expts = $row[0];
    }

    $query_result =
	DBQueryFatal("select count(*) from experiments where ".
		     "state='swapped' and pid!='emulab-ops' and ".
		     "pid!='testbed'");
    if (mysql_num_rows($query_result) != 1) {
	$swapped_expts = "ERR";
    }
    else {
	$row = mysql_fetch_array($query_result);
	$swapped_expts = $row[0];
    }

    $query_result =
	DBQueryFatal("select count(*) from experiments where ".
70
		     "state='active' and swap_requests > 0 and idle_ignore=0 ".
Leigh B. Stoller's avatar
Leigh B. Stoller committed
71 72 73 74 75 76 77 78 79
		     "and pid!='emulab-ops' and pid!='testbed'");
    if (mysql_num_rows($query_result) != 1) {
	$idle_expts = "ERR";
    }
    else {
	$row = mysql_fetch_array($query_result);
	$idle_expts = $row[0];
    }
    $freepcs = TBFreePCs();
80

81 82
    $output = "<table valign=top align=center width=100% height=100%
                    cellpadding=0 cellspacing=1 border=0>
83 84 85 86 87 88 89 90 91 92 93
                <tr><th nowrap colspan=2 class='usagetitle'>
	            Current Experiments</th></tr>
                <tr><td class=menuoptusage align=right>$active_expts</td>
                    <td align=left class=menuoptusage>
                        <a target=_parent href=explist.php3#active>Active</a>
                    </td></tr>
                <tr><td align=right class=menuoptusage>$idle_expts</td>
                    <td align=left  class=menuoptusage>Idle</td></tr>
                <tr><td align=right class=menuoptusage>$swapped_expts</td>
                    <td align=left  class=menuoptusage>
                        <a target=_parent href=explist.php3#swapped>Swapped</a>
94 95 96
                    </td></tr>";
    if (!$mini) {
	$output .= "<tr><td align=right class=menuoptusage>
97 98 99
                        <font size=+1>$freepcs</font></td>
                    <td align=left  class=menuoptusage>
                        <font size=+1>Free PCs</font></td>
100 101 102
                </tr>";
    }
    $output .= "</table>\n";
103
    return $output;
104 105
}

106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132
#
# Logged in users, show free node counts.
#
function ShowStatus()
{
    $freepcs = TBFreePCs();
    $reload  = TBReloadingPCs();
    $users   = TBLoggedIn();
    $active  = TBActiveExperiments();
    $output  = "";

    $output .= "<table valign=top align=center width=100% height=100% 
		 cellspacing=1 cellpadding=0>";

    $output .= "<tr><td nowrap class=usagefreenodes>$freepcs Free PCs</td>".
	"</tr>\n";
    $output .= "<tr><td nowrap class=usagefreenodes>$reload PCs reloading</td>".
	"</tr>\n";
    $output .= "<tr><td nowrap class=usagefreenodes>$users active users</td>".
	"</tr>\n";
    $output .= "<tr><td nowrap class=usagefreenodes>$active active expts.</td>".
	"</tr>\n";
    
    $output .= "</table>";
    return $output;
}

Leigh B. Stoller's avatar
Leigh B. Stoller committed
133 134 135 136 137
#
# Logged in users, show free node counts.
#
function SHOWFREENODES()
{
138 139
    $freecounts = array();
    
140 141 142 143 144 145 146 147 148
    # Get typelist and set freecounts to zero.
    $query_result =
	DBQueryFatal("select n.type from nodes as n ".
		     "left join node_types as nt on n.type=nt.type ".
		     "where (role='testnode') and class='pc' ");
    while ($row = mysql_fetch_array($query_result)) {
	$type              = $row[0];
	$freecounts[$type] = 0;
    }
149 150 151 152 153

    if (!count($freecounts)) {
	return "";
    }
	
Leigh B. Stoller's avatar
Leigh B. Stoller committed
154 155 156 157 158 159
    # Get free totals by type.
    $query_result =
	DBQueryFatal("select n.eventstate,n.type,count(*) from nodes as n ".
		     "left join node_types as nt on n.type=nt.type ".
		     "left join reserved as r on r.node_id=n.node_id ".
		     "where (role='testnode') and class='pc' ".
160
		     "      and r.pid is null and n.reserved_pid is null ".
Leigh B. Stoller's avatar
Leigh B. Stoller committed
161 162 163 164 165 166 167 168 169 170
		     "group BY n.eventstate,n.type");

    while ($row = mysql_fetch_array($query_result)) {
	$type  = $row[1];
	$count = $row[2];
        # XXX Yeah, I'm a doofus and can't figure out how to do this in SQL.
	if (($row[0] == TBDB_NODESTATE_ISUP) ||
	    ($row[0] == TBDB_NODESTATE_PXEWAIT) ||
	    ($row[0] == TBDB_NODESTATE_ALWAYSUP) ||
	    ($row[0] == TBDB_NODESTATE_POWEROFF)) {
171
	    $freecounts[$type] += $count;
Leigh B. Stoller's avatar
Leigh B. Stoller committed
172 173
	}
    }
174
    $output = "";
175

176 177 178
    $freepcs   = TBFreePCs();
    $reloading = TBReloadingPCs();

179 180 181 182
    $output .= "<table valign=top align=center width=100% height=100% border=1
		 cellspacing=1 cellpadding=0>
                 <tr><td nowrap colspan=8 class=usagefreenodes align=center>
 	           <b>$freepcs Free PCs, $reloading reloading</b></td></tr>\n";
Leigh B. Stoller's avatar
Leigh B. Stoller committed
183

184 185
    $pccount = count($freecounts);
    $newrow  = 1;
186 187
    $maxcols = (int) ($pccount / 3);
    if ($pccount % 3)
188 189
	$maxcols++;
    $cols    = 0;
Leigh B. Stoller's avatar
Leigh B. Stoller committed
190 191 192
    foreach($freecounts as $key => $value) {
	$freecount = $freecounts[$key];

193
	if ($newrow) {
194
	    $output .= "<tr>\n";
195
	}
Leigh B. Stoller's avatar
Leigh B. Stoller committed
196
	
197
	$output .= "<td class=usagefreenodes align=right>
198 199
                     <a target=_parent href=shownodetype.php3?node_type=$key>
                        $key</a></td>
200
                    <td class=usagefreenodes align=left>${freecount}</td>\n";
Leigh B. Stoller's avatar
Leigh B. Stoller committed
201

202 203
	$cols++;
	$newrow = 0;
204
	if ($cols == $maxcols || $pccount <= 3) {
205 206 207 208 209
	    $cols   = 0;
	    $newrow = 1;
	}

	if ($newrow) {
210
	    $output .= "</tr>\n";
Leigh B. Stoller's avatar
Leigh B. Stoller committed
211 212
	}
    }
213 214 215
    if (! $newrow) {
        # Fill out to $maxcols
	for ($i = $cols + 1; $i <= $maxcols; $i++) {
216 217
	    $output .= "<td class=usagefreenodes>&nbsp</td>";
	    $output .= "<td class=usagefreenodes>&nbsp</td>";
218 219
	}
	$output .= "</tr>\n";
Leigh B. Stoller's avatar
Leigh B. Stoller committed
220
    }
221 222 223
    # Fill in up to 3 rows.
    if ($pccount < 3) {
	for ($i = $pccount + 1; $i <= 3; $i++) {
224 225
	    $output .= "<tr><td class=usagefreenodes>&nbsp</td>
                            <td class=usagefreenodes>&nbsp</td></tr>\n";
226 227
	}
    }
228

229 230 231 232 233 234 235
    $output .= "</table>";
    return $output;
}

#
# This is for the Sajax request.
#
236
function FreeNodeHtml($usagemode = null) {
237
    global $this_user;
238

239
    if ($this_user) {
240 241 242
	if ($usagemode == null || $usagemode == "status") {
	    return ShowStatus();
	}
243 244 245
	elseif ($usagemode == "stats") {
	    return SHOWSTATS(1);
	}
246 247 248
	else {
	    return SHOWFREENODES();
	}
249 250 251 252
    }
    else {
	return SHOWSTATS();
    }
Leigh B. Stoller's avatar
Leigh B. Stoller committed
253
}
254 255 256 257 258 259 260 261 262 263 264

#
# We need all errors to come back this function so that the Sajax request
# fails and the timer is terminated. See below.
# 
function handle_error($message, $death)
{
    echo "failed:$message";
    # Always exit; ignore $death.
    exit(1);
}
Leigh B. Stoller's avatar
Leigh B. Stoller committed
265 266
     
#
267
# If user is anonymous, show experiment stats, otherwise useful info.
Leigh B. Stoller's avatar
Leigh B. Stoller committed
268
# 
269
if ($this_user) {
270 271
    sajax_init();
    sajax_export("FreeNodeHtml");
272 273 274 275 276 277 278 279

    # If this call is to client request function, then turn off
    # interactive mode; errors will cause the Sajax request to fail
    # and the timer to stop.
    if (sajax_client_request()) {
	$session_interactive  = 0;
	$session_errorhandler = 'handle_error';
    }
280 281 282 283 284 285 286 287
    sajax_handle_client_request();

    PAGEBEGINNING("Free Node Summary", 1, 1);
    echo "<script>\n";
    sajax_show_javascript();

    ?>
    function FreeNodeHtml_CB(stuff) {
288
	getObjbyName('usagefreenodes').innerHTML = stuff;
289
	setTimeout('GetFreeNodeHtml()', 60000);
290 291 292
    }
    function GetFreeNodeHtml() {
	x_FreeNodeHtml(FreeNodeHtml_CB);
293
    }
294 295
    setTimeout('GetFreeNodeHtml()', 60000);
    
296 297 298
    <?php
    echo "</script>\n";
	  
299 300
    echo "<div id=usagefreenodes>\n";
    echo   ShowStatus();
301 302
    echo "</div>\n";
    echo "</body></html>";
Leigh B. Stoller's avatar
Leigh B. Stoller committed
303 304
}
else {
305 306 307 308 309
    PAGEBEGINNING("Current Usage", 1, 1);
    echo "<div id=usage>\n";
    echo   SHOWSTATS();
    echo "</div>\n";
    echo "</body></html>";
310
}
Mike Hibler's avatar
Mike Hibler committed
311
?>