Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
emulab
emulab-devel
Commits
7d9c1f99
Commit
7d9c1f99
authored
Oct 02, 2000
by
Christopher Alfeld
Browse files
Updated to work with new tree. Now handles dnards.
parent
0d4e5c02
Changes
1
Show whitespace changes
Inline
Side-by-side
tbsetup/tbprerun.tcl
View file @
7d9c1f99
...
...
@@ -96,8 +96,6 @@ if {[catch "exec $postparse $nsFile $irFile >@ $logFp 2>@ $logFp" err]} {
exit 1
}
exit 1
outs
"Locking the world!"
set wait
{
15 30 60 600 600
}
set waiti 0
...
...
@@ -114,7 +112,7 @@ while {[catch "open $lockfile {WRONLY CREAT EXCL}" lockfp]} {
close $lockfp
outs
"Determining available resources."
if
{[
catch
"exec
$avail
type=pc ver extras
|
$ptopgen
>
$ptopfile
2>@
$log
Fp"
err
]}
{
if
{[
catch
"exec
$avail
|
$ptopgen
>
$ptopfile
2>@
$log
Fp"
err
]}
{
outs stderr
"Error determining available resources. (
$err
)"
unlock
exit 1
...
...
@@ -143,11 +141,11 @@ if {[catch "exec $reserve $prefix $machines >@ $logFp 2>@ $logFp" err]} {
unlock
outs
"Allocating IP addresses."
if
{[
catch
"exec
$handle
_ip
$ir
File
$ns
File >@
$log
Fp 2>@
$log
Fp"
err
]}
{
outs stderr
"Error allocating IP addresses. (
$err
)"
exit 1
}
outs
"
PLACEHOLDER -
Allocating IP addresses."
#
if
{[
catch
"exec
$handle
_ip
$ir
File
$ns
File >@
$log
Fp 2>@
$log
Fp"
err
]}
{
#
outs stderr
"Error allocating IP addresses. (
$err
)"
#
exit 1
#
}
outs
"Setup finished -
$ir
File generated."
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment