107 lines
3.2 KiB
PHP
107 lines
3.2 KiB
PHP
|
<?php
|
||
|
|
header("Cache-Control: no-cache, must-revalidate");
|
||
|
|
// Date in the past
|
||
|
|
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
|
||
|
|
include_once 'class/ORAConnectionClass.php';
|
||
|
|
include_once 'init/initialisation_parameter.php';
|
||
|
|
require_once('error_handler.php');
|
||
|
|
|
||
|
|
$ora_obj = new ORAConnectionClass('init/ORA_INIT.php');
|
||
|
|
$ora_res = $ora_obj->ORA_PConnect();
|
||
|
|
if (!$ora_res){
|
||
|
|
echo "<BR>Error : " . htmlspecialchars($ora_obj->last_error_msg) . "<br>";
|
||
|
|
exit();
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($_SERVER['HTTP_REFERER'] == '') {
|
||
|
|
$result = "Proses Gagal";
|
||
|
|
} else {
|
||
|
|
//$field = explode(chr(31), $_REQUEST["attr"]);
|
||
|
|
$field = explode('^', $_REQUEST["attr"]);
|
||
|
|
$num_field = count($field);
|
||
|
|
|
||
|
|
for ($i=0;$i<$num_field-1;$i++) {
|
||
|
|
//$val_sep = chr(30);
|
||
|
|
$val_sep = '*';
|
||
|
|
list($field_name, $field_value) = split("[$val_sep]", $field[$i]);
|
||
|
|
$_REQUEST["$field_name"] = $field_value;
|
||
|
|
}
|
||
|
|
|
||
|
|
$_REQUEST["USER_UPDATE"] = $_SESSION["KD_USER"];
|
||
|
|
$_REQUEST["TGL_UPDATE"] = date('Y-m-d H:i:s');
|
||
|
|
$_REQUEST["FLAG_OTO"] = "O";
|
||
|
|
$_REQUEST["USER_OTO"] = $_SESSION["KD_USER"];
|
||
|
|
$_REQUEST["TGL_OTO"] = date('Y-m-d H:i:s');
|
||
|
|
$_REQUEST["IPNUM"] = gethostbyname($_SERVER['REMOTE_ADDR']);
|
||
|
|
|
||
|
|
if ($_REQUEST['action'] == "I") {
|
||
|
|
$result = InsertData($ora_obj);
|
||
|
|
} else if ($_REQUEST['action'] == "U") {
|
||
|
|
$result = UpdateData($ora_obj);
|
||
|
|
} else if ($_REQUEST['action'] == "D") {
|
||
|
|
$result = DeleteData($ora_obj);
|
||
|
|
} else {
|
||
|
|
$result = "0";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
echo $result;
|
||
|
|
|
||
|
|
if ($ora_obj->conn) {
|
||
|
|
$ora_obj->ORA_Close();
|
||
|
|
#echo "connection closed.<br>";
|
||
|
|
}
|
||
|
|
|
||
|
|
function InsertData(&$ora_obj) {
|
||
|
|
//$ora_obj->SetServerOutput(true);
|
||
|
|
$exec = $ora_obj->ORA_InsertData(null, "{$_REQUEST['table']}");
|
||
|
|
//$ora_obj->GetDbmsOutput();
|
||
|
|
//$ora_obj->SetServerOutput(false);
|
||
|
|
|
||
|
|
if ($exec) {
|
||
|
|
$ora_obj->ORA_Commit();
|
||
|
|
return "1";
|
||
|
|
} else {
|
||
|
|
$e = $ora_obj->last_error_msg;
|
||
|
|
$ora_obj->ORA_Rollback();
|
||
|
|
$vKetError = trim(substr($e[0], 10, strlen($e[0])-10));
|
||
|
|
$msg = 'Insert GAGAL !!'.chr(10).$vKetError.chr(10).'Click OK untuk Refresh';
|
||
|
|
return $msg;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function UpdateData(&$ora_obj) {
|
||
|
|
$ora_obj->SetServerOutput(true);
|
||
|
|
$exec = $ora_obj->ORA_UpdateData(null, "{$_REQUEST['table']}");
|
||
|
|
$ora_obj->GetDbmsOutput();
|
||
|
|
$ora_obj->SetServerOutput(false);
|
||
|
|
if ($exec) {
|
||
|
|
$ora_obj->ORA_Commit();
|
||
|
|
return "1";
|
||
|
|
} else {
|
||
|
|
$e = $ora_obj->last_error_msg;
|
||
|
|
$ora_obj->ORA_Rollback();
|
||
|
|
$vKetError = trim(substr($e[0], 10, strlen($e[0])-10));
|
||
|
|
$msg = 'Update GAGAL !!'.chr(10).$vKetError.chr(10).'Click OK untuk Refresh';
|
||
|
|
return $msg;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function DeleteData(&$ora_obj) {
|
||
|
|
//$ora_obj->SetServerOutput(true);
|
||
|
|
$exec = $ora_obj->ORA_DeleteData(null, "{$_REQUEST['table']}");
|
||
|
|
//$ora_obj->GetDbmsOutput();
|
||
|
|
//$ora_obj->SetServerOutput(false);
|
||
|
|
if ($exec) {
|
||
|
|
$ora_obj->ORA_Commit();
|
||
|
|
return "1";
|
||
|
|
} else {
|
||
|
|
$e = $ora_obj->last_error_msg;
|
||
|
|
$ora_obj->ORA_Rollback();
|
||
|
|
$vKetError = trim(substr($e[0], 10, strlen($e[0])-10));
|
||
|
|
$msg = 'Delete GAGAL !!'.chr(10).$vKetError.chr(10).'Click OK untuk Refresh';
|
||
|
|
return $msg;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
?>
|