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";