<?php
/*
 * This program is free software: you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation, either version 3 of the License, or (at your
 * option) any later version.  Please see LICENSE.txt at the top level of
 * the source code distribution for details.
 *
 * @package    LibreNMS
 * @subpackage graphs
 * @link       http://librenms.org
 * @copyright  2017 LibreNMS
 * @author     LibreNMS Contributors
*/

use LibreNMS\Config;

require 'includes/html/graphs/common.inc.php';

$rrddescr_len = 14; // length of the padded rrd_descr in legend

if ($width > '1500') {
    $rrddescr_len = 30;
} elseif ($width >= '500') {
    $rrddescr_len = 8;
    $rrddescr_len += min(30, round(($width - 320) / 15));
} else {
    $rrddescr_len = 8;
    $rrddescr_len += min(20, round(($width - 260) / 9.5));
}

$stacked = generate_stacked_graphs();

$units_descr = rrdtool_escape($units_descr, $rrddescr_len + 5);

if ($format == 'octets' || $format == 'bytes') {
    $units = 'Bps';
    $format = 'bits';
} else {
    $units = 'bps';
    $format = 'bits';
}

$i = 0;

if ($width > '500') {
    $rrd_options .= sprintf(" COMMENT:'%s'", $units_descr);
    $rrd_options .= sprintf(" COMMENT:'%12s'", "Current");
    $rrd_options .= sprintf(" COMMENT:'%10s'", "Average");
    $rrd_options .= sprintf(" COMMENT:'%10s'", "Maximum");
    if (!$$args['nototal']) {
        $rrd_options .= sprintf(" COMMENT:'%8s'", "Total");
    }
} else {
    $nototal = true;
    $rrd_options .= sprintf(" COMMENT:'%s'", $units_descr);
    $rrd_options .= sprintf(" COMMENT:'%12s'", "Now");
    $rrd_options .= sprintf(" COMMENT:'%10s'", "Avg");
    $rrd_options .= sprintf(" COMMENT:'%10s'", "Max");
}

if ($_GET['previous']) {
    $rrd_options .= sprintf(" COMMENT:'\t'", "");
    $rrd_options .= sprintf(" COMMENT:'%10s'", "P Avg");
    $rrd_options .= sprintf(" COMMENT:'%10s'", "P Max");
    if (!$args['nototal']) {
        $rrd_options .= sprintf(" COMMENT:'%8s'", "P Total");
    }
}

$rrd_options .= " COMMENT:'\\n'";

