my( $self, $color ) = @_;
foreach( $self->service_objects() ) {
- if (! defined $_) { next; }
if( $_->color() eq $color ) { return 1; } }
return 0;
my( $services, @problist, $probtime, $summary );
foreach $service ( $self->service_objects() ) {
- if ( ! defined $service ) { next; }
if( $service->has_problem() ) {
push( @problist, $service->name() );
$summary = $service->summary();
my( $services, @problist, $probtime, $summary );
foreach $service ( $self->service_objects() ) {
- if( ! defined $service ) { next; }
if( $service->has_problem() ) {
push( @problist, $service->name() );
$summary = $service->summary();