Commit 5b048c63 authored by Leigh Stoller's avatar Leigh Stoller

Silence/redirect warnings.

parent 784b91bc
......@@ -40,7 +40,8 @@ require "@prefix@/etc/node_usage.conf";
my $prep = 1;
my $results = 1;
my $fresh = 0;
my $debug = 0;
my $fresh = 0;
# Turn off line buffering on output
$| = 1;
......@@ -69,7 +70,6 @@ while (my ($class,$type) = $qr->fetchrow()) {
$node_class{'?'} = '?';
my %oos = ();
my $rpidx;
if (@NODE_OOS_EXPT > 0) {
my $eidclause = join(" or ", map("eid='$_'", @NODE_OOS_EXPT));
$qr = DBQueryFatal("select idx from experiments where pid='emulab-ops'".
......@@ -77,14 +77,14 @@ if (@NODE_OOS_EXPT > 0) {
while (my ($idx) = $qr->fetchrow()) {
$oos{$idx} = 1;
}
print "Will skip experiments: ", join(' ', keys %oos), "\n";
print "Will skip experiments: ", join(' ', keys %oos), "\n"
if ($debug);
}
# XXX find the reloadpending exptid for a hack below
my $rpidx;
$qr = DBQueryFatal("select idx from experiments where pid='emulab-ops'".
" and eid='reloadpending'");
$rpidx = $qr->fetchrow();
my $rpidx = $qr->fetchrow();
our %last_trans;
our %node_state;
......
#!/usr/bin/perl
#
# Copyright (c) 2009 University of Utah and the Flux Group.
# Copyright (c) 2009-2015 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -29,6 +29,12 @@ require "@prefix@/etc/node_usage.conf";
my $num = @to_plot;
# Load the Testbed support stuff.
use lib "@prefix@/lib";
use emutil;
my $debug = 0;
chdir "@prefix@/data/node_usage";
sub true {1}
......@@ -87,7 +93,11 @@ sub plot ( $@ ) {
print F "plot ", join(",\\\n ", @plot_lines), "\n\n";
close F;
system("/usr/local/bin/gnuplot node_usage-$what.gpl");
my $output =
emutil::ExecQuiet("/usr/local/bin/gnuplot node_usage-$what.gpl");
if (($? || $debug) && $output ne "") {
print STDERR $output;
}
}
plot("hourly_last2weeks",timefmt=>'%Y-%m-%d_%H:$M', format_x=>'%a\n%m/%d');
......
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