foreach ($rrd_list as $rrd) {
    if (!Config::get("graph_colours.$colours_in.$iter") || !Config::get("graph_colours.$colours_out.$iter")) {
        $iter = 0;
    }

    $colour_in = Config::get("graph_colours.$colours_in.$iter");
    $colour_out = Config::get("graph_colours.$colours_out.$iter");

    if ($rrd['colour_area_in']) {
        $colour_in = $rrd['colour_area_in'];
    }

    if ($rrd['colour_area_out']) {
        $colour_out = $rrd['colour_area_out'];
    }

    $rrd_options .= ' DEF:inB' . $i . '=' . $rrd['filename'] . ':' . $rrd['ds_in'] . ':AVERAGE ';
    $rrd_options .= ' DEF:outB' . $i . '=' . $rrd['filename'] . ':' . $rrd['ds_out'] . ':AVERAGE ';
    $rrd_options .= ' CDEF:octets' . $i . '=inB' . $i . ',outB' . $i . ',+';
    $rrd_options .= ' CDEF:inbits' . $i . '=inB' . $i . ",$multiplier,* ";
    $rrd_options .= ' CDEF:outbits' . $i . '=outB' . $i . ",$multiplier,*";
    $rrd_options .= ' CDEF:outbits' . $i . '_neg=outbits' . $i . ',' . $stacked['stacked'] . ',*';
    $rrd_options .= ' CDEF:bits' . $i . '=inbits' . $i . ',outbits' . $i . ',+';

    if ($_GET['previous']) {
        $rrd_options .= ' DEF:inB' . $i . 'X=' . $rrd['filename'] . ':' . $ds_in . ':AVERAGE:start=' . $prev_from . ':end=' . $from;
        $rrd_options .= ' DEF:outB' . $i . 'X=' . $rrd['filename'] . ':' . $ds_out . ':AVERAGE:start=' . $prev_from . ':end=' . $from;
        $rrd_options .= ' CDEF:octets' . $i . 'X=inB' . $i . 'X,outB' . $i . 'X,+';
        $rrd_options .= ' CDEF:inbits' . $i . 'X=inB' . $i . 'X' . ",$multiplier,* ";
        $rrd_options .= ' CDEF:outbits' . $i . 'X=outB' . $i . 'X' . ",$multiplier,*";
        $rrd_options .= ' CDEF:outbits' . $i . '_negX=outbits' . $i . 'X,' . $stacked['stacked'] . ',*';
        $rrd_options .= ' CDEF:bits' . $i . 'X=inbits' . $i . 'X,outbits' . $i . 'X,+';
        $rrd_options .= ' SHIFT:inB' . $i . "X:$period";
        $rrd_options .= ' SHIFT:outB' . $i . "X:$period";
    }

    if (!$args['nototal']) {
        $in_thing .= $seperator . 'inB' . $i . ',UN,0,' . 'inB' . $i . ',IF';
        $out_thing .= $seperator . 'outB' . $i . ',UN,0,' . 'outB' . $i . ',IF';
        $pluses .= $plus;
        $seperator = ',';
        $plus = ',+';

        $rrd_options .= ' VDEF:totinB' . $i . '=inB' . $i . ',TOTAL';
        $rrd_options .= ' VDEF:totoutB' . $i . '=outB' . $i . ',TOTAL';
        $rrd_options .= ' VDEF:tot' . $i . '=octets' . $i . ',TOTAL';
        if ($_GET['previous']) {
            $in_thingX .= $seperatorX . 'inB' . $i . 'X,UN,0,' . 'inB' . $i . 'X,IF';
            $out_thingX .= $seperatorX . 'outB' . $i . 'X,UN,0,' . 'outB' . $i . 'X,IF';
            $plusesX .= $plusX;
            $seperatorX = ',';
            $plusX = ',+';
            $rrd_options .= ' VDEF:totinB' . $i . 'X=inB' . $i . 'X,TOTAL';
            $rrd_options .= ' VDEF:totoutB' . $i . 'X=outB' . $i . 'X,TOTAL';
            $rrd_options .= ' VDEF:tot' . $i . 'X=octets' . $i . 'X,TOTAL';
        }
    }

    if ($i) {
        $stack = ':STACK';
    }

    if (!$nodetails) {
        $descr = rrdtool_escape($rrd['descr'], $rrddescr_len) . '  In';
        $descr_out = rrdtool_escape('', $rrddescr_len) . ' Out';
    }

    $rrd_options .= ' AREA:inbits' . $i . '#' . $colour_in . $stacked['transparency'] . ":'$descr'$stack";
    $rrd_options .= ' GPRINT:inbits' . $i . ':LAST:%6.'.$float_precision."lf%s$units";
    $rrd_options .= ' GPRINT:inbits' . $i . ':AVERAGE:%6.'.$float_precision."lf%s$units";
    $rrd_options .= ' GPRINT:inbits' . $i . ':MAX:%6.'.$float_precision."lf%s$units";

    if (!$args['nototal']) {
        $rrd_options .= ' GPRINT:totinB' . $i . ":%6.".$float_precision."lf%s$total_units";
    }

    if ($_GET['previous'] == 'yes') {
        $rrd_options .= " COMMENT:' \t'";
        $rrd_options .= ' GPRINT:inbits' . $i . 'X:AVERAGE:%6.'.$float_precision."lf%s$units";
        $rrd_options .= ' GPRINT:inbits' . $i . 'X:MAX:%6.'.$float_precision."lf%s$units";
        if (!$args['nototal']) {
            $rrd_options .= ' GPRINT:totinB' . $i . 'X' . ":%6.".$float_precision."lf%s$total_units";
        }
    }

    $rrd_options .= " COMMENT:'\\n'";
    $rrd_optionsb .= ' AREA:outbits' . $i . '_neg#' . $colour_out . $stacked['transparency'] . ":$stack";
    $rrd_options .= ' HRULE:999999999999999#' . $colour_out . ":'$descr_out'";
    $rrd_options .= ' GPRINT:outbits' . $i . ':LAST:%6.'.$float_precision."lf%s$units";
    $rrd_options .= ' GPRINT:outbits' . $i . ':AVERAGE:%6.'.$float_precision."lf%s$units";
    $rrd_options .= ' GPRINT:outbits' . $i . ':MAX:%6.'.$float_precision."lf%s$units";

    if (!$args['nototal']) {
        $rrd_options .= ' GPRINT:totoutB' . $i . ":%6.".$float_precision."lf%s$total_units";
    }

    if ($_GET['previous'] == 'yes') {
        $rrd_options .= " COMMENT:' \t'";
        $rrd_options .= ' GPRINT:outbits' . $i . 'X:AVERAGE:%6.'.$float_precision."lf%s$units";
        $rrd_options .= ' GPRINT:outbits' . $i . 'X:MAX:%6.'.$float_precision."lf%s$units";
        if (!$args['nototal']) {
            $rrd_options .= ' GPRINT:totoutB' . $i . 'X' . ":%6.".$float_precision."lf%s$total_units";
        }
    }

    $rrd_options .= " COMMENT:'\\n'";
    $i++;
    $iter++;
}


