#! /bin/csh
#
# idlenext : find a black next which is idling
#
# by Takuya Fujishima, fujishim@ccrma
# Feb.26, 1998

# database
set nexts = ( cmn1 cmn2 cmn3 cmn4 cmn5 cmn6 cmn7 cmn8 cmn9 cmn10 cmn11 cmn13 cmn14 cmn15 cmn16 cmn17 cmn18 cmn19 cmn20 cmn24 cmn28 )

# verbose mode
set verb = 0
if ( $#argv >= 1 ) then 
    if ( $argv[1] == '-v' ) set verb = 1
endif


set loads = ()

foreach machine ( $nexts )
    if ( $verb ) echo -n "$machine "
    endif
    set load = `rsh $machine w | gawk 'NR==1{ sub(/^.*average:[ \t]*/,""); sub(/\,.*$/,"");print$0;}'`
    if ( $verb ) echo $load
    set loads = ($loads $machine $load)
end
echo $loads | gawk 'BEGIN{machine="";minload=-1;}{for(k=0;k<NF;++k){if(match($k,/^cmn/)&&(minload<0||$(k+1)<minload)){minload = $(k+1);machine=$k;++k;}}}END{print machine;}'
exit 0