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

<?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> $bytes </td> ";
      }
    }
    $MATRIX_TABLE_INBUILT.= " </tr> \n";
  }
}
$MATRIX_TABLE_INBUILT.= "</table>\n";

print "$MATRIX_TABLE_INBUILT";

print "</div>\n";

?>