root/trunk/tool/metroSite.php @ 68

#!/usr/bin/php
<?php
    function generation_graph_jour($nom_du_site, $prefixeTab) {
        // SAGA
        global $cfgTmp, $cfgFileSep, $cfgRrdPath;

        $png_path = "/var/www/saga/www/images/tmp/";
        $nfs_path = $cfgRrdPath.$cfgFileSep;
        // SAGA

        // FX
        //$png_path = "/tmp/";
        //$nfs_path = "/mnt/data/RRD/RENATER/IPv4_SUBNET/";
        // FX
        $nbpref = count($prefixeTab);
        $found = 0;
        $nofoundnb = 0;
        $foundone = 0;
        $DEF_string = "";
        $CDEF_string = "";
        $CDEF_str_ALL = "";
        $all = "";
        $AREA_string = "";
        $CDEF_str_ALLIN = "";
        $CDEF_str_ALLOUT = "";
        $all = "";
        $allout = "";        

        foreach($prefixeTab as $key => $value) {

                # creation du nom de fichier .rrd correspondant (du type ".../193_49_159_0_24_X.rrd")
        # X n'est pas connu, c'est la valeur d'echantillonnage
        # ce fichier sera sur le serveur de donnees d ou $nfs_path
          $tmp = str_replace(".", "_", $value[0]);
          $prefix_name = $tmp . "_" . $value[1];
          if (is_dir($nfs_path)) {
            if ($dh = opendir($nfs_path)) {
              while (($file = readdir($dh)) !== false) {
                if (strpos($file, $prefix_name) !== false) {
              $found = 1;
              break;
            }
              }
              if ($found != 1){
                $found = 0;
            $nofoundnb+=1;
              }
              closedir($dh);
            }
          }
          $rrdname = $nfs_path.$file;
          $file_split = split("_", $file);
          $tmp2 = split("\.",$file_split[5]);
          $sampling = $tmp2[0];

          if ($found==1){
            $foundone=1;
            $input = "inBytesG".$key;
            $output = "outBytesG".$key;
            $rrdfiles = "DEF:$input=".$rrdname.":inBytes:AVERAGE"." "."DEF:$output=".$rrdname.":outBytes:AVERAGE";
            if ( $DEF_string == "") {
              $DEF_string = "$rrdfiles"."";
            } else {
              $DEF_string = "$rrdfiles"." ".$DEF_string;
            }
            
            $input10 = "input10".$key;
            $output10 = "output10".$key;
            $strtmp = "CDEF:$input10=$input,8,*,5,/,60,/,$sampling,*"." "."CDEF:$output10=$output,8,*,5,/,60,/,$sampling,*";
            if ( $CDEF_string == "") {
              $CDEF_string = "$strtmp"."";
            } else {
              $CDEF_string = "$strtmp"." ".$CDEF_string;
            }
            $tmpin = "$input,UN,1,$input,IF,8,*,5,/,60,/,$sampling,*";
            if ( $all == "") {
              $all = "$tmpin"."";
            } else {
              $all = "$tmpin".",".$all;
            }
            $tmpout = "$output,UN,1,$output,IF,8,*,5,/,60,/,$sampling,*";
            if ( $allout == "") {
              $allout = "$tmpout"."";
            } else {
              $allout = "$tmpout".",".$allout;
            }
          }
          $found = 0;
        }
        for ($i=0; $i < $nbpref-$nofoundnb-1; $i++){
          $all = $all.",+";
          $allout = $allout.",+";
        }
        $CDEF_str_ALLIN = "CDEF:TotalIN=".$all;
        $CDEF_str_ALLOUT = "CDEF:TotalOUT=".$allout;
# creation du nom de fichier de l'image a creer
        if ($foundone==1){
          $filename = $nom_du_site."_j".".png";
          $pngname = $png_path.$filename;
          
# creation de l'image dans $png_path.
          $res = `rrdtool graph $pngname -s -1D --title "$nom_du_site" --vertical-label "bits/s" -A $DEF_string $CDEF_string $CDEF_str_ALLIN $CDEF_str_ALLOUT AREA:TotalIN\#00FF00:TotalIN LINE:TotalOUT\#0000FF:TotalOUT GPRINT:TotalIN:MAX:"MAX In %1.1lf%S b/s" GPRINT:TotalOUT:MAX:"MAX Out %1.1lf%S b/s"`;
          
        # todo FX : faire un retour different si erreur
          return $filename;
        }
}

    function generation_graph_mois($nom_du_site, $prefixeTab) {
        // SAGA
        global $cfgTmp, $cfgFileSep;

        $png_path = "/var/www/saga/www/images/tmp/";
        $tmp_path .= $cfgTmp.$cfgFileSep;
        // SAGA

        // FX
        //$png_path = "/tmp/";
        //$tmp_path = "/tmp/";
        //$nfs_path = "/mnt/data/RRD/RENATER/IPv4_SUBNET/"; 
        // FX
        $nbpref = count($prefixeTab);
        $found = 0;
        $nofoundnb = 0;
        $foundone = 0;
        $DEF_string = "";
        $CDEF_string = "";
        $CDEF_str_ALL = "";
        $all = "";
        $AREA_string = "";
        $CDEF_str_ALLIN = "";
        $CDEF_str_ALLOUT = "";
        $all = "";
        $allout = "";              
        
        # creation du nom de fichier de l'image a creer
        $filename = $nom_du_site."_m".".png";
        $pngname = $png_path.$filename;
        
        $tab_in = array();
        $tab_out = array();
        foreach($prefixeTab as $key => $value) {
          $found = 0;
                # creation du nom de fichier .rrd correspondant (du type ".../193_49_159_0_24_X.rrd")
        # X n'est pas connu, c'est la valeur d'echantillonnage
        # ce fichier sera sur le serveur de donnees d ou $nfs_path
          $tmp = str_replace(".", "_", $value[0]);
          $prefix_name = $tmp . "_" . $value[1];
          if (is_dir($nfs_path)) {
            if ($dh = opendir($nfs_path)) {
            while (($file = readdir($dh)) !== false) {
              if (strpos($file, $prefix_name) !== false) {
            $found = 1;
            break;
              }
            }
            if ($found != 1){
              $found = 0;
              $nofoundnb+=1;
            }
            closedir($dh);
            }
          }
          if ($found==1){
            $rrdname = $nfs_path.$file;
            $file_split = split("_", $file);
            $tmp2 = split("\.",$file_split[5]);
            $sampling = $tmp2[0];
# recuperation des donnees par un rrd fecht pour calculer le debit 95%percentile
            $tmp_file = $tmp_path.$nom_du_site.".tmp";
            `rrdtool fetch $rrdname AVERAGE --start -31Days | cut -d " " -f 4,5 > $tmp_file`;
            $fd = fopen ($tmp_file, "r");
            $i=0;
            while (!feof ($fd)) {
              $buffer = fgets($fd, 4096);
              $buffer_split = split(" ",$buffer);
              if (trim($buffer_split[0]) != "nan"){
            $tab_in[$i] += trim($buffer_split[0]);
              }
              if (trim($buffer_split[1]) != "nan"){
            $tab_out[$i] += trim($buffer_split[1]);
              }
              $i++;
            }
            fclose ($fd);
            `rm $tmp_file`;
            $foundone=1;
            $input = "inBytesG".$key;
            $output = "outBytesG".$key;
            $rrdfiles = "DEF:$input=".$rrdname.":inBytes:AVERAGE"." "."DEF:$output=".$rrdname.":outBytes:AVERAGE";
            if ( $DEF_string == "") {
              $DEF_string = "$rrdfiles"."";
            } else {
              $DEF_string = "$rrdfiles"." ".$DEF_string;
            }
            
            $input10 = "input10".$key;
            $output10 = "output10".$key;
            $strtmp = "CDEF:$input10=$input,8,*,5,/,60,/,$sampling,*"." "."CDEF:$output10=$output,8,*,5,/,60,/,$sampling,*";
            if ( $CDEF_string == "") {
              $CDEF_string = "$strtmp"."";
            } else {
              $CDEF_string = "$strtmp"." ".$CDEF_string;
            }
            $tmpin = "$input,UN,1,$input,IF,8,*,5,/,60,/,$sampling,*";
            if ( $all == "") {
              $all = "$tmpin"."";
            } else {
              $all = "$tmpin".",".$all;
            }
            $tmpout = "$output,UN,1,$output,IF,8,*,5,/,60,/,$sampling,*";
            if ( $allout == "") {
              $allout = "$tmpout"."";
            } else {
              $allout = "$tmpout".",".$allout;
            }
            $found = 0;
          }
        }
        if ($foundone==1){
          for ($i=0; $i < $nbpref-$nofoundnb-1; $i++){
            $all = $all.",+";
            $allout = $allout.",+";
          }
          $CDEF_str_ALLIN = "CDEF:TotalIN=".$all;
          $CDEF_str_ALLOUT = "CDEF:TotalOUT=".$allout;
          rsort($tab_in,SORT_NUMERIC);
          rsort($tab_out,SORT_NUMERIC);
          foreach ( $tab_in as $key => $value ) {
            if ($value != "nan") {$lgin++;}
          }
          $percin = $lgin-intval(($lgin*95/100));
          foreach ( $tab_out as $key2 => $value2 ) {
            if ($value2 != "nan") {$lgout++;}
          }
          $percout = $lgout-intval(($lgout*95/100));
          $dr1 =  max($tab_in[$percin-1],$tab_out[$percout-1]);
          $debit = number_format($dr1*$sampling*8/5/60,0,",","");
                  $debit = number_format($dr1*$sampling*8/5/60,0,",","");
                  if ($debit > 1000000000) {
                        $debit2 = $debit/1000000000;
                        $Scale = "G";
                  }else if ($debit > 1000000) {
                        $debit2 = $debit/1000000;
                        $Scale = "M";
                  }else if ($debit > 1000) {
                        $debit2 = $debit/1000;
                        $Scale = "K";
                  }else{
                        $Scale = "";
                  }
                  $debit2 = number_format($debit2,2,",","");
# creation de l'image dans $png_path.
          $res = `rrdtool graph $pngname -s -31D --title "$nom_du_site" --vertical-label "bits/s" -A $DEF_string $CDEF_string $CDEF_str_ALLIN $CDEF_str_ALLOUT AREA:TotalIN\#00FF00:TotalIN LINE:TotalOUT\#0000FF:TotalOUT GPRINT:TotalIN:MAX:"MAX In %1.1lf%S b/s" GPRINT:TotalOUT:MAX:"MAX Out %1.1lf%S b/s" HRULE:$debit\#FF0000:"RENATER debit (95th percentile) $debit2 $Scale bits/s"`;
        
# todo FX : faire un retour different si erreur
          return $filename;
        }
    }

    function graphiqueMetrologie() {
        // SAGA

        $monAg = new Agrement_2($this->tuple['ip_ag_numero'],$this->tuple['ip_ag_version'], $this->dbh);
        $monAg->querySelect('r', true);
        $nom_du_site = $monAg->get_dc_et_code();
        $prefixe = $this->tuple['ip_adresse'];
        $cidr = $this->tuple['ip_cidr'];
        // SAGA

        // FX
        //$png_path = "/tmp/";
        //$nfs_path = "/mnt/data/RRD/RENATER/IPv4_SUBNET/"; # expl: "/mnt/db/RENATER_PREFIXES_RRD/";
        //$nom_du_site = "U-BS-VANNES";
        //$prefixe = "193.54.227.0";
        //$cidr = "24";
        // FX
        
        // SAGA
        $title = "Graphiques Métrologie";
        require_once("saga_2.inc.php");
        include("head_2.inc.php");
        // SAGA

        // FX
        //$html = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">";
        //$html = "<html>";
        //$html = "<head>";
        //$html = "<title>Graphiques Métrologie</title>";
        //$html = "<body>\n";
        // FX

        if ($found == true) {

            $pngJour = $this->generation_graph_jour($nom_du_site, $prefixeTab);
            $pngMois = $this->generation_graph_mois($nom_du_site, $prefixeTab);
    
            $html .= "<img border=\"0\" src=\"images/tmp/".$pngJour."\" alt=\"Graphique journalier\">\n";
            $html .= "<br>\n";
            $html .= "<img border=\"0\" src=\"images/tmp/".$pngMois."\" alt=\"Graphique mensuel\">\n";
            $html .= "</body></html>\n";
    
            echo $html;

            // a voir (pb synchro avec affichage de la page)
            //exec("rm -f ".$png_path.$pngJour);
            //exec("rm -f ".$png_path.$pngMois);
        } else {
            // si le fichier rrd n'est pas présent
            $html .= "<br>  Données indisponibles pour le moment\n";
            $html .= "</body></html>\n";
            
            echo $html;
        }
    }

// FX
//$nom_du_site = "U-RENNES-FOUGERES";
//$p1 = array("129.20.0.0",16);
//$p2 = array("129.20.207.0",24);
//$p3 = array("148.60.0.0",16);
//$p4 = array("148.60.206.0",24);
//$p5 = array("148.60.207.0",24);
//$prefixeTab = array($p1,$p2,$p3,$p4,$p5);
//generation_graph_jour($nom_du_site, $prefixeTab);
//generation_graph_mois($nom_du_site, $prefixeTab);
// FX

?>