102 lines
2.4 KiB
Perl
102 lines
2.4 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# Version: 1.3
|
||
|
|
#
|
||
|
|
# Copyright (C) 2001 Niclas Andersson
|
||
|
|
# National Supercomputer Centre, Sweden
|
||
|
|
#
|
||
|
|
|
||
|
|
# NOTE: script must be configured by setting the following variables
|
||
|
|
|
||
|
|
$MAUIPATH="/usr/local/maui/bin";
|
||
|
|
$CGIPATH="/home/www/bin";
|
||
|
|
$MACHINENAME="Ingvar";
|
||
|
|
|
||
|
|
use CGI qw/:standard/;
|
||
|
|
|
||
|
|
$refresh = 900;
|
||
|
|
|
||
|
|
$bggrid5 = "bggrid5.gif"; # URL
|
||
|
|
|
||
|
|
$style = <<EOF;
|
||
|
|
p,th,td { font-family: Arial,Helvetica; }
|
||
|
|
/* mauireswww */
|
||
|
|
.nodename { font-size: 12px; text-align: right; }
|
||
|
|
.nodealloc td { font-size: 12px}
|
||
|
|
.nodealloc th { font-style: bold; text-align: left; background: url($bggrid5); background-color: #ffffa0; }
|
||
|
|
.reservations { fontsize: 1px; white-space: pre; background: url($bggrid5); background-color: #ffffa0; }
|
||
|
|
.legend { font-size: 14px}
|
||
|
|
.note { color: #800000 }
|
||
|
|
EOF
|
||
|
|
|
||
|
|
# newline
|
||
|
|
sub nl() { return "\n"; }
|
||
|
|
|
||
|
|
$date = localtime();
|
||
|
|
|
||
|
|
print header(-expires=>'+1m',
|
||
|
|
-Refresh=>"$refresh; URL=" . url());
|
||
|
|
print start_html(-title=>'${MACHINENAME} Status',
|
||
|
|
-bgcolor=>'#ffffff',
|
||
|
|
-head=>style($style));
|
||
|
|
print
|
||
|
|
h1('${MACHINENAME} Status'), nl,
|
||
|
|
h4($date), nl, hr({-noshade});
|
||
|
|
|
||
|
|
#--------------------------------------------------------------------------
|
||
|
|
|
||
|
|
print h3("Node Reservations:");
|
||
|
|
|
||
|
|
open(NODERES, "${MAUIPATH}/showres -n | ${CGIPATH}/mauireswww |")
|
||
|
|
or die;
|
||
|
|
@restbl = <NODERES>;
|
||
|
|
close(NODERES);
|
||
|
|
print @restbl;
|
||
|
|
|
||
|
|
print p, <<EOF;
|
||
|
|
The priority of idle jobs, whether their projects have normal
|
||
|
|
or bonus priority is not yet shown.
|
||
|
|
Normal priority jobs are always scheduled before idle, not started,
|
||
|
|
bonus priority jobs.
|
||
|
|
|
||
|
|
<p><b class="note">Note:</b>
|
||
|
|
All advance job reservation is target for rescheduling
|
||
|
|
every scheduling iteration (60 seconds) and whenever new jobs
|
||
|
|
enter the batch system.
|
||
|
|
|
||
|
|
<p><a href="mauistatus.html">Description of the graph</a>
|
||
|
|
EOF
|
||
|
|
|
||
|
|
#--------------------------------------------------------------------------
|
||
|
|
|
||
|
|
print hr({-noshade}), nl, h3("Job Status:");
|
||
|
|
open(SHOWQ, "${MAUIPATH}/showq |") or die;
|
||
|
|
while (<SHOWQ>) {
|
||
|
|
if (/ACTIVE JOBS/) {
|
||
|
|
print h4("Active Jobs"), "<pre>";
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
if (/IDLE JOBS/) {
|
||
|
|
print "</pre>", h4("Idle Jobs"), "<pre>";
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
if (/NON-QUEUED JOBS/) {
|
||
|
|
print "</pre>", h4("Non-Queued Jobs"), "<pre>";
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
if (/JOBNAME/) {
|
||
|
|
print b($_);
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
print;
|
||
|
|
}
|
||
|
|
print "</PRE>";
|
||
|
|
close(SHOWQ);
|
||
|
|
|
||
|
|
#--------------------------------------------------------------------------
|
||
|
|
|
||
|
|
print hr({-noshade}), nl,
|
||
|
|
address(a({-href=>'/~nican/'}, "Niclas Andersson")),
|
||
|
|
end_html, nl;
|
||
|
|
|