Commit 856e729d authored by Leigh Stoller's avatar Leigh Stoller

Ignore shared hosts; we know they are idle and swaped in a long time.

parent b11928dd
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2012 University of Utah and the Flux Group.
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -121,7 +121,9 @@ if (! ($query_result =
"left join node_types as nt on nt.type=n.type ".
"where e.state='active' and ".
" e.expt_swapped < date_sub(now(), interval 1 day) and ".
" nt.isvirtnode=0 and nt.isremotenode=0 ".
" nt.isvirtnode=0 and nt.isremotenode=0 and ".
# Ignored shared hosts.
" and r.sharing_mode is null ".
"group by e.pid,e.eid ".
"having ncount>0 ".
"order by expt_swapped desc"))) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment