229 lines
6.8 KiB
PHP
229 lines
6.8 KiB
PHP
|
<?php
|
||
|
include_once("session_checker.php");
|
||
|
include_once 'script_auth.php';
|
||
|
|
||
|
include_once 'init/initialisation_parameter.php';
|
||
|
include_once 'headerFile.php';
|
||
|
|
||
|
//require 'init/FTP_INIT.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();
|
||
|
}
|
||
|
?>
|
||
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
||
|
<html xmlns="http://www.w3.org/1999/xhtml" lang="en">
|
||
|
<head>
|
||
|
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
||
|
<link rel="stylesheet" href="/css/style.css" type="text/css" />
|
||
|
<script language="javascript" type="text/JavaScript" src="/js/script_incl_js.js"></script>
|
||
|
<script language="javascript" type="text/JavaScript" src="/js/md5.js"></script>
|
||
|
<script type="text/javascript" src="/js/ajax.js"></script>
|
||
|
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript" src="/js/incl.js"></SCRIPT>
|
||
|
<script type="text/javascript" src="/js/dhtmlgoodies_calendar.js?random=20071008"></script>
|
||
|
<link type="text/css" rel="stylesheet" href="/css/dhtmlgoodies_calendar.css?random=20071008" media="screen"></link>
|
||
|
<title>Data Warehouse</title>
|
||
|
</head>
|
||
|
<!-- Global IE fix to avoid layout crash when single word size wider than column width -->
|
||
|
<!--[if IE]><style type="text/css"> body {word-wrap: break-word;}</style><![endif]-->
|
||
|
<body onload="javascript:ajaxGetForm();">
|
||
|
<!-- Main Page Container -->
|
||
|
<!-- headers START here -->
|
||
|
<?php include_once("header.php"); ?>
|
||
|
<!-- end header -->
|
||
|
|
||
|
<div id="content" align="center">
|
||
|
<?php include_once("navigation.php"); ?>
|
||
|
|
||
|
<div id="contenttext">
|
||
|
<?php include_once("group_header.php"); ?>
|
||
|
<span id="parameterlist" style="display:none"></span>
|
||
|
</div>
|
||
|
<?php include_once("footer.php"); ?>
|
||
|
|
||
|
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
|
||
|
var ajax = new sack();
|
||
|
var IE = document.all?true:false;
|
||
|
|
||
|
function ajaxGetForm() {
|
||
|
var data="action=initForm";
|
||
|
data=data+"&sid="+Math.random();
|
||
|
ajax.requestFile = 'upload_loan_ajax.php?'+data;
|
||
|
ajax.onCompletion = detailChanged;
|
||
|
ajax.runAJAX();
|
||
|
}
|
||
|
|
||
|
function detailChanged() {
|
||
|
var resp = ajax.response;
|
||
|
document.getElementById("parameterlist").innerHTML = ajax.response;
|
||
|
document.getElementById("parameterlist").style.display = "block";
|
||
|
ajax.reset();
|
||
|
}
|
||
|
|
||
|
|
||
|
function prosesFTP() {
|
||
|
document.getElementById("actionDisp").innerHTML = 'FTP Transfer in progress please wait... <img src="/images/spinner_blue.gif">';
|
||
|
document.uploadLoanForm.submit();
|
||
|
}
|
||
|
</SCRIPT>
|
||
|
|
||
|
<?php
|
||
|
if ($_REQUEST['action'] == 'uploadFile') {
|
||
|
$local_path = "/usr/local/apache2/htdocs/dwh/tmp";
|
||
|
$result = 0;
|
||
|
$msg = '';
|
||
|
echo $msg;
|
||
|
|
||
|
$source = KWU_SOURCE;
|
||
|
$target = KWU_TARGET;
|
||
|
|
||
|
$arr_source = explode('^', $source);
|
||
|
$arr_target = explode('^', $target);
|
||
|
|
||
|
// cek koneksi ke KWU-Loan 2000
|
||
|
//$ftp_server_source = $SOURCE_HOST;
|
||
|
//$ftp_user_name_source = $SOURCE_USER;
|
||
|
//$ftp_user_pass_source = $SOURCE_PWD;
|
||
|
|
||
|
$ftp_server_source = $arr_source[0];
|
||
|
$ftp_user_name_source = $arr_source[1];
|
||
|
$ftp_user_pass_source = $arr_source[2];
|
||
|
|
||
|
$conn_source = ftp_connect($ftp_server_source);
|
||
|
$login_source = ftp_login($conn_source, $ftp_user_name_source, $ftp_user_pass_source);
|
||
|
|
||
|
if ((!$conn_source) || (!$login_source)) {
|
||
|
$last_msg = "Connection to $ftp_server_source for user $ftp_user_name_source has failed!";
|
||
|
ftp_close($conn_source);
|
||
|
die($last_msg);
|
||
|
} else {
|
||
|
// cd KWU
|
||
|
// get LNMAST.DBF, LNCUST.DBF, LNTYPE.DBF
|
||
|
// put di local temporary folder
|
||
|
|
||
|
// cd Loan 2000
|
||
|
// get LNMAST.DBF, LNCUST.DBF, LNTYPE.DBF
|
||
|
// put di local temporary folder
|
||
|
|
||
|
for ($j=1;$j<=2;$j++) {
|
||
|
if ($j == 1) {
|
||
|
$ftp_dir = KWU_SOURCE_DATA;
|
||
|
$tmp_dir = 'KWU';
|
||
|
} else {
|
||
|
$ftp_dir = L2R_SOURCE_DATA;
|
||
|
$tmp_dir = 'L2R';
|
||
|
}
|
||
|
$tmp_path = $local_path.'/'.$tmp_dir;
|
||
|
if (!is_dir($tmp_path)) {
|
||
|
mkdir($tmp_path,0777);
|
||
|
}
|
||
|
|
||
|
if (ftp_chdir($conn_source, $ftp_dir)) {
|
||
|
for ($i=1;$i<=3;$i++) {
|
||
|
if ($i == 1) {
|
||
|
$source_file = 'LNTYPE.DBF';
|
||
|
} else if ($i == 2) {
|
||
|
$source_file = 'LNCUST.DBF';
|
||
|
} else {
|
||
|
$source_file = 'LNMAST.DBF';
|
||
|
}
|
||
|
|
||
|
$local_file = $tmp_path.'/'.$source_file;
|
||
|
$get = ftp_get($conn_source, $local_file, $source_file, FTP_BINARY);
|
||
|
if (!$get) {
|
||
|
$last_msg = "ERROR: Unable to get file $source_file from server MARS.";
|
||
|
unlink($source_file);
|
||
|
ftp_close($conn_source);
|
||
|
die($last_msg);
|
||
|
} else {
|
||
|
$result = 1;
|
||
|
}
|
||
|
}
|
||
|
ftp_cdup($conn_source);
|
||
|
} else {
|
||
|
$last_msg = "ERROR: Cannot change Directory in $ftp_server_source.";
|
||
|
ftp_close($conn_source);
|
||
|
die($last_msg);
|
||
|
}
|
||
|
}
|
||
|
// Close koneksi KWU-Loan 2000
|
||
|
ftp_close($conn_source);
|
||
|
|
||
|
// Connect ke DWH
|
||
|
//$ftp_server_target = $TARGET_HOST;
|
||
|
//$ftp_user_name_target = $TARGET_USER;
|
||
|
//$ftp_user_pass_target = $TARGET_PWD;
|
||
|
|
||
|
$ftp_server_target = $arr_target[0];
|
||
|
$ftp_user_name_target = $arr_target[1];
|
||
|
$ftp_user_pass_target = $arr_target[2];
|
||
|
|
||
|
$conn_target = ftp_connect($ftp_server_target);
|
||
|
$login_target = ftp_login($conn_target, $ftp_user_name_target, $ftp_user_pass_target);
|
||
|
|
||
|
if ((!$conn_target) || (!$login_target)) {
|
||
|
$last_msg = "Connection to $ftp_server_target for user $ftp_user_name_target has failed!";
|
||
|
ftp_close($conn_target);
|
||
|
die($last_msg);
|
||
|
} else {
|
||
|
// cd KWU
|
||
|
// put LNMAST.DBF, LNCUST.DBF, LNTYPE.DBF
|
||
|
|
||
|
// cd Loan 2000
|
||
|
// put LNMAST.DBF, LNCUST.DBF, LNTYPE.DBF
|
||
|
|
||
|
for ($j=1;$j<=2;$j++) {
|
||
|
if ($j == 1) {
|
||
|
$ftp_dir = 'KWU';
|
||
|
} else {
|
||
|
$ftp_dir = 'L2R';
|
||
|
}
|
||
|
$tmp_path = $local_path.'/'.$ftp_dir;
|
||
|
if (ftp_chdir($conn_target, $ftp_dir)) {
|
||
|
for ($i=1;$i<=3;$i++) {
|
||
|
if ($i == 1) {
|
||
|
$source_file = 'LNTYPE.DBF';
|
||
|
} else if ($i == 2) {
|
||
|
$source_file = 'LNCUST.DBF';
|
||
|
} else {
|
||
|
$source_file = 'LNMAST.DBF';
|
||
|
}
|
||
|
$local_file = $tmp_path.'/'.$source_file;
|
||
|
$put = ftp_put($conn_target, $source_file, $local_file, FTP_BINARY);
|
||
|
if (!$put) {
|
||
|
$last_msg = "ERROR: Unable to put file $source_file to server DWH.";
|
||
|
unlink($local_file);
|
||
|
ftp_close($conn_target);
|
||
|
die($last_msg);
|
||
|
} else {
|
||
|
$result = 2;
|
||
|
}
|
||
|
}
|
||
|
ftp_cdup($conn_target);
|
||
|
} else {
|
||
|
$last_msg = "ERROR: Cannot change Directory in $ftp_server_target.";
|
||
|
ftp_close($conn_target);
|
||
|
die($last_msg);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
// close koneksi DWH
|
||
|
ftp_close($conn_target);
|
||
|
}
|
||
|
}
|
||
|
if ($result === 2) {
|
||
|
$msg = "UPLOAD SUCCESSFUL";
|
||
|
} else if ($result === 1) {
|
||
|
$msg = "FAIL TO PUT DATA TO DWH SERVER";
|
||
|
} else {
|
||
|
$msg = "UPLOAD FAILED. " . $last_msg;
|
||
|
}
|
||
|
echo $msg;
|
||
|
return $result;
|
||
|
}
|
||
|
?>
|
||
|
</body>
|
||
|
</html>
|