www/plugins-dist/svp/lib/pcltar/pclerror.lib.php

   1 <?
   2 // --------------------------------------------------------------------------------
   3 // PhpConcept Library (PCL) Error 1.0
   4 // --------------------------------------------------------------------------------
   5 // License GNU/GPL - Vincent Blavet - Mars 2001
   6 // http://www.phpconcept.net & http://phpconcept.free.fr
   7 // --------------------------------------------------------------------------------
   8 // Français :
   9 //   La description de l'usage de la librairie PCL Error 1.0 n'est pas encore
  10 //   disponible. Celle-ci n'est pour le moment distribuée qu'avec les
  11 //   développements applicatifs de PhpConcept.
  12 //   Une version indépendante sera bientot disponible sur http://www.phpconcept.net
  13 //
  14 // English :
  15 //   The PCL Error 1.0 library description is not available yet. This library is
  16 //   released only with PhpConcept application and libraries.
  17 //   An independant release will be soon available on http://www.phpconcept.net
  18 //
  19 // --------------------------------------------------------------------------------
  20 //
  21 //   * Avertissement :
  22 //
  23 //   Cette librairie a été créée de façon non professionnelle.
  24 //   Son usage est au risque et péril de celui qui l'utilise, en aucun cas l'auteur
  25 //   de ce code ne pourra être tenu pour responsable des éventuels dégats qu'il pourrait
  26 //   engendrer.
  27 //   Il est entendu cependant que l'auteur a réalisé ce code par plaisir et n'y a
  28 //   caché aucun virus, ni malveillance.
  29 //   Cette libairie est distribuée sous la license GNU/GPL (http://www.gnu.org)
  30 //
  31 //   * Auteur :
  32 //
  33 //   Ce code a été écrit par Vincent Blavet (vincent@blavet.net) sur son temps
  34 //   de loisir.
  35 //
  36 // --------------------------------------------------------------------------------
  37
  38 // ----- Look for double include
  39 if (!defined("PCLERROR_LIB"))
  40 {
  41   define( "PCLERROR_LIB", 1 );
  42
  43   // ----- Version
  44   $g_pcl_error_version = "1.0";
  45
  46   // ----- Internal variables
  47   // These values must only be change by PclError library functions
  48   $g_pcl_error_string = "";
  49   $g_pcl_error_code = 1;
  50
  51
  52   // --------------------------------------------------------------------------------
  53   // Function : PclErrorLog()
  54   // Description :
  55   // Parameters :
  56   // --------------------------------------------------------------------------------
  57   function PclErrorLog($p_error_code=0, $p_error_string="")
  58   {
  59     global $g_pcl_error_string;
  60     global $g_pcl_error_code;
  61
  62     $g_pcl_error_code = $p_error_code;
  63     $g_pcl_error_string = $p_error_string;
  64
  65   }
  66   // --------------------------------------------------------------------------------
  67
  68   // --------------------------------------------------------------------------------
  69   // Function : PclErrorFatal()
  70   // Description :
  71   // Parameters :
  72   // --------------------------------------------------------------------------------
  73   function PclErrorFatal($p_file, $p_line, $p_error_string="")
  74   {
  75     global $g_pcl_error_string;
  76     global $g_pcl_error_code;
  77
  78     $v_message =  "<html><body>";
  79     $v_message .= "<p align=center><font color=red bgcolor=white><b>PclError Library has detected a fatal error on file '$p_file', line $p_line</b></font></p>";
  80     $v_message .= "<p align=center><font color=red bgcolor=white><b>$p_error_string</b></font></p>";
  81     $v_message .= "</body></html>";
  82     die($v_message);
  83   }
  84   // --------------------------------------------------------------------------------
  85
  86   // --------------------------------------------------------------------------------
  87   // Function : PclErrorReset()
  88   // Description :
  89   // Parameters :
  90   // --------------------------------------------------------------------------------
  91   function PclErrorReset()
  92   {
  93     global $g_pcl_error_string;
  94     global $g_pcl_error_code;
  95
  96     $g_pcl_error_code = 1;
  97     $g_pcl_error_string = "";
  98   }
  99   // --------------------------------------------------------------------------------
 100
 101   // --------------------------------------------------------------------------------
 102   // Function : PclErrorCode()
 103   // Description :
 104   // Parameters :
 105   // --------------------------------------------------------------------------------
 106   function PclErrorCode()
 107   {
 108     global $g_pcl_error_string;
 109     global $g_pcl_error_code;
 110
 111     return($g_pcl_error_code);
 112   }
 113   // --------------------------------------------------------------------------------
 114
 115   // --------------------------------------------------------------------------------
 116   // Function : PclErrorString()
 117   // Description :
 118   // Parameters :
 119   // --------------------------------------------------------------------------------
 120   function PclErrorString()
 121   {
 122     global $g_pcl_error_string;
 123     global $g_pcl_error_code;
 124
 125     return($g_pcl_error_string." [code $g_pcl_error_code]");
 126   }
 127   // --------------------------------------------------------------------------------
 128
 129
 130 // ----- End of double include look
 131 }
 132 ?>