WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/dstatus.pl



my %rname;
my %official;
my $indefinite = 0;
my $ff_string = "\f";
my $dead_time = ( 5 * 60 ) * 2;
my %StateData = ( 0 => 'Undefined',
                  1 => 'Disk Full',
                  2 => 'Paused',
                  3 => 'Active',
                  4 => 'Idle' ,
                  5 => 'Waiting',
                  6 => 'Publishing',

            }
            $sth->finish();
        }
        else
        {
        Error("Execute failure: getGlobal" );
        }
    }
    else
    {
        Error("Prepare failure: getGlobal" );
    }
}
 
#-------------------------------------------------------------------------------
# Function        : GetConfigData

    # First get details from pv_id
 
    my $m_sqlstr = "SELECT rc.RCON_ID, rc.RTAG_ID, rc.GBE_ID, rc.DAEMON_HOSTNAME, " .
                          "rc.DAEMON_MODE, rc.GBE_BUILDFILTER, rt.RTAG_NAME, " .
                          "p.PROJ_NAME, rt.OFFICIAL" .
                    " FROM release_manager.release_config rc, release_manager.RELEASE_TAGS rt, release_manager.PROJECTS p" .
                    " WHERE      rt.RTAG_ID = rc.RTAG_ID " .
                            "AND rt.PROJ_ID = p.PROJ_ID " .
                            "AND rt.OFFICIAL != 'A' " .
                            "AND rt.OFFICIAL != 'Y' "
                            ;

            }
            $sth->finish();
        }
        else
        {
        Error("Execute failure: GetConfigData" );
        }
    }
    else
    {
        Error("Prepare failure: GetConfigData" );
    }
}
 
