Subversion Repositories DevTools

Rev

Rev 6267 | Rev 6440 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6267 Rev 6268
Line 473... Line 473...
473
                              Dim currentRunLevel
473
                              Dim currentRunLevel
474
                              Dim daemonState
474
                              Dim daemonState
475
                              Dim delta
475
                              Dim delta
476
                              Dim pkgId
476
                              Dim pkgId
477
                              Dim bActive : bActive = rsQry("active")
477
                              Dim bActive : bActive = rsQry("active")
-
 
478
                              If bActive = "N" Then bInactiveMachine = true
478
 
479
 
479
                              ' For this release configuration, get its entry from the run_level table. This table may not
480
                              ' For this release configuration, get its entry from the run_level table. This table may not
480
                              ' have an entry so we must handle that outcome too.
481
                              ' have an entry so we must handle that outcome too.
481
                              query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_
482
                              query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_
482
                                             "        TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_
483
                                             "        TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_