<?php
$DEBUG = true;    // Activer ce flag pour logguer les requêtes dans 'services.log.html'.

/**
 * Ce fichier PHP permet d'appeler les services qui se trouvent dans le
 * sous-répertoire "svc".
 * Voici les paramètres attendus :
 *   - "s" (service) : Nom du service.
 *   - "i" (input) :
 */
ob_start();

// Utiliser le user-agent du client pour les requêtes effectuée par le serveur.
ini_set ('user_agent', $_SERVER['HTTP_USER_AGENT']);

// Cross Site Origin.
//header('Access-Control-Allow-Origin: *');
$origin = '*';
if (array_key_exists('HTTP_ORIGIN', $_SERVER)) {
  $origin = $_SERVER['HTTP_ORIGIN'];
 }
header('Access-Control-Allow-Origin: ' . $origin);
header('Access-Control-Allow-Credentials: true');
header('Access-Control-Allow-Methods: POST, GET, PUT, OPTIONS');
header('Access-Control-Max-Age: 900');

date_default_timezone_set("Europe/Paris");
include_once("php/db.inc");

// Protection contre les modification de quotes selon la config du serveur PHP.
if (get_magic_quotes_gpc()) {
  $process = array(&$_GET, &$_POST, &$_COOKIE, &$_REQUEST);
  while (list($key, $val) = each($process)) {
    foreach ($val as $k => $v) {
      unset($process[$key][$k]);
      if (is_array($v)) {
        $process[$key][stripslashes($k)] = $v;
        $process[] = &$process[$key][stripslashes($k)];
      } else {
        $process[$key][stripslashes($k)] = stripslashes($v);
      }
    }
  }
  unset($process);
 }


@session_start();
$USER = new User();


/**
 * Retourne true si l'utilisateur possède le role $role.
 */
function hasRole($role) {
  if ($role == "") return true;
  if (!isset($_SESSION["USER"])) return false;
  $user = $_SESSION["USER"];
  if (!isset($user["roles"])) return false;
  $roles = $user["roles"];
  if (!is_array($roles)) return false;
  return in_array($role, $roles);
}

function userId() {
  if (!isset($_SESSION["USER"])) return false;
  $user = $_SESSION["USER"];
  return $user["id"];
}

class SystemData {
  var $datadir = '';
  var $locks = Array();

  function SystemData($datadir) {
    $this->datadir = dirname(__file__).'/'.$datadir.'/';
    if (!file_exists($datadir)) {
      @mkdir($datadir, 0777, true);
    }
  }

  function setRoot($dir) {
    $this->datadir .= $dir . '/';
    if (!file_exists($this->datadir)) {
      @mkdir($datadir, 0777, true);
    }
  }

  function __destruct() {
    foreach ($this->locks as $key => $fd) {
      echo "Releasing lock on \"$key\" : ";
      flock($fd, LOCK_UN);
      fclose($fd);
      echo "done!\n";
    }
  }

  function lock($filename) {
    if (array_key_exists($filename, $this->locks)) {
      return;
    }

    $fd = fopen($this->getPath($filename . ".lock"), "w");
    while (!flock($fd, LOCK_EX)) {
      usleep(10000);  // sleep for 0.01 second
    }
    $this->locks[$filename] = $fd;
  }

  function unlock($filename) {
    if (array_key_exists($filename, $this->locks)) {
      flock($this->locks[$filename], LOCK_UN);
      fclose($this->locks[$filename]);
      unset($this->locks[$filename]);
    }
  }

  function mkdir($dir) {
    $dir = $this->datadir . $dir;
    if (!file_exists($dir)) {
      @mkdir($dir, 0777, true);
    }
  }

  function getPath($filename) {
    return $this->datadir . $filename;
  }

  function opendir($dir) {
    return opendir($this->datadir . $dir);
  }

  function unlink($filename) {
    return unlink($this->getPath($filename));
  }

  function saveText($filename, $data) {
    if (!file_exists($this->datadir)) {
      @mkdir($this->datadir, 0777, true);
    }
    @file_put_contents($this->datadir.$filename, $data);
  }

  function saveJSON($filename, $data) {
    if (!file_exists($this->datadir)) {
      @mkdir($this->datadir, 0777, true);
    }
    @file_put_contents($this->datadir.$filename, json_encode($data));
  }

  function loadText($filename) {
    $file = $this->datadir.$filename;
    if (file_exists($file)) {
      // L'ajout du paramètre "true" sert à s'assurer que $data
      // sera bien du type Array et non stdClass.
      $data = @file_get_contents($file);
      return $data;
    } else {
      echo "Unable to find \"$file\"!\n";
      return null;
    }
  }

