root/trunk/web/data/datamatrix.php @ 141

<?php

include ('get_param.php');

print "<div id=\"contenu\">\n";

print "<p> In this data mining section, you will find the matrix of traffic between the POP number defined in the following configuration files: </p>\n";
print "<li>$subnet_list_file</li>\n";
print "<li>$ROUTERS_FILE</li>\n";

$CONFfinputSUB = fopen($subnet_list_file,'r');
$IDR_hash = NULL;
while (!feof ($CONFfinputSUB)) {
  $CONFline = fgets($CONFfinputSUB, 512);
  $CONFline_split = split("\t",$CONFline);
  $CONFline_split2 = split("-",$CONFline_split[0]);
  $IDR_hash[$CONFline_split2[1]] = 1;
 }
fclose($CONFfinputSUB);
$IDR_hash[55] = 1;

$CONFfinputRTR = fopen($router_list_file,'r');
while (!feof ($CONFfinputRTR)) {
  $CONFline = fgets($CONFfinputRTR, 512);
  $CONFline_split = split(" ",$CONFline);
  $CONFrouter_name[$CONFline_split[0]] =  $CONFline_split[1];
 }
fclose($CONFfinputRTR);

print "<p> List of POPs included in the matrix: </p>";
foreach ($IDR_hash as $keyIDR => $valueIDR) {
  if ($keyIDR) {
    $tmp = $CONFrouter_name[$keyIDR];
    print "<li> $keyIDR ($tmp) </li>\n"; 
  }
}

print "<p> The matrix: <br>";
print "Debit (in Mb/s) in the last 5 minutes. </p>\n";
$MATRIX_TABLE_INBUILT = "";
$MATRIX_TABLE_INBUILT.= "<table class=\"fields\">\n";
$MATRIX_TABLE_INBUILT.= "<tr> <th> </th>\n";
foreach ($IDR_hash as $keyIDR => $valueIDR) {
  if ($keyIDR) {
    $MATRIX_TABLE_INBUILT.= " <th>_$keyIDR _</th>\n";
  }
}
$MATRIX_TABLE_INBUILT.= "</tr>\n";

$IDR_hash2 = $IDR_hash;
foreach ($IDR_hash as $keyIDR => $valueIDR) {
  if ($keyIDR) {
    $MATRIX_TABLE_INBUILT.= " <tr>  <th>_$keyIDR _</th> ";
    foreach ($IDR_hash2 as $keyIDR2 => $valueIDR2) {
      ## get rrd file value
      if ($keyIDR2) {
      $rrdfilename = $rrdmatrixpath.$CONF_MATRIX_RRD_LOCATION.$keyIDR."_".$keyIDR2.".rrd";
      $res = `rrdtool fetch $rrdfilename -s -600 AVERAGE | grep -v nan | grep ":" `;
      $ressplit = split(" ", $res);
      ## FIXME *10
      $bytes = number_format($ressplit[2]*10*8/300/1000000,0," "," ");
      $MATRIX_TABLE_INBUILT.= " <td> ";
    if ($keyIDR2 == $keyIDR) {
      $MATRIX_TABLE_INBUILT.= " - ";
    } else {
      $MATRIX_TABLE_INBUILT.= "  <div id=\"tipbox\"> \n";
      $MATRIX_TABLE_INBUILT.= "<a href=\"\"> $bytes </a>\n";
      $MATRIX_TABLE_INBUILT.= "<div>\n";
      $tmp2 = $CONFrouter_name[$keyIDR];
      $tmp3 = $CONFrouter_name[$keyIDR2];
      $MATRIX_TABLE_INBUILT.= " $tmp2 -> $tmp3 ";
      $MATRIX_TABLE_INBUILT.= "</div>\n";
      $MATRIX_TABLE_INBUILT.= "</div>\n";
    }
      $MATRIX_TABLE_INBUILT.= "</td> ";
      }
    }
    $MATRIX_TABLE_INBUILT.= " </tr> \n";
  }
}
$MATRIX_TABLE_INBUILT.= "</table>\n";

print "$MATRIX_TABLE_INBUILT";


print "<p> The matrix in quantity of bytes: <br>";
print "Quantity (in TeraBytes) since last 31 days. </p>\n";
$MATRIX_TABLE_INBUILT = "";
$MATRIX_TABLE_INBUILT.= "<table class=\"fields\">\n";
$MATRIX_TABLE_INBUILT.= "<tr> <th> </th>\n";
foreach ($IDR_hash as $keyIDR => $valueIDR) {
  if ($keyIDR) {
    $MATRIX_TABLE_INBUILT.= " <th>_$keyIDR _</th>\n";
  }
}
$MATRIX_TABLE_INBUILT.= "</tr>\n";

$IDR_hash2 = $IDR_hash;
foreach ($IDR_hash as $keyIDR => $valueIDR) {
  if ($keyIDR) {
    $MATRIX_TABLE_INBUILT.= " <tr>  <th>_$keyIDR _</th> ";
    foreach ($IDR_hash2 as $keyIDR2 => $valueIDR2) {
      ## get rrd file value
      if ($keyIDR2) {
                $rrdfilename = $rrdmatrixpath.$CONF_MATRIX_RRD_LOCATION.$keyIDR."_".$keyIDR2.".rrd";

##              $res = `rrdtool fetch $rrdfilename -s -600 AVERAGE | grep -v nan | grep ":" `;
##              $ressplit = split(" ", $res);
              ## FIXME *10
##                $bytes = number_format($ressplit[2]*10*8/300/1000000,0," "," ");

                $samp = 10;
                $myres = `rrdtool graph img_monitoring/toto.png -s -31D -A DEF:BytesG=$rrdfilename:Bytes:AVERAGE CDEF:input10=BytesG,8,*,5,/,60,/,$samp,* CDEF:BytesSec=BytesG,300,/,$samp,* VDEF:TOTIN=BytesSec,TOTAL AREA:input10\#8FA3AD:"b" PRINT:TOTIN:";%1lg" | grep ";" `;
                $ressplit=split(";",$myres);
                $bytes=number_format($ressplit[1]/1000000000000,0," "," ");

      $MATRIX_TABLE_INBUILT.= " <td> ";
    if ($keyIDR2 == $keyIDR) {
      $MATRIX_TABLE_INBUILT.= " - ";
    } else {
      $MATRIX_TABLE_INBUILT.= "  <div id=\"tipbox\"> \n";
      $MATRIX_TABLE_INBUILT.= "<a href=\"\"> $bytes </a>\n";
      $MATRIX_TABLE_INBUILT.= "<div>\n";
      $tmp2 = $CONFrouter_name[$keyIDR];
      $tmp3 = $CONFrouter_name[$keyIDR2];
      $MATRIX_TABLE_INBUILT.= " $tmp2 -> $tmp3 ";
      $MATRIX_TABLE_INBUILT.= "</div>\n";
      $MATRIX_TABLE_INBUILT.= "</div>\n";
    }
      $MATRIX_TABLE_INBUILT.= "</td> ";
      }
    }
    $MATRIX_TABLE_INBUILT.= " </tr> \n";
  }
}
$MATRIX_TABLE_INBUILT.= "</table>\n";

print "$MATRIX_TABLE_INBUILT";

print "</div>\n";

?>