Skip to content
GitLab
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
d48173fb
Commit
d48173fb
authored
Feb 25, 2003
by
Leigh B. Stoller
Browse files
Minor edits that I never committed.
parent
058fa63f
Changes
1
Hide whitespace changes
Inline
Side-by-side
tbsetup/startexp.in
View file @
d48173fb
...
...
@@ -2,7 +2,7 @@
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-200
2
University of Utah and the Flux Group.
# Copyright (c) 2000-200
3
University of Utah and the Flux Group.
# All rights reserved.
#
...
...
@@ -249,7 +249,7 @@ if (! $frontend) {
#
if
(
ExpNodes
(
$pid
,
$eid
)
>
2
)
{
my
$vlans_result
=
DBQueryFatal
("
select
*
from vlans where
"
.
DBQueryFatal
("
select
pid
from v
irt_
lans where
"
.
"
pid='
$pid
' and eid='
$eid
'
");
if
(
!
$vlans_result
->
numrows
)
{
...
...
@@ -271,9 +271,11 @@ if (system("$tbdir/tbreport -b $pid $eid 2>&1 > $repfile") != 0) {
#
# Increment the project experiment count/lastdate. This is informational.
#
DBQueryWarn
("
update projects
"
.
"
set expt_count=expt_count+1, expt_last=now()
"
.
"
where pid='
$pid
'
");
if
(
!
$frontend
)
{
DBQueryWarn
("
update projects
"
.
"
set expt_count=expt_count+1, expt_last=now()
"
.
"
where pid='
$pid
'
");
}
#
# Gen up a date for the started field of the record, and insert it.
...
...
@@ -321,13 +323,26 @@ TBExptCloseLogFile($pid, $eid);
#
# Dump the report file and the log file to the user via email.
#
my
$message
=
"
Your experiment `
$eid
' in project `
$pid
' is now configured.
\n
"
.
"
Here is the experiment summary detailing the nodes that were
\n
"
.
"
allocated to you. You may use the `Qualified Name' to log on
\n
"
.
"
to your nodes. See /etc/hosts on your nodes (when running
\n
"
.
"
FreeBSD, Linux, or NetBSD) for the IP mapping on each node
\n
"
.
"
\n
"
.
my
$message
;
if
(
$frontend
)
{
$message
=
"
Your experiment `
$eid
' in project `
$pid
' is now preloaded.
\n
"
.
"
You can check the web interface to see if it looks the way
\n
"
.
"
you expected it to. If so, you may swap the experiment in,
\n
"
.
"
or terminate it, at any time.
\n
"
.
"
\n
";
}
else
{
$message
=
"
Your experiment `
$eid
' in project `
$pid
' is now configured.
\n
"
.
"
Here is the experiment summary detailing the nodes that were
\n
"
.
"
allocated to you. You may use the `Qualified Name' to log on
\n
"
.
"
to your nodes. See /etc/hosts on your nodes (when running
\n
"
.
"
FreeBSD, Linux, or NetBSD) for the IP mapping on each node.
\n
"
.
"
\n
";
}
$message
.=
"
User:
$user_name
\n
"
.
"
EID:
$eid
\n
"
.
"
PID:
$pid
\n
"
.
...
...
@@ -344,7 +359,8 @@ my $message =
SENDMAIL
("
$user_name
<
$user_email
>
",
"
New Experiment Created:
$pid
/
$eid
",
"
New Experiment
"
.
((
$frontend
==
0
)
?
"
Created
"
:
"
Preloaded
")
.
"
:
$pid
/
$eid
",
$message
,
"
$user_name
<
$user_email
>
",
"
Bcc:
$TBLOGS
",
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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