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