if ($_GET['previous'] == 'yes') {
    $rrd_options .= ' CDEF:inBX=' . $in_thingX . $plusesX;
    $rrd_options .= ' CDEF:outBX=' . $out_thingX . $plusesX;
    $rrd_options .= ' CDEF:octetsX=inBX,outBX,+';
    $rrd_options .= ' CDEF:doutBX=outBX,' . $stacked['stacked'] . ',*';
    $rrd_options .= ' CDEF:inbitsX=inBX,8,*';
    $rrd_options .= ' CDEF:outbitsX=outBX,8,*';
    $rrd_options .= ' CDEF:bitsX=inbitsX,outbitsX,+';
    $rrd_options .= ' CDEF:doutbitsX=doutBX,8,*';
    $rrd_options .= ' VDEF:percentile_inX=inbitsX,' . Config::get('percentile_value') . ',PERCENT';
    $rrd_options .= ' VDEF:percentile_outX=outbitsX,' . Config::get('percentile_value') . ',PERCENT';
    $rrd_options .= ' CDEF:dpercentile_outXn=doutbitsX,' . $stacked['stacked'] . ',*';
    $rrd_options .= ' VDEF:dpercentile_outXperc=dpercentile_outXn,' . Config::get('percentile_value') . ',PERCENT';
    $rrd_options .= ' CDEF:dpercentile_outXnd=doutbitsX,doutbitsX,-,dpercentile_outXperc,-1,*,+';
    $rrd_options .= ' VDEF:dpercentile_outXpercn=dpercentile_outXnd,FIRST';
    $rrd_options .= ' VDEF:totinX=inBX,TOTAL';
    $rrd_options .= ' VDEF:aveinX=inbitsX,AVERAGE';
    $rrd_options .= ' VDEF:totoutX=outBX,TOTAL';
    $rrd_options .= ' VDEF:aveoutX=outbitsX,AVERAGE';
    $rrd_options .= ' VDEF:totX=octetsX,TOTAL';
}

if ($_GET['previous'] == 'yes') {
    $rrd_options .= ' AREA:in' . $format . 'X#99999999' . $stacked['transparency'] . ':';
    $rrd_optionsb .= ' AREA:dout' . $format . 'X#99999999' . $transparency . ':';
    $rrd_options .= ' LINE1.25:in' . $format . 'X#666666:';
    $rrd_optionsb .= ' LINE1.25:dout' . $format . 'X#666666:';
}