  function loadJSON($filename) {
    $file = $this->datadir.$filename;
    if (file_exists($file)) {
      // L'ajout du paramètre "true" sert à s'assurer que $data
      // sera bien du type Array et non stdClass.
      $data = @json_decode(file_get_contents($file), true);
      return $data;
    } else {
      echo "Unable to find \"$file\"!\n";
      return null;
    }
  }
};


class System {
  var $PUB;
  var $PRI;
  var $DB = null;

  function System() {
    $this->PUB = new SystemData("pub");
    $this->PRI = new SystemData("pri");
  }
};


// Cette fonction permet d'éviter d'utiliser des includes
// pour chaque classe que l'on souhaite utiliser.
// Si, lors d'un new, la classe n'est pas connue alors
// l'include se fera comme spécifié dans cette fonction.
function __autoload($class_name) {
  include 'php/' . $class_name . '.php';
}

echo "<pre style='border: 1px solid black'>";
echo date("d/m/Y H:i:s");
echo " (from " . $_SERVER["REMOTE_ADDR"] . ")\n";
print_r($_REQUEST);
echo "<hr/>\n";

echo SID . "<br/>\n";

@$service = $_REQUEST['s'];
// Vérification de la validité du nom de service.
// Il ne doit contenir que des lettres, des chiffres et des points.
for ($i=0 ; $i<strlen($service) ; $i++) {
  $c = $service[$i];
  if ($c == '.') continue;
  if ($c >= '0' && $c <= '9') continue;
  if ($c >= 'a' && $c <= 'z') continue;
  if ($c >= 'A' && $c <= 'Z') continue;
  // On a détecté un nom de service invalide.
  die("Invalid service name: $service");
 }

// Paramètre d'entrée.
echo "Input = " . $_REQUEST['i'] . "\n";
@$input = json_decode($_REQUEST['i'], true);
/*
 switch (json_last_error()) {
 case JSON_ERROR_DEPTH:
 echo ' - Profondeur maximale atteinte';
 break;
 case JSON_ERROR_STATE_MISMATCH:
 echo ' - Inadéquation des modes ou underflow';
 break;
 case JSON_ERROR_CTRL_CHAR:
 echo ' - Erreur lors du contrôle des caractères';
 break;
 case JSON_ERROR_SYNTAX:
 echo ' - Erreur de syntaxe ; JSON malformé';
 break;
 case JSON_ERROR_UTF8:
 echo ' - Caractères UTF-8 malformés, probablement une erreur d\'encodage';
 break;
 default:
 echo ' - Erreur inconnue';
 break;
 }
*/
$output = Array();

// Déclarer les objets d'accès aux donées publiques et privées.

// Inclure le code du service qui doit fournir une fonction execService().
// Il doit aussi redéfinir la variable $ROLE qui donne le role nécessaire
// à l'appel de ce service. Si $ROLE est vide, tout le monde est autorisé.
$ROLE = "ADMINISTRATOR";
try {
  include "svc/$service.php";
}
catch (Exception $e) {
    echo "<pre>";
    echo $e->getMessage();
    echo "</pre>\n";
    $fatal = 'SYNTAX';
}

echo "<pre>SERVER:";
print_r($_SERVER);
echo "</pre>";

$fatal = '';

if (hasRole($ROLE)) {
  try {
    $output = execService($input, new System());
  }
  catch (Exception $e) {
    $msg = $e->getMessage();
    echo "<pre>$msg</pre>\n";
    if (substr($msg, 0, 1) == '!') {
      $fatal = $msg;
    } else {
      $fatal = 'ERROR';
    }
  }
} else {
  // Pas de droits. Role insuffisant.
  $fatal = '!' . $ROLE;
}
// Fermer la connexion à la base de données.
$DB = null;

$garbage = ob_get_clean();

$json = json_encode($output);
if ($fatal == '') {
  // Paramètre de sortie.
  echo $json;
} else {
  error_log("fatal = '$fatal'");
  if ($DEBUG == true) {
    $garbage .= "<hr/>\n$json</pre>";
    $logfile = "pri/services.log.html";
    if (file_exists($logfile)) {
      $t = time() - filemtime($logfile);
      if ($t > 15) {
        @unlink($logfile);
        file_put_contents($logfile, "<meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\" />");
      }
    }
    file_put_contents($logfile, $garbage);
    //error_log($output, 3, $logfile);
  }
  echo $fatal;
}
?>