Commit ff18c71c authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Left out of previous revision; use web task to return new res idx for

lookup.
parent 724ec1f4
#!/usr/bin/perl -w
#
# Copyright (c) 2016 University of Utah and the Flux Group.
# Copyright (c) 2016-2017 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -562,7 +562,10 @@ while( 1 ) {
"reservation system to $TBOPS.\n" .
"Thank you for your assistance in debugging this\n" .
"feature!\n" ) unless( $quiet );
if (defined($webtask)) {
$webtask->Exited(0);
$webtask->reservation($res->idx());
}
exit( 0 );
} else {
# We just booked a reservation we didn't pre-approve. It requires
......@@ -582,6 +585,10 @@ while( 1 ) {
" reserve -a -m $idx\n" .
"on boss.\n" ) unless( $quiet );
if (defined($webtask)) {
$webtask->Exited(2);
$webtask->reservation($res->idx());
}
exit( 2 );
}
}
Supports Markdown
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