#-------------------------------------------------------------------------------
# Function        : GetRunData

    # First get details from pv_id
 
    my $m_sqlstr = "SELECT rl.RCON_ID, rl.CURRENT_BUILD_FILES, rl.CURRENT_RUN_LEVEL, rl.PAUSE, " .
                            "rl.CURRENT_PKG_ID_BEING_BUILT, pkg.PKG_NAME, " .
                            "rl.KEEP_ALIVE, TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE))" .
                    " FROM RELEASE_MANAGER.RUN_LEVEL rl, RELEASE_MANAGER.PACKAGES pkg" .
                    " WHERE pkg.PKG_ID (+)= rl.CURRENT_PKG_ID_BEING_BUILT";
 
 
    my $sth = $RM_DB->prepare($m_sqlstr);
    if ( defined($sth) )

                while ( @row = $sth->fetchrow_array )
                {
#                    print "@row\n";
                    my $rcon_id = $row[0] || '';
                    my $cbf     = $row[1] || '';
                    my $crl     = $row[2] || '0';
                    my $pause   = $row[3] || '0';
                    my $cpid    = $row[5] || '';
                    my $alive   = $row[6] || '';
                    my $deltat  = $row[7] || '0';
 

Rev 275	Rev 289
Line 39...	Line 39...
39	`my %rname;`	39	`my %rname;`
40	`my %official;`	40	`my %official;`
41	`my $indefinite = 0;`	41	`my $indefinite = 0;`
42	`my $ff_string = "\f";`	42	`my $ff_string = "\f";`
43	`my $dead_time = ( 5 * 60 ) * 2;`	43	`my $dead_time = ( 5 * 60 ) * 2;`
44	`my %StateData = ( 1 => 'Disk Full',`	44	`my %StateData = ( 0 => 'Undefined',`
-		45	`1 => 'Disk Full',`
45	`2 => 'Paused',`	46	`2 => 'Paused',`
46	`3 => 'Active',`	47	`3 => 'Active',`
47	`4 => 'Idle' ,`	48	`4 => 'Idle' ,`
48	`5 => 'Waiting',`	49	`5 => 'Waiting',`
49	`6 => 'Publishing',`	50	`6 => 'Publishing',`
Line 295...	Line 296...
295	`}`	296	`}`
296	`$sth->finish();`	297	`$sth->finish();`
297	`}`	298	`}`
298	`else`	299	`else`
299	`{`	300	`{`
300	`Error("Execute failure" );`	301	`Error("Execute failure: getGlobal" );`
301	`}`	302	`}`
302	`}`	303	`}`
303	`else`	304	`else`
304	`{`	305	`{`
305	`Error("Prepare failure" );`	306	`Error("Prepare failure: getGlobal" );`
306	`}`	307	`}`
307	`}`	308	`}`
308		309
309	`#-------------------------------------------------------------------------------`	310	`#-------------------------------------------------------------------------------`
310	`# Function : GetConfigData`	311	`# Function : GetConfigData`
Line 327...	Line 328...
327	`# First get details from pv_id`	328	`# First get details from pv_id`
328		329
329	`my $m_sqlstr = "SELECT rc.RCON_ID, rc.RTAG_ID, rc.GBE_ID, rc.DAEMON_HOSTNAME, " .`	330	`my $m_sqlstr = "SELECT rc.RCON_ID, rc.RTAG_ID, rc.GBE_ID, rc.DAEMON_HOSTNAME, " .`
330	`"rc.DAEMON_MODE, rc.GBE_BUILDFILTER, rt.RTAG_NAME, " .`	331	`"rc.DAEMON_MODE, rc.GBE_BUILDFILTER, rt.RTAG_NAME, " .`
331	`"p.PROJ_NAME, rt.OFFICIAL" .`	332	`"p.PROJ_NAME, rt.OFFICIAL" .`
332	`" FROM release_config rc, RELEASE_TAGS rt, PROJECTS p" .`	333	`" FROM release_manager.release_config rc, release_manager.RELEASE_TAGS rt, release_manager.PROJECTS p" .`
333	`" WHERE rt.RTAG_ID = rc.RTAG_ID " .`	334	`" WHERE rt.RTAG_ID = rc.RTAG_ID " .`
334	`"AND rt.PROJ_ID = p.PROJ_ID " .`	335	`"AND rt.PROJ_ID = p.PROJ_ID " .`
335	`"AND rt.OFFICIAL != 'A' " .`	336	`"AND rt.OFFICIAL != 'A' " .`
336	`"AND rt.OFFICIAL != 'Y' "`	337	`"AND rt.OFFICIAL != 'Y' "`
337	`;`	338	`;`
Line 381...	Line 382...
381	`}`	382	`}`
382	`$sth->finish();`	383	`$sth->finish();`
383	`}`	384	`}`
384	`else`	385	`else`
385	`{`	386	`{`
386	`Error("Execute failure" );`	387	`Error("Execute failure: GetConfigData" );`
387	`}`	388	`}`
388	`}`	389	`}`
389	`else`	390	`else`
390	`{`	391	`{`
391	`Error("Prepare failure" );`	392	`Error("Prepare failure: GetConfigData" );`
392	`}`	393	`}`
393	`}`	394	`}`
394		395
395	`#-------------------------------------------------------------------------------`	396	`#-------------------------------------------------------------------------------`
396	`# Function : GetRunData`	397	`# Function : GetRunData`
Line 412...	Line 413...
412	`# First get details from pv_id`	413	`# First get details from pv_id`
413		414
414	`my $m_sqlstr = "SELECT rl.RCON_ID, rl.CURRENT_BUILD_FILES, rl.CURRENT_RUN_LEVEL, rl.PAUSE, " .`	415	`my $m_sqlstr = "SELECT rl.RCON_ID, rl.CURRENT_BUILD_FILES, rl.CURRENT_RUN_LEVEL, rl.PAUSE, " .`
415	`"rl.CURRENT_PKG_ID_BEING_BUILT, pkg.PKG_NAME, " .`	416	`"rl.CURRENT_PKG_ID_BEING_BUILT, pkg.PKG_NAME, " .`
416	`"rl.KEEP_ALIVE, TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE))" .`	417	`"rl.KEEP_ALIVE, TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE))" .`
417	`" FROM RUN_LEVEL rl, PACKAGES pkg" .`	418	`" FROM RELEASE_MANAGER.RUN_LEVEL rl, RELEASE_MANAGER.PACKAGES pkg" .`
418	`" WHERE pkg.PKG_ID (+)= rl.CURRENT_PKG_ID_BEING_BUILT";`	419	`" WHERE pkg.PKG_ID (+)= rl.CURRENT_PKG_ID_BEING_BUILT";`
419		420
420		421
421	`my $sth = $RM_DB->prepare($m_sqlstr);`	422	`my $sth = $RM_DB->prepare($m_sqlstr);`
422	`if ( defined($sth) )`	423	`if ( defined($sth) )`
Line 428...	Line 429...
428	`while ( @row = $sth->fetchrow_array )`	429	`while ( @row = $sth->fetchrow_array )`
429	`{`	430	`{`
430	`# print "@row\n";`	431	`# print "@row\n";`
431	`my $rcon_id = $row[0] \|\| '';`	432	`my $rcon_id = $row[0] \|\| '';`
432	`my $cbf = $row[1] \|\| '';`	433	`my $cbf = $row[1] \|\| '';`
433	`my $crl = $row[2] \|\| '-';`	434	`my $crl = $row[2] \|\| '0';`
434	`my $pause = $row[3] \|\| '0';`	435	`my $pause = $row[3] \|\| '0';`
435	`my $cpid = $row[5] \|\| '';`	436	`my $cpid = $row[5] \|\| '';`
436	`my $alive = $row[6] \|\| '';`	437	`my $alive = $row[6] \|\| '';`
437	`my $deltat = $row[7] \|\| '0';`	438	`my $deltat = $row[7] \|\| '0';`
438		439

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/dstatus.pl – Rev 275 → 289