if (!$args['nototal']) {
    $rrd_options .= ' CDEF:inB=' . $in_thing . $pluses;
    $rrd_options .= ' CDEF:outB=' . $out_thing . $pluses;
    $rrd_options .= ' CDEF:octets=inB,outB,+';
    $rrd_options .= ' CDEF:doutB=outB,' . $stacked['stacked'] . ',*';
    $rrd_options .= ' CDEF:inbits=inB,8,*';
    $rrd_options .= ' CDEF:outbits=outB,8,*';
    $rrd_options .= ' CDEF:bits=inbits,outbits,+';
    $rrd_options .= ' CDEF:doutbits=doutB,8,*';
    $rrd_options .= ' VDEF:percentile_in=inbits,' . Config::get('percentile_value') . ',PERCENT';
    $rrd_options .= ' VDEF:percentile_out=outbits,' . Config::get('percentile_value') . ',PERCENT';
    $rrd_options .= ' CDEF:dpercentile_outn=doutbits,' . $stacked['stacked'] . ',*';
    $rrd_options .= ' VDEF:dpercentile_outnp=dpercentile_outn,' . Config::get('percentile_value') . ',PERCENT';
    $rrd_options .= ' CDEF:dpercentile_outnpn=doutbits,doutbits,-,dpercentile_outnp,' . $stacked['stacked'] . ',*,+';
    $rrd_options .= ' VDEF:dpercentile_out=dpercentile_outnpn,FIRST';
    $rrd_options .= ' VDEF:totin=inB,TOTAL';
    $rrd_options .= ' VDEF:avein=inbits,AVERAGE';
    $rrd_options .= ' VDEF:totout=outB,TOTAL';
    $rrd_options .= ' VDEF:aveout=outbits,AVERAGE';
    $rrd_options .= ' VDEF:tot=octets,TOTAL';

    $rrd_options .= " COMMENT:' \\n'";

    $rrd_options .= " HRULE:999999999999999#FFFFFF:'" . rrdtool_escape('Total', $rrddescr_len) . "  In'";
    $rrd_options .= ' GPRINT:inbits:LAST:%6.'.$float_precision."lf%s$units";
    $rrd_options .= ' GPRINT:inbits:AVERAGE:%6.'.$float_precision."lf%s$units";
    $rrd_options .= ' GPRINT:inbits:MAX:%6.'.$float_precision."lf%s$units";
    $rrd_options .= " GPRINT:totin:%6.".$float_precision."lf%s$total_units";
    if ($_GET['previous'] == 'yes') {
        $rrd_options .= " COMMENT:' \t'";
        $rrd_options .= ' GPRINT:inbitsX:AVERAGE:%6.'.$float_precision."lf%s$units";
        $rrd_options .= ' GPRINT:inbitsX:MAX:%6.'.$float_precision."lf%s$units";
        $rrd_options .= " GPRINT:totinX:%6.".$float_precision."lf%s$total_units";
    }
    $rrd_options .= " COMMENT:'\\n'";

    $rrd_options .= " HRULE:999999999999990#FFFFFF:'" . rrdtool_escape('', $rrddescr_len) . " Out'";
    $rrd_options .= ' GPRINT:outbits:LAST:%6.'.$float_precision."lf%s$units";
    $rrd_options .= ' GPRINT:outbits:AVERAGE:%6.'.$float_precision."lf%s$units";
    $rrd_options .= ' GPRINT:outbits:MAX:%6.'.$float_precision."lf%s$units";
    $rrd_options .= " GPRINT:totout:%6.".$float_precision."lf%s$total_units";
    if ($_GET['previous'] == 'yes') {
        $rrd_options .= " COMMENT:' \t'";
        $rrd_options .= ' GPRINT:outbitsX:AVERAGE:%6.'.$float_precision."lf%s$units";
        $rrd_options .= ' GPRINT:outbitsX:MAX:%6.'.$float_precision."lf%s$units";
        $rrd_options .= ' GPRINT:totoutX:%6.'.$float_precision."lf%s$total_units";
    }
    $rrd_options .= " COMMENT:'\\n'";

    $rrd_options .= " HRULE:999999999999990#FFFFFF:'" . rrdtool_escape('', $rrddescr_len) . " Agg'";
    $rrd_options .= ' GPRINT:bits:LAST:%6.'.$float_precision."lf%s$units";
    $rrd_options .= ' GPRINT:bits:AVERAGE:%6.'.$float_precision."lf%s$units";
    $rrd_options .= ' GPRINT:bits:MAX:%6.'.$float_precision."lf%s$units";
    $rrd_options .= " GPRINT:tot:%6.".$float_precision."lf%s$total_units";
    if ($_GET['previous'] == 'yes') {
        $rrd_options .= " COMMENT:' \t'";
        $rrd_options .= ' GPRINT:bitsX:AVERAGE:%6.'.$float_precision."lf%s$units";
        $rrd_options .= ' GPRINT:bitsX:MAX:%6.'.$float_precision."lf%s$units";
        $rrd_options .= " GPRINT:totX:%6.".$float_precision."lf%s$total_units";
    }
    $rrd_options .= " COMMENT:'\\n'";
}

$rrd_options .= $rrd_optionsb;
$rrd_options .= ' HRULE:0#999999';
