/[nagraffiti]/backend/lib/Nagraph.pm
ViewVC logotype

Diff of /backend/lib/Nagraph.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 46 by racvision, Fri Apr 19 09:25:43 2013 UTC revision 47 by racvision, Wed Apr 24 12:58:51 2013 UTC
# Line 231  sub saveCheckResult($) { Line 231  sub saveCheckResult($) {
231  #                       $self->{'logger'}->error("Enable to write to $data_file: ".$!) ;  #                       $self->{'logger'}->error("Enable to write to $data_file: ".$!) ;
232  #               }  #               }
233          }          }
234            if ( 1 ) {
235                    my $debugFile = $self->getHostDirName().'/debug.log';
236    
237                    if ( -f $debugFile ) {
238                            if ( open (DEBUG, ">>$debugFile")  ) {
239    #                               print DEBUG '$dsValues='.Dumper($dsValues)."\n";
240    
241                                    print DEBUG $check{'start_ts'}.':'.$self->{'service'}.':';
242                                    foreach my $ds (keys %{$dsValues}) {
243                                            print DEBUG ' '.$dsValues->{$ds}{'label'}.'='.$dsValues->{$ds}{'value'}.$dsValues->{$ds}{'uom'};
244                                    }
245                                    print DEBUG "\n  ".$check{'perfdata'}."\n";
246                                    close (DEBUG);
247    
248                            } else {
249                                    $self->{'logger'}->error("Enable to write to $debugFile: ".$!) ;
250                                    exit 1;
251                            }
252                    }
253            }
254          $self->{'total_check_count'}++;          $self->{'total_check_count'}++;
255          $self->{'group_check_count'}++;          $self->{'group_check_count'}++;
256    
# Line 349  sub parsePerfdata($) { Line 368  sub parsePerfdata($) {
368          }          }
369    
370    
371          if ( $ds == 0 ) {  #       if ( $ds == 0 ) {
372                  # no datasource found  #               # no datasource found
373                  $self->{'logger'}->warn("No data source found in this check : ");  #               $self->{'logger'}->warn("No data source found in this check : ");
374  #               return;  #               return;
375          }  #       }
376          return \%dsValues;          return \%dsValues;
377    
378  }  }
# Line 418  sub saveToRrd { Line 437  sub saveToRrd {
437                                  $self->{'logger'}->debug("Drop outdated sample (based on rrd last_update) : ".$lastsample_ts.' < '.$self->{'dsInfos'}{$ds}{'rrd_last_update'});                                  $self->{'logger'}->debug("Drop outdated sample (based on rrd last_update) : ".$lastsample_ts.' < '.$self->{'dsInfos'}{$ds}{'rrd_last_update'});
438                                  next;                                  next;
439                          }                          }
440                          $haveData = 1;  
441                          push(@{$ds_update{$ds}}, $sample->{'start_ts'}.':'.$sample->{'ds'}{$ds}{'value'});                          if ( defined($sample->{'ds'}{$ds}{'value'} ) ) {
442                                    push(@{$ds_update{$ds}}, $sample->{'start_ts'}.':'.$sample->{'ds'}{$ds}{'value'});
443                                    $haveData = 1;
444                            } elsif ( $ds ne '_state_' )  {
445                                    $self->{'logger'}->error('Value not set for "'.$self->{'hostname'}.'/'.$self->{'service'}.'" ds='.$ds.' : '.Dumper($sample));
446                            }
447                  }                  }
448                  $sample_count += $haveData;                  $sample_count += $haveData;
449          }          }

Legend:
Removed from v.46  
changed lines
  Added in v.47

  ViewVC Help
Powered by ViewVC 1.1.8