Script that plot nginx_status for localhost, run each minute in crontab

nginx-rrd_new.pl

#!/usr/bin/perl

use RRDs;
use LWP::UserAgent;

# define location of rrdtool databases
my $rrd = '/opt/rrd';
# define location of images
my $img = '/opt/rrd/html';
# define your nginx stats URL
my $URL = "http://localhost/nginx_status";

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

my $requests = 0;
my $connects = 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;
  }
 if (/^\s+(\d+)\s+(\d+)\s+(\d+)/) {
    $requests = $3;
    $connects = $1;
  }
}


# if rrdtool database doesn't exist, create it
if (! -e "$rrd/nginx.rrd") {
  RRDs::create "$rrd/nginx.rrd",
        "-s 60",
        "DS:connects:ABSOLUTE:120:0:100000000",
        "DS:requests:ABSOLUTE: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";
}

# get rqs
if (! -e "$rrd/nginx.rqs") {
  $rqs = 0;
} else {
  open RQS, "<$rrd/nginx.rqs";
  $rqs = $requests - <RQS>;
  close RQS;
  $rqs = $requests if ($rqs < 0);
}

# save requests
open RQS, ">$rrd/nginx.rqs";
print RQS $requests;
close RQS;

# get connects
if (! -e "$rrd/nginx.cns") {
  $cns = 0;
} else {
  open RQS, "<$rrd/nginx.cns";
  $cns = $connects - <RQS>;
  close RQS;
  $cns = $connects if ($cns < 0);
}

# save connects
open RQS, ">$rrd/nginx.cns";
print RQS $connects;
close RQS;


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


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

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


#------------------------------------------------------------------------------
sub CreateGraphs($){
  my $period = shift;
  
  RRDs::graph "$img/load-$period.png",
                "-s -1$period",
                "-t Requests/connects on nginx",
                "--lazy",
                "-h", "150", "-w", "700",
                "-l 0",
                "-a", "PNG",
                "-v requests/sec",
                "DEF:requests=$rrd/nginx.rrd:requests:AVERAGE",
                "DEF:connects=$rrd/nginx.rrd:connects:AVERAGE",

                "LINE2:connects#0022FF:Connections",
                "GPRINT:connects:MAX:  Max\\: %5.1lf %S",
                "GPRINT:connects:AVERAGE: Avg\\: %5.1lf %S",
                "GPRINT:connects:LAST: Current\\: %5.1lf %Sconn/sec\\n",

                "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 Connections",
                "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",

                "LINE1: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",

                "LINE1: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",

                "LINE1: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",

                "LINE1: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"; 
  }
}