SetTemplateArray('TEMPLATE_ARRAY_ADDR');
$ora_obj = new ORAConnectionClass('init/ORA_INIT.php');
$ora_res = $ora_obj->ORA_PConnect();
if (!$ora_res){
echo "
Error : " . htmlspecialchars($ora_obj->last_error_msg) . "
";
exit();
}
initAjaxParamTemplate();
if ($_REQUEST['action'] == 'initForm') {
$result = prepare();
} else {
$result = -1;
}
echo $result;
unset($_SESSION['TEMPLATE_ARRAY_ADDR']);
if ($ora_obj->conn) {
$ora_obj->ORA_Close();
#echo "connection closed.
";
}
function initAjaxParamTemplate() {
$upload_treasury_template_array['CONTAINER'] = <<< params
params;
$upload_treasury_template_array['NEWUPLOAD'] = <<< params
| SYPASS - FTP KWU DAN LOAN 2000 |
|
|
params;
$_SESSION['TEMPLATE_ARRAY_ADDR'] = &$upload_treasury_template_array;
}
function prepare(){
$templObj = new PregReplaceCallbackClass('');
$templObj->SetTemplateArray('TEMPLATE_ARRAY_ADDR');
$message = 'Pastikan Koneksi FTP ke Server KWU dan Loan 2000 serta Data Warehouse aktif';
$variable_array['PARAM'] = showUploadForm($message);
$_SESSION['ARRAY_ADDR_VAR'] = &$variable_array;
$templObj->SetFormatName('CONTAINER');
$list = $templObj->PregReplaceCallback();
return $list;
}
function showUploadForm($message=null){
$templObj = new PregReplaceCallbackClass('');
$templObj->SetTemplateArray('TEMPLATE_ARRAY_ADDR');
$kwu_source_arr = explode('^', KWU_SOURCE);
$kwu_source = $kwu_source_arr[0];
$kwu_target_arr = explode('^', KWU_TARGET);
$kwu_target = $kwu_target_arr[0];
$_SESSION['ARRAY_ADDR_VAR'] = &$variable_array;
$templObj->SetFormatName('NEWUPLOAD');
$variable_array['MESSAGE'] = $message;
$variable_array['KWU_SOURCE'] = $kwu_source;
$variable_array['KWU_TARGET'] = $kwu_target;
$variable_array['DISABLE_UPLOAD'] = 'disabled';
$result = $templObj->PregReplaceCallback();
return $result;
}
?>