rrd monitoring

[deniswork at uzvik.kiev.ua]

Здравствуйте, после прочтения
Сбор Статиcтики О Работе Сервера nginx При Помощи rrdtool http://blog.kovyrin.net/2006/04/29/monitoring-nginx-with-rrdtool/lang/ru/
Сделал себе так-же,
но график какой-то странный,
http://piccy.info/view/e48f774072e02014ae3728a9a3b17a81/
не совпадает с значениями из /nginx_status
я уже менял (как в коментах к статье написано http://blog.kovyrin.net/2006/04/29/monitoring-nginx-with-rrdtool/lang/ru/#comment-1902 ) код √ не помогло,

Как добиться правильного отображения?

Спасибо


#!/usr/bin/perl
use RRDs;
use LWP::UserAgent;

# define location of rrdtool databases
my $rrd = '/home/denis/rrd';
# define location of images
my $img = '/home/denis/rrd';
# define your nginx stats URL
my $URL = "http://site.com/nginx_status";


my $ua = LWP::UserAgent->new(timeout => 30);
my $response = $ua->request(HTTP::Request->new('GET', $URL));

my $requests = 0;
my $total =  0;
my $reading = 0;
my $writing = 0;
my $waiting = 0;

foreach (split(/\n/, $response->content)) {
  $total = $1 if (/^Active connections:\s+(\d+)/);
  if (/^Reading:\s+(\d+).*Writing:\s+(\d+).*Waiting:\s+(\d+)/) {
    $reading = $1;
    $writing = $2;
    $waiting = $3;
  }
  $requests = $3 if (/^\s+(\d+)\s+(\d+)\s+(\d+)/);
}

print "RQ:$requests; TT:$total; RD:$reading; WR:$writing; WA:$waiting\n";

# if rrdtool database doesn't exist, create it
if (! -e "$rrd/nginx.rrd") {
  RRDs::create "$rrd/nginx.rrd",
        "-s 60",
        "DS:requests:COUNTER:120:0:100000000",
        "DS:total:GAUGE:120:0:60000",
        "DS:reading:GAUGE:120:0:60000",
        "DS:writing:GAUGE:120:0:60000",
        "DS:waiting:GAUGE:120:0:60000",
        "RRA:AVERAGE:0.5:1:2880",
        "RRA:AVERAGE:0.5:30:672",
        "RRA:AVERAGE:0.5:120:732",
        "RRA:AVERAGE:0.5:720:1460";
}

# insert values into rrd database
RRDs::update "$rrd/nginx.rrd",
  "-t", "requests:total:reading:writing:waiting",
  "N:$requests:$total:$reading:$writing:$waiting";

# Generate graphs
CreateGraphs("day");
CreateGraphs("week");
CreateGraphs("month");
CreateGraphs("year");

#------------------------------------------------------------------------------
sub CreateGraphs($){
  my $period = shift;
  
  RRDs::graph "$img/requests-$period.png",
                "-s -1$period",
                "-t Requests on nginx",
                "--lazy",
                "-h", "150", "-w", "700",
                "-l 0",
                "-a", "PNG",
                "-v requests/sec",
                "DEF:requests=$rrd/nginx.rrd:requests:AVERAGE",
                "LINE2:requests#336600:Requests",
                "GPRINT:requests:MAX:  Max\\: %5.1lf %S",
                "GPRINT:requests:AVERAGE: Avg\\: %5.1lf %S",
                "GPRINT:requests:LAST: Current\\: %5.1lf %Sreq/sec",
                "HRULE:0#000000";
  if ($ERROR = RRDs::error) { 
    print "$0: unable to generate $period graph: $ERROR\n"; 
  }

  RRDs::graph "$img/connections-$period.png",
                "-s -1$period",
                "-t Connections on nginx",
                "--lazy",
                "-h", "150", "-w", "700",
                "-l 0",
                "-a", "PNG",
                "-v requests/sec",
                "DEF:total=$rrd/nginx.rrd:total:AVERAGE",
                "DEF:reading=$rrd/nginx.rrd:reading:AVERAGE",
                "DEF:writing=$rrd/nginx.rrd:writing:AVERAGE",
                "DEF:waiting=$rrd/nginx.rrd:waiting:AVERAGE",

                "LINE2:total#22FF22:Total",
                "GPRINT:total:LAST:   Current\\: %5.1lf %S",
                "GPRINT:total:MIN:  Min\\: %5.1lf %S",
                "GPRINT:total:AVERAGE: Avg\\: %5.1lf %S",
                "GPRINT:total:MAX:  Max\\: %5.1lf %S\\n",
                
                "LINE2:reading#0022FF:Reading",
                "GPRINT:reading:LAST: Current\\: %5.1lf %S",
                "GPRINT:reading:MIN:  Min\\: %5.1lf %S",
                "GPRINT:reading:AVERAGE: Avg\\: %5.1lf %S",
                "GPRINT:reading:MAX:  Max\\: %5.1lf %S\\n",
                
                "LINE2:writing#FF0000:Writing",
                "GPRINT:writing:LAST: Current\\: %5.1lf %S",
                "GPRINT:writing:MIN:  Min\\: %5.1lf %S",
                "GPRINT:writing:AVERAGE: Avg\\: %5.1lf %S",
                "GPRINT:writing:MAX:  Max\\: %5.1lf %S\\n",
                
                "LINE2:waiting#00AAAA:Waiting",
                "GPRINT:waiting:LAST: Current\\: %5.1lf %S",
                "GPRINT:waiting:MIN:  Min\\: %5.1lf %S",
                "GPRINT:waiting:AVERAGE: Avg\\: %5.1lf %S",
                "GPRINT:waiting:MAX:  Max\\: %5.1lf %S\\n",

                "HRULE:0#000000";
  if ($ERROR = RRDs::error) { 
    print "$0: unable to generate $period graph: $ERROR\n"; 
  }
}