<?php
// SCRIPT: error.inc.php
// 2004-05-15
// source: http://www.php.net/ 2004-05-14, modified

// to send by mail the critical errors to the Webmaster
// the script including this script must define the value
// of E_MAIL_WEBMASTER e.g. :
// define("E_MAIL_WEBMASTER","webmaster@mail.box");

// We are going to do our proper errors reporting
error_reporting(0);

// special function handling errors
function userErrorHandler ($errno, $errmsg, $filename, $linenum, $vars)
{
    // Date and Time of the error
    $dt = date("Y-m-d H:i:s (T)");

    // Définit un tableau associatif avec les chaînes d'erreur
    // En fait, les seuls niveaux qui nous interessent
    // sont E_WARNING, E_NOTICE, E_USER_ERROR,
    // E_USER_WARNING et E_USER_NOTICE
    $errortype = array (
                E_ERROR           => "Erreur",
                E_WARNING         => "Alerte",
                E_PARSE           => "Error d'analyse",
                E_NOTICE          => "Note",
                E_CORE_ERROR      => "Core Error",
                E_CORE_WARNING    => "Core Warning",
                E_COMPILE_ERROR   => "Compile Error",
                E_COMPILE_WARNING => "Compile Warning",
                E_USER_ERROR      => "Erreur spécifique",
                E_USER_WARNING    => "Alerte spécifique",
                E_USER_NOTICE     => "Note spécifique",
                E_STRICT          => "Runtime Notice"
                );
    // Les niveaux qui seront enregistrés
    $user_errors = array(E_USER_ERROR, E_USER_WARNING, E_USER_NOTICE);

    // le message d'erreur proprement dit, au format XML
    $err = "<errorentry>\n";
    $err .= "\t<datetime>datetime: " . $dt . "</datetime>\n";
    $err .= "\t<errornum>number: " . $errno . "</errornum>\n";
    $err .= "\t<errortype>type: " . $errortype[$errno] . "</errortype>\n";
    $err .= "\t<errormsg>message: " . $errmsg . "</errormsg>\n";
    $err .= "\t<scriptname>file: " . $filename . "</scriptname>\n";
    $err .= "\t<scriptlinenum>line: " . $linenum . "</scriptlinenum>\n";
    if (in_array($errno, $user_errors)) {
        $err .= "\t<vartrace>vars: ".wddx_serialize_value($vars,"Variables")."</vartrace>\n";
    }
    $err .= "</errorentry>\n\n";
    // MODIFICATION : The line below is added to store in a log file looking like php
    $err=addslashes($err);
    // test
    // echo $err;

    // sauvegarde de l'erreur, et mail si c'est critique
    // MODIFICATION : pour pouvoir être enregistré dans un fichier PHP
    // qui ne renvoi rien aux navigateurs
    // (ce fichier de log sera lisible à partir d'un autre fichier)
    error_log("<? \$e[]='".$err."'; ?>\n", 3, "../log/error.log.php");
    // MODIFICATION : les erreurs critiques seront renvoyées au Webmaster si
    // et seulement si E_MAIL_WEBMASTER est définie
    if ($errno == E_USER_ERROR && defined("E_MAIL_WEBMASTER")) {
        mail(E_MAIL_WEBMASTER,"Critical User Error",$err);
    }
}


function distance ($vect1, $vect2)
{
    if (!is_array($vect1) || !is_array($vect2)) {
        trigger_error("Incorrect parameters, arrays expected", E_USER_ERROR);
        return NULL;
    }

    if (count($vect1) != count($vect2)) {
        trigger_error("Vectors need to be of the same size", E_USER_ERROR);
        return NULL;
    }

    for ($i=0; $i<count($vect1); $i++) {
        $c1 = $vect1[$i]; $c2 = $vect2[$i];
        $d = 0.0;
        if (!is_numeric($c1)) {
            trigger_error("Coordinate $i in vector 1 is not a number, using zero",
                            E_USER_WARNING);
            $c1 = 0.0;
        }
        if (!is_numeric($c2)) {
            trigger_error("Coordinate $i in vector 2 is not a number, using zero", 
                            E_USER_WARNING);
            $c2 = 0.0;
        }
        $d += $c2*$c2 - $c1*$c1;
    }
    return sqrt($d);
}

$old_error_handler = set_error_handler("userErrorHandler");


/* // test data
// constante non définie, qui génère une alerte
$t = I_AM_NOT_DEFINED;

// définition de quelques vecteurs
$a = array (2, 3, "foo");
$b = array (5.5, 4.3, -1.6);
$c = array (1, -3);

// génère une erreur utilisateur
$t1 = distance ($c, $b)."\n";

// génère une erreur utilisateur
$t2 = distance ($b, "i am not an array")."\n";

// Génère une alerte
$t3 = distance ($a, $b)."\n";
// */

?>