--- /dev/null
+<?\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