#!/usr/local/bin/php

<?php

   /*

      FSProfiler - FileSystem Profiler es una herramienta que puede ser de utilidad
      a responsables/administradores/arquitectos de sistemas para hacer un profiling
      del tamaño de bloque idóneo para un sistema de ficheros.

      Actualmente, es común en la mayoría de sistemas de ficheros disponibles para
      GNU/Linux tener un tamaño de bloque fijo de 4kb, si bien en algunos es posible
      modificarlo (al menos me consta la posibilidad de hacerlo en XFS). Esto le ayudará
      a ajustar este tamaño de bloque a uno óptimo para usted, maximizando el rendimiento
      de sus discos.

      Por desgracia, los sistemas de ficheros en GNU/Linux que permiten cambiar el
      tamaño del bloque, no permiten que éste sea mayor que el pagesize (de 4096 bytes),
      así que a menos que haya alguno de ellos que no tenga esta restricción (¿XFS en
      sistemas 64 bits?), esta utilidad sólo sirve en todo caso para (a) imaginar cuán bien
      le haría de poder definir el tamaño del bloque al sistema de ficheros, reduciendo el
      número de operaciones de E/S necesarias para leer un archivo, o bien para (b) satisfacer
      su curiosidad acerca del tamaño de sus ficheros.

      Leyenda:
      -------

      - Ext2/3 permite únicamente hasta 4kb/bloque.
      - ReiferFS4 permite hasta 8kb/bloque, limitado a 4kb por al pagesize.
      - JFS permite únicamente hasta 4kb/bloque en GNU/Linux.
      - XFS permite únicamente 4kb/bloque en GNU/Linux de 32 bits. ¿Se podrá definir
        un tamaño mayor en arquitecturas 64 bits?

    */

   ///////////////
   // FUNCIONES //
   ///////////////

   /* Calcula la media del tamanyo de todos los ficheros. */
   function media_tamanyo(){
      global $tamanyo_total, $numfichs;
      return $tamanyo_total/$numfichs;
   }

   /* Urga el directorio recibido recursivamente en busca de todos los ficheros
      que se encuentran en su interior. */
   function urgar_dir($path){
      
      global $numfichs, $numdirs, $tamanyo_total, $sizes;
      $directorios = array($path);
      
      while(count($directorios)){

         $diractual = array_shift($directorios);
         //echo "Diractual: ".$diractual."\n";
         if(!strstr($diractual.$nodo, 'lost+found') &&
            !strstr($diractual.$nodo, 'proc') &&
            !strstr($diractual.$nodo, 'sys')){

                $dd = opendir($diractual);
                while($nodo = readdir($dd)){

                   if(is_dir($diractual.$nodo) && ($nodo != '.') && ($nodo != '..') &&
                     !is_link($diractual.$nodo)){
                        //echo "Dir: ".$diractual.$nodo."\n";
                        $numdirs++; // recuento
                        array_push($directorios, $diractual.$nodo.'/');
                        if($numdirs%100==0) echo ".";
	               } else if (is_file($diractual.$nodo) && !is_link($diractual.$nodo)){
                      //echo "File: ".$diractual.$nodo."\n";
	                  $numfichs++; // recuento
                      $tamanyo_bytes = filesize($diractual.$nodo);
                      $tamanyo_total += $tamanyo_bytes;

                      if($tamanyo_bytes<=1) $sizes['b1']++;
                      else if($tamanyo_bytes<=2) $sizes['b2']++;
                      else if($tamanyo_bytes<=4) $sizes['b4']++;
	                  else if($tamanyo_bytes<=8) $sizes['b8']++;
       		          else if($tamanyo_bytes<=16) $sizes['b16']++;
              		  else if($tamanyo_bytes<=32) $sizes['b32']++;
		              else if($tamanyo_bytes<=64) $sizes['b64']++;
        		      else if($tamanyo_bytes<=128) $sizes['b128']++;
		              else if($tamanyo_bytes<=256) $sizes['b256']++;
        		      else if($tamanyo_bytes<=512) $sizes['b512']++;
		              else if($tamanyo_bytes<=1024) $sizes['k1']++;
		              else if($tamanyo_bytes<=2048) $sizes['k2']++;
		              else if($tamanyo_bytes<=4096) $sizes['k4']++;
		              else if($tamanyo_bytes<=8192) $sizes['k8']++;
         		      else if($tamanyo_bytes<=16384) $sizes['k16']++;
		              else if($tamanyo_bytes<=32768) $sizes['k32']++;
		              else if($tamanyo_bytes<=65536) $sizes['k64']++;
        		      else if($tamanyo_bytes<=131072) $sizes['k128']++;
		              else if($tamanyo_bytes<=262144) $sizes['k256']++;
		              else if($tamanyo_bytes<=524288) $sizes['k512']++;
		              else if($tamanyo_bytes<=1048576) $sizes['m1']++;
		              else if($tamanyo_bytes<=2097152) $sizes['m2']++;
		              else if($tamanyo_bytes<=4194304) $sizes['m4']++;
		              else if($tamanyo_bytes<=8388608) $sizes['m8']++;
		              else if($tamanyo_bytes<=16777216) $sizes['m16']++;
		              else if($tamanyo_bytes<=33554432) $sizes['m32']++;
		              else if($tamanyo_bytes<=67108864) $sizes['m64']++;
		              else if($tamanyo_bytes<=134217728) $sizes['m128']++;
		              else if($tamanyo_bytes<=268435456) $sizes['m256']++;
        		      else if($tamanyo_bytes<=536870912) $sizes['m512']++;
		              else if($tamanyo_bytes<=1073741824) $sizes['g1']++;
		              else if($tamanyo_bytes<=2147483648) $sizes['g2']++;
		              else if($tamanyo_bytes<=4294967296) $sizes['g4']++;
		              else if($tamanyo_btyes<=8589934592) $sizes['g8']++;
	    	 	      else if($tamanyo_btyes<=17179869184) $sizes['g16']++;
		              else $sizes['g_up']++;
                   }
                }
         }
      }
   }

   //////////
   // MAIN //
   //////////

   // 0. Si no recibimos nombre de directorio, caca.
   if($_SERVER['argc']!=2)
      die("\nUso: ".$_SERVER['argv'][0]." directorio\n\n");
   
   // 1. Si lo recibido no es un directorio, caca.
   if(!is_dir($_SERVER['argv'][1]))
      die("\n¡".$_SERVER['argv'][1]." no es un nombre de directorio, canalla!\n\n");

   // 2. Inicializamos variables...
   $numfichs = 0;
   $numdirs = 0;
   $tamanyo_total = 0;
   $sizes = array('b1'=>0, 'b2'=>0, 'b4'=>0, 'b8'=>0, 'b16'=>0, 'b32'=>0, 'b64'=>0, 'b128'=>0, 'b256'=>0, 'b512'=>0, 'k1'=>0, 'k2'=>0, 'k4'=>0, 'k8'=>0, 'k16'=>0, 'k32'=>0, 'k64'=>0, 'k128'=>0, 'k256'=>0, 'k512'=>0, 'm1'=>0, 'm2'=>0, 'm4'=>0, 'm8'=>0, 'm16'=>0, 'm32'=>0, 'm64'=>0, 'm128'=>0, 'm256'=>0, 'm512'=>0, 'g1'=>0, 'g2'=>0, 'g4'=>0, 'g8'=>0, 'g16'=>0, 'g_up'=>0);

   // 3. ...y empieza la fiesta!
   echo "Currando";
   urgar_dir($_SERVER['argv'][1]);

   // 4. Reporte final.
   echo "\n\n* * * FSProfiler 0.1 * * *\n\n";

   if(($numdirs != 0) && ($numfichs != 0)){

      echo "Total procesados (".$numdirs." directorios, ".$numfichs." ficheros)\n";
      echo "Tamaño medio de los ficheros (no tamaño de fichero más repetido):\n";
      if(($tamanyo_total != 0) && ($numfichs != 0)){
         $size = media_tamanyo();
         echo $size." bytes / ".($size/1024)." Kb / ".(($size/1024)/1024)." Mb\n\n";
      }

      echo "Gráfico visual:\n\n";
      if($sizes['b1'] != 0)
         echo "1b   |".str_repeat("-",round((($sizes['b1']/$numfichs)*100)))." (".$sizes['b1'].")\n";
      else echo "1b   | (0)\n";

      if($sizes['b2'] != 0)
         echo "2b   |".str_repeat("-",round((($sizes['b2']/$numfichs)*100)))." (".$sizes['b2'].")\n";
      else echo "2b   | (0)\n";

      if($sizes['b4'] != 0)
         echo "4b   |".str_repeat("-",round((($sizes['b4']/$numfichs)*100)))." (".$sizes['b4'].")\n";
      else echo "4b   | (0)\n";

      if($sizes['b8'] != 0)
         echo "8b   |".str_repeat("-",round((($sizes['b8']/$numfichs)*100)))." (".$sizes['b8'].")\n";
      else echo "8b   | (0)\n";

      if($sizes['b16'] != 0)
         echo "16b  |".str_repeat("-",round((($sizes['b16']/$numfichs)*100)))." (".$sizes['b16'].")\n";
      else echo "16b  | (0)\n";

      if($sizes['b32'] != 0)
         echo "32b  |".str_repeat("-",round((($sizes['b32']/$numfichs)*100)))." (".$sizes['b32'].")\n";
      else echo "32b  | (0)\n";

      if($sizes['b64'] != 0)
         echo "64b  |".str_repeat("-",round((($sizes['b64']/$numfichs)*100)))." (".$sizes['b64'].")\n";
      else echo "64b  | (0)\n";

      if($sizes['b128'] != 0)
         echo "128b |".str_repeat("-",round((($sizes['b128']/$numfichs)*100)))." (".$sizes['b128'].")\n";
      else echo "128b | (0)\n";

      if($sizes['b256'] != 0)
         echo "256b |".str_repeat("-",round((($sizes['b256']/$numfichs)*100)))." (".$sizes['b256'].")\n";
      else echo "256b | (0)\n";

      if($sizes['b512'] != 0)
         echo "512b |".str_repeat("-",round((($sizes['b512']/$numfichs)*100)))." (".$sizes['b512'].")\n";
      else echo "512b | (0)\n";

      if($sizes['k1'] != 0)
         echo "1k   |".str_repeat("-",round((($sizes['k1']/$numfichs)*100)))." (".$sizes['k1'].")\n";
      else echo "1k   | (0)\n";

      if($sizes['k2'] != 0)
         echo "2k   |".str_repeat("-",round((($sizes['k2']/$numfichs)*100)))." (".$sizes['k2'].")\n";
      else echo "2k   | (0)\n";

      if($sizes['k4'] != 0)
         echo "4k   |".str_repeat("-",round((($sizes['k4']/$numfichs)*100)))." (".$sizes['k4'].")\n";
      else echo "4k   | (0)\n";

      if($sizes['k8'] != 0)
         echo "8k   |".str_repeat("-",round((($sizes['k8']/$numfichs)*100)))." (".$sizes['k8'].")\n";
      else echo "8k   | (0)\n";

      if($sizes['k16'] != 0)
         echo "16k  |".str_repeat("-",round((($sizes['k16']/$numfichs)*100)))." (".$sizes['k16'].")\n";
      else echo "16k  | (0)\n";

      if($sizes['k32'] != 0)
         echo "32k  |".str_repeat("-",round((($sizes['k32']/$numfichs)*100)))." (".$sizes['k32'].")\n";
      else echo "32k  | (0)\n";

      if($sizes['k64'] != 0)
         echo "64k  |".str_repeat("-",round((($sizes['k64']/$numfichs)*100)))." (".$sizes['k64'].")\n";
      else echo "64k  | (0)\n";

      if($sizes['k128'] != 0)
         echo "128k |".str_repeat("-",round((($sizes['k128']/$numfichs)*100)))." (".$sizes['k128'].")\n";
      else echo "128k | (0)\n";

      if($sizes['k256'] != 0)
         echo "256k |".str_repeat("-",round((($sizes['k256']/$numfichs)*100)))." (".$sizes['k256'].")\n";
      else echo "256k | (0)\n";

      if($sizes['k512'] != 0)
         echo "512k |".str_repeat("-",round((($sizes['k512']/$numfichs)*100)))." (".$sizes['k512'].")\n";
      else echo "512k | (0)\n";

      if($sizes['m1'] != 0)
         echo "1m   |".str_repeat("-",round((($sizes['m1']/$numfichs)*100)))." (".$sizes['m1'].")\n";
      else echo "1m   | (0)\n";

      if($sizes['m2'] != 0)
         echo "2m   |".str_repeat("-",round((($sizes['m2']/$numfichs)*100)))." (".$sizes['m2'].")\n";
      else echo "2m   | (0)\n";

      if($sizes['m4'] != 0)
         echo "4m   |".str_repeat("-",round((($sizes['m4']/$numfichs)*100)))." (".$sizes['m4'].")\n";
      else echo "4m   | (0)\n";

      if($sizes['m8'] != 0)
         echo "8m   |".str_repeat("-",round((($sizes['m8']/$numfichs)*100)))." (".$sizes['m8'].")\n";
      else echo "8m   | (0)\n";

      if($sizes['m16'] != 0)
         echo "16m  |".str_repeat("-",round((($sizes['m16']/$numfichs)*100)))." (".$sizes['m16'].")\n";
      else echo "16m  | (0)\n";

      if($sizes['m32'] != 0)
         echo "32m  |".str_repeat("-",round((($sizes['m32']/$numfichs)*100)))." (".$sizes['m32'].")\n";
      else echo "32m  | (0)\n";

      if($sizes['m64'] != 0)
         echo "64m  |".str_repeat("-",round((($sizes['m64']/$numfichs)*100)))." (".$sizes['m64'].")\n";
      else echo "64m  | (0)\n";

      if($sizes['m128'] != 0)
         echo "128m |".str_repeat("-",round((($sizes['m128']/$numfichs)*100)))." (".$sizes['m128'].")\n";
      else echo "128m | (0)\n";

      if($sizes['m256'] != 0)
         echo "256m |".str_repeat("-",round((($sizes['m256']/$numfichs)*100)))." (".$sizes['m256'].")\n";
      else echo "256m | (0)\n";

      if($sizes['m512'] != 0)
         echo "512m |".str_repeat("-",round((($sizes['m512']/$numfichs)*100)))." (".$sizes['m512'].")\n";
      else echo "512m | (0)\n";

      if($sizes['g1'] != 0)
         echo "1g   |".str_repeat("-",round((($sizes['g1']/$numfichs)*100)))." (".$sizes['g1'].")\n";
      else echo "1g   | (0)\n";

      if($sizes['g2'] != 0)
         echo "2g   |".str_repeat("-",round((($sizes['g2']/$numfichs)*100)))." (".$sizes['g2'].")\n";
      else echo "2g   | (0)\n";

      if($sizes['g4'] != 0)
         echo "4g   |".str_repeat("-",round((($sizes['g4']/$numfichs)*100)))." (".$sizes['g4'].")\n";
      else echo "4g   | (0)\n";

      if($sizes['g8'] != 0)
         echo "8g   |".str_repeat("-",round((($sizes['g8']/$numfichs)*100)))." (".$sizes['g8'].")\n";
      else echo "8g   | (0)\n";

      if($sizes['g16'] != 0)
         echo "16g  |".str_repeat("-",round((($sizes['g16']/$numfichs)*100)))." (".$sizes['g16'].")\n";
      else echo "16g  | (0)\n";

      if($sizes['g_up'] != 0)
         echo ">16g |".str_repeat("-",round((($sizes['g_up']/$numfichs)*100)))." (".$sizes['g_up'].")\n\n";
      else echo ">16g | (0)\n";

   } else {
      echo "No data available.\n\n";
   }

   echo "* * * * * * * * * * * * *\n\n";

?>