Add documentation and perl/php code from niels diploma.

1 files changed, 52 insertions, 0 deletions

diff --git a/doc/niels-diplom/Dateistruktur/lessons/errror_tests.php b/doc/niels-diplom/Dateistruktur/lessons/errror_tests.php
new file mode 100755
index 0000000..cb59e58
--- /dev/null
+++ b/doc/niels-diplom/Dateistruktur/lessons/errror_tests.php
@@ -0,0 +1,52 @@
+<?
+
+
+$sql = "test";
+
+fehler($sql);
+
+// Display OCI error
+function PrintOCIError($err)
+{
+  echo "<pre>".$err['message']."</pre>\n";
+  die();
+}
+
+
+function fehler($stmt)
+{
+
+	$username  = "nils";
+	$password  = "nils";
+	$database =  "ora9";
+
+	$con = @OCILogon($username, $password, $database);
+	if (!$con) {
+				$e = OCIError();  // For OCILogon errors pass no parameter
+				PrintOCIError($e);
+				}
+
+	echo "Connected OK\n";
+
+	$stid = @OCIParse($con, $stmt);
+	if (!$stid) 
+		{
+		$e = OCIError($con);  // For OCIParse errors pass the connection
+		PrintOCIError($e);
+		}
+
+	echo "Parsed OK\n";
+
+	$r = @OCIExecute($stid);
+	if (!$r) 
+		{
+		$e = OCIError($stid); // For OCIExecute errors pass the statement
+		PrintOCIError($e);
+		}
+
+		echo "Executed OK\n";
+}
+
+
+
+?>