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
490773f1
Commit
490773f1
authored
Sep 29, 2003
by
Leigh B. Stoller
Browse files
Dopey script to merge existing exptstate into batchstate.
parent
17fd96c4
Changes
1
Hide whitespace changes
Inline
Side-by-side
sql/newstates.pl
0 → 100644
View file @
490773f1
#!/usr/bin/perl -wT
use
English
;
use
Errno
;
#use POSIX;
#use Socket;
#use BSD::Resource;
#use URI::Escape;
use
lib
"
/usr/testbed/lib
";
use
libdb
;
use
libtestbed
;
my
$query_result
=
DBQueryFatal
("
select pid,eid,state
"
.
"
from experiments where batchmode=0
");
while
(
my
(
$pid
,
$eid
,
$state
)
=
$query_result
->
fetchrow_array
)
{
my
$batchstate
;
if
(
$state
eq
EXPTSTATE_ACTIVATING
)
{
$batchstate
=
BATCHSTATE_ACTIVATING
;
}
elsif
(
$state
eq
EXPTSTATE_ACTIVE
)
{
$batchstate
=
BATCHSTATE_RUNNING
;
}
elsif
(
$state
eq
EXPTSTATE_SWAPPED
)
{
$batchstate
=
BATCHSTATE_PAUSED
;
}
elsif
(
$state
eq
EXPTSTATE_SWAPPING
||
$state
eq
EXPTSTATE_TERMINATING
||
$state
eq
EXPTSTATE_TERMINATED
)
{
$batchstate
=
BATCHSTATE_TERMINATING
;
}
elsif
(
$state
eq
EXPTSTATE_NEW
||
$state
eq
EXPTSTATE_PRERUN
)
{
$batchstate
=
BATCHSTATE_PAUSED
;
}
print
"
update experiments set batchstate='
$batchstate
'
"
.
"
where pid='
$pid
' and eid='
$eid
';
\n
";
}
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