Commit 1e0b190b authored by Leigh Stoller's avatar Leigh Stoller

Write new reservation checking results to /usr/testbed/etc/rescheck.txt

parent be17f1f2
......@@ -1713,6 +1713,7 @@ sub DoCheckReservation()
sub CheckReservationInternal($$$)
{
my ($slice, $expiration, $perrmsg) = @_;
my $rescheck = "$TB/etc/rescheck.txt";
my $errcode = -1;
my $errmsg;
......@@ -1773,8 +1774,16 @@ sub CheckReservationInternal($$$)
$agg->webtask()->Refresh();
$errmsg = $agg->webtask()->output();
$errcode = $agg->webtask()->exitcode();
if ($code == GENIRESPONSE_REFUSED) {
system("/bin/echo 'DENIED: $slice, $expiration, $agg' ".
" >> $rescheck");
}
goto bad;
}
else {
system("/bin/echo 'ACCEPT: $slice, $expiration, $agg' ".
" >> $rescheck");
}
}
return 0;
......
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