
<?php
/*
   *************************************************************************
   * Combien que j'en ai ? Un script fait à la main par mes doigts dans    *
   * mon VI que j'ai.                                                      *
   *                                                                       *
   * Pour toute information sur le fonctionnement du script : lisez la doc *
   * sur http://www.php.net/ (ça dégourdit les synapses)                   *
   * Copyright rien du tout, Script sous DemerdenSieSich License...        *
   *                                                                       *
   * Vous pouvez copier/modifier/utiliser/warezer/napsteriser ce script si *
   * vous le souhaitez. Par contre, je ne peux etre tenu pour repsonsable  *
   * de ce que vous en faites. Et voilà :)                                 *
   *                                                                       *
   * Flyounet : dev (at) flyounet (dot) net                                *
   *                                                                       *
   * Pour me faire fonctionner, copiez moi dans un fichier, et executez    *
   * moi en m'appelant via votre navigateur (si vous n'en avez pas, allez  *
   * en chercher un là : http://www.mozilla.org                            *
   * Si vous ne comprenez pas à quoi je sers, ne m'utilisez pas.           *
   *                                                                       *
   *************************************************************************
   *                                                                       *
   * v0.03 [Flyounet] : Modification pour pouvoir l'utiliser partout.      *
   *                                                                       *
   *************************************************************************
*/

# Cette chaine contient l'affichage normal
$ls_result = <<<EOT
<html>
 <head><title>Espace Disque Utilisé</title></head>
 <body>
  <pre>
{RESULT}
  </pre>
  <br/>
  <a href="{URL}">Recompter</a> - <a href="{URL}?all=1">Recompter tout</a><br/>
  <a href="{URL}?no=1">Recompter Sans Domaine</a> - <a href="{URL}?all=1&no=1">Recompter tout Sans Domaine</a><br/>
 </body>
</html>
EOT;

# Cette chaine contient le message d'erreur
$ls_error = <<<EOT
<html>
 <head><title>Espace Disque Utilisé</title></head>
 <body>
  Impossible d'ouvrir un pipe. (pas d'bol).<br/>
  <br/>
  <a href="{URL}">Same player try again</a>
 </body>
</html>
EOT;

# Pour que le nuser puisse de nouveau cliquer, on lui remet le le bon chemin
# d'appel du script. Que ce soit sur le message d'erreur ou final.
$ls_result=ereg_replace("\{URL\}", $_SERVER["PHP_SELF"], $ls_result);
$ls_error=ereg_replace("\{URL\}", $_SERVER["PHP_SELF"], $ls_error);

# S'il n'y a pas de sous-domaine de setté, on force rapidement le www. en début de host.
if(substr_count($_SERVER["HTTP_HOST"], ".")==1)
 $_SERVER["HTTP_HOST"]="www.".$_SERVER["HTTP_HOST"];

# Si le domaine utilisé ne commence pas par www, on force le domaine en www
if(!eregi("^www\.", $_SERVER["HTTP_HOST"]))
 $_SERVER["HTTP_HOST"]=eregi_replace("^([-_a-z0-9]*\.?)?([-_a-z0-9]+\.[a-z]{2,})", "www.\\2", $_SERVER["HTTP_HOST"]);

# On récupère le répertoire en cours, car si le nuser l'a mis là, c'est qu'il avait une bonne raison.
$ls_path_def=$_SERVER["DOCUMENT_ROOT"];

if ($_GET["no"]=="1")
  $ls_path_def=ereg_replace("/".$_SERVER["HTTP_HOST"]."(/[-_ ./A-Za-z0-9]*/?)*", "", $ls_path_def);

if ($_GET["all"]=="1")
  $t=popen("du -a -h ".$ls_path_def, "r");
else
  $t=popen("du -h ".$ls_path_def, "r");
if (!$t) {
  print $ls_error;
  exit;
}
while(!feof($t))
  $output .= fread($t, 1024);
pclose($t);
$ls_result=ereg_replace("\{RESULT\}", $output, $ls_result);
print $ls_result;
exit;
?>