Subversion Repositories DevTools

Rev

Rev 391 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 391 Rev 3845
Line 207... Line 207...
207
                    push @orders, $rcon_id;
207
                    push @orders, $rcon_id;
208
                }
208
                }
209
 
209
 
210
                #
210
                #
211
                #   Paused deamons don't maintain alive data
211
                #   Paused deamons don't maintain alive data
-
 
212
                #   Disabled daemons don't maintain alive data
212
                #
213
                #
213
                $paused += 1
214
                $paused += 1
214
                    if ( $rl{$rcon_id}{crl} == 2 );
215
                    if ( $rl{$rcon_id}{crl} == 2 );
215
 
216
 
-
 
217
                $paused += 1
-
 
218
                    if ( $rl{$rcon_id}{pause} == 2 );
-
 
219
                    
-
 
220
 
216
                $dead = 0
221
                $dead = 0
217
                    if ( $paused );
222
                    if ( $paused );
218
 
223
 
219
                $in_error ++
224
                $in_error ++
220
                    if ( $rl{$rcon_id}{crl} == 1 );
225
                    if ( $rl{$rcon_id}{crl} == 1 );
Line 242... Line 247...
242
                             printf "    %1.1s: %-20.20s %s%10s%s(%1.1s) %-20s %-20s (%5s)\n",
247
                             printf "    %1.1s: %-20.20s %s%10s%s(%1.1s) %-20s %-20s (%5s)\n",
243
                #                $rtag_id, $rcon_id,
248
                #                $rtag_id, $rcon_id,
244
                                $rc{$rtag_id}{$rcon_id}{hostmode},
249
                                $rc{$rtag_id}{$rcon_id}{hostmode},
245
                                $rc{$rtag_id}{$rcon_id}{hostname},
250
                                $rc{$rtag_id}{$rcon_id}{hostname},
246
                                $indefinite ? RED : RESET,
251
                                $indefinite ? RED : RESET,
247
                                $indefinite ? ('AllStop') : (getState($rl{$rcon_id}{crl})),
252
                                $indefinite ? ('AllStop') : (getState($rl{$rcon_id})),
248
                                RESET,
253
                                RESET,
249
                                defined ($rl{$rcon_id}{pause} ) ? $rl{$rcon_id}{pause} : '-',
254
                                defined ($rl{$rcon_id}{pause} ) ? $rl{$rcon_id}{pause} : '-',
250
                                $rl{$rcon_id}{cpid} || '-',
255
                                $rl{$rcon_id}{cpid} || '-',
251
                                $rl{$rcon_id}{alive} || '-',
256
                                $rl{$rcon_id}{alive} || '-',
252
                                $rl{$rcon_id}{deltat} || '-',
257
                                $rl{$rcon_id}{deltat} || '-',
Line 333... Line 338...
333
                          "p.PROJ_NAME, rt.OFFICIAL".
338
                          "p.PROJ_NAME, rt.OFFICIAL".
334
                    " FROM release_manager.release_config rc, " .
339
                    " FROM release_manager.release_config rc, " .
335
                           "release_manager.RELEASE_TAGS rt, " .
340
                           "release_manager.RELEASE_TAGS rt, " .
336
                           "release_manager.PROJECTS p, " .
341
                           "release_manager.PROJECTS p, " .
337
                           "release_manager.BUILD_MACHINE_CONFIG bm " .
342
                           "release_manager.BUILD_MACHINE_CONFIG bm " .
338
                    " WHERE      rt.RTAG_ID = rc.RTAG_ID " .
343
                    " WHERE       rt.RTAG_ID = rc.RTAG_ID" .
339
                            "AND rt.PROJ_ID = p.PROJ_ID " .
344
                            " AND rt.PROJ_ID = p.PROJ_ID" .
340
                            "AND rt.OFFICIAL != 'A' " .
345
                            " AND rt.OFFICIAL != 'A'" .
341
                            "AND rt.OFFICIAL != 'Y' " .
346
                            " AND rt.OFFICIAL != 'Y'" .
342
                            "AND rc.GBE_ID = bm.GBE_ID " .
347
                            " AND rc.GBE_ID = bm.GBE_ID" .
343
                            "AND rc.DAEMON_HOSTNAME is not null" .
348
                            " AND rc.DAEMON_HOSTNAME is not null" .
-
 
349
                            " AND rc.DAEMON_HOSTNAME = bm.MACHINE_HOSTNAME" .
344
                            "";
350
                            "";
345
 
351
 
346
    my $sth = $RM_DB->prepare($m_sqlstr);
352
    my $sth = $RM_DB->prepare($m_sqlstr);
347
    if ( defined($sth) )
353
    if ( defined($sth) )
348
    {
354
    {
Line 464... Line 470...
464
}
470
}
465
 
471
 
466
#-------------------------------------------------------------------------------
472
#-------------------------------------------------------------------------------
467
# Function        : getState
473
# Function        : getState
468
#
474
#
469
# Description     : Convert number into a nice state string
475
# Description     : Convert state into a nice state string
470
#
476
#
471
# Inputs          : 
477
# Inputs          : Ref for info
472
#
478
#
473
# Returns         : 
479
# Returns         : 
474
#
480
#
475
sub getState
481
sub getState
476
{
482
{
477
    my ($num) = @_;
483
    my ($rlidp) = @_;
478
    return "Undefined" unless ( defined $num );
484
    return "Undefined" unless ( defined $rlidp );
-
 
485
 
-
 
486
    my $num = $rlidp->{crl};
-
 
487
    my $pause = $rlidp->{pause};
-
 
488
    return "Undefined" unless ( defined $num && defined $pause );
-
 
489
 
-
 
490
    if ( $pause == 2 ) {
-
 
491
        return 'Disabled';
-
 
492
    } elsif ( $pause == 1 ) {
-
 
493
        return 'Paused';
-
 
494
    }
-
 
495
 
479
    if ( exists ($StateData{$num}) )
496
    if ( exists ($StateData{$num}) )
480
    {
497
    {
481
        return $StateData{$num};
498
        return $StateData{$num};
482
    }
499
    }
483
    return "Unknown:$num";
500
    return "Unknown:$num";