[SPIP] +spip v3.0.17
[lhc/web/clavette_www.git] / www / plugins-dist / svp / lib / pcltar / pclerror.lib.php
diff --git a/www/plugins-dist/svp/lib/pcltar/pclerror.lib.php b/www/plugins-dist/svp/lib/pcltar/pclerror.lib.php
new file mode 100644 (file)
index 0000000..35945e7
--- /dev/null
@@ -0,0 +1,132 @@
+<?\r
+// --------------------------------------------------------------------------------\r
+// PhpConcept Library (PCL) Error 1.0\r
+// --------------------------------------------------------------------------------\r
+// License GNU/GPL - Vincent Blavet - Mars 2001\r
+// http://www.phpconcept.net & http://phpconcept.free.fr\r
+// --------------------------------------------------------------------------------\r
+// Français :\r
+//   La description de l'usage de la librairie PCL Error 1.0 n'est pas encore\r
+//   disponible. Celle-ci n'est pour le moment distribuée qu'avec les\r
+//   développements applicatifs de PhpConcept.\r
+//   Une version indépendante sera bientot disponible sur http://www.phpconcept.net\r
+//\r
+// English :\r
+//   The PCL Error 1.0 library description is not available yet. This library is\r
+//   released only with PhpConcept application and libraries.\r
+//   An independant release will be soon available on http://www.phpconcept.net\r
+//\r
+// --------------------------------------------------------------------------------\r
+//\r
+//   * Avertissement :\r
+//\r
+//   Cette librairie a été créée de façon non professionnelle.\r
+//   Son usage est au risque et péril de celui qui l'utilise, en aucun cas l'auteur\r
+//   de ce code ne pourra être tenu pour responsable des éventuels dégats qu'il pourrait\r
+//   engendrer.\r
+//   Il est entendu cependant que l'auteur a réalisé ce code par plaisir et n'y a\r
+//   caché aucun virus, ni malveillance.\r
+//   Cette libairie est distribuée sous la license GNU/GPL (http://www.gnu.org)\r
+//\r
+//   * Auteur :\r
+//\r
+//   Ce code a été écrit par Vincent Blavet (vincent@blavet.net) sur son temps\r
+//   de loisir.\r
+//\r
+// --------------------------------------------------------------------------------\r
+\r
+// ----- Look for double include\r
+if (!defined("PCLERROR_LIB"))\r
+{\r
+  define( "PCLERROR_LIB", 1 );\r
+\r
+  // ----- Version\r
+  $g_pcl_error_version = "1.0";\r
+\r
+  // ----- Internal variables\r
+  // These values must only be change by PclError library functions\r
+  $g_pcl_error_string = "";\r
+  $g_pcl_error_code = 1;\r
+\r
+\r
+  // --------------------------------------------------------------------------------\r
+  // Function : PclErrorLog()\r
+  // Description :\r
+  // Parameters :\r
+  // --------------------------------------------------------------------------------\r
+  function PclErrorLog($p_error_code=0, $p_error_string="")\r
+  {\r
+    global $g_pcl_error_string;\r
+    global $g_pcl_error_code;\r
+\r
+    $g_pcl_error_code = $p_error_code;\r
+    $g_pcl_error_string = $p_error_string;\r
+\r
+  }\r
+  // --------------------------------------------------------------------------------\r
+\r
+  // --------------------------------------------------------------------------------\r
+  // Function : PclErrorFatal()\r
+  // Description :\r
+  // Parameters :\r
+  // --------------------------------------------------------------------------------\r
+  function PclErrorFatal($p_file, $p_line, $p_error_string="")\r
+  {\r
+    global $g_pcl_error_string;\r
+    global $g_pcl_error_code;\r
+\r
+    $v_message =  "<html><body>";\r
+    $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>";\r
+    $v_message .= "<p align=center><font color=red bgcolor=white><b>$p_error_string</b></font></p>";\r
+    $v_message .= "</body></html>";\r
+    die($v_message);\r
+  }\r
+  // --------------------------------------------------------------------------------\r
+\r
+  // --------------------------------------------------------------------------------\r
+  // Function : PclErrorReset()\r
+  // Description :\r
+  // Parameters :\r
+  // --------------------------------------------------------------------------------\r
+  function PclErrorReset()\r
+  {\r
+    global $g_pcl_error_string;\r
+    global $g_pcl_error_code;\r
+\r
+    $g_pcl_error_code = 1;\r
+    $g_pcl_error_string = "";\r
+  }\r
+  // --------------------------------------------------------------------------------\r
+\r
+  // --------------------------------------------------------------------------------\r
+  // Function : PclErrorCode()\r
+  // Description :\r
+  // Parameters :\r
+  // --------------------------------------------------------------------------------\r
+  function PclErrorCode()\r
+  {\r
+    global $g_pcl_error_string;\r
+    global $g_pcl_error_code;\r
+    \r
+    return($g_pcl_error_code);\r
+  }\r
+  // --------------------------------------------------------------------------------\r
+\r
+  // --------------------------------------------------------------------------------\r
+  // Function : PclErrorString()\r
+  // Description :\r
+  // Parameters :\r
+  // --------------------------------------------------------------------------------\r
+  function PclErrorString()\r
+  {\r
+    global $g_pcl_error_string;\r
+    global $g_pcl_error_code;\r
+\r
+    return($g_pcl_error_string." [code $g_pcl_error_code]");\r
+  }\r
+  // --------------------------------------------------------------------------------\r
+\r
+\r
+// ----- End of double include look\r
+}\r
+?>\r