<?php
/*
 * This file is part of EC-CUBE
 *
 * Copyright(c) 2000-2007 LOCKON CO.,LTD. All Rights Reserved.
 *
 * http://www.lockon.co.jp/
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 */
require_once("../require.php");
require_once(DATA_PATH . "module/Request.php");

//ページ管理クラス
class LC_Page {
	//コンストラクタ
	function LC_Page() {
		//メインテンプレートの指定
		$this->tpl_mainpage = 'system/module.tpl';
		$this->tpl_subnavi = 'system/subnavi.tpl';
		$this->tpl_mainno = 'system';		
		$this->tpl_subno = 'module';
		$this->tpl_subtitle = 'モジュール管理';
	}
}
$objPage = new LC_Page();
$objView = new SC_AdminView();
$objQuery = new SC_Query();

// セッションクラス
$objSess = new SC_Session();
// 認証可否の判定
sfIsSuccess($objSess);

switch($_POST['mode']) {
// アップデート情報ファイルを取得
case 'edit':
	// 更新情報を最新にする
	lfLoadUpdateList();
	break;
// インストール
case 'install':
	// 更新情報を最新にする
	lfLoadUpdateList();
	// モジュール郡のインストール
	lfInstallModule();
	break;
// アンインストール
case 'uninstall':
	// 更新情報を最新にする
	lfLoadUpdateList();
	// モジュール郡のインストール	
	lfUninstallModule();
	break;
default:
	break;
}

$objQuery->setorder("module_id");
$arrUpdate = $objQuery->select("*", "dtb_module");

$objPage->arrUpdate = $arrUpdate;
$objView->assignobj($objPage);		//変数をテンプレートにアサインする
$objView->display(MAIN_FRAME);		//テンプレートの出力
//-------------------------------------------------------------------------------------------------------
// 更新ファイルの取得
function lfCopyUpdateFile($file) {
	global $objPage;
	
	$src_path = sfRmDupSlash(UPDATE_HTTP . $file . ".txt");
	$dst_path = sfRmDupSlash(MODULE_PATH . $file);
	$flg_ok = true;	// 処理の成功判定
	
	$src_fp = @fopen($src_path, "rb");
	
	if(!$src_fp) {
		sfErrorHeader(">> " . $src_path . "の取得に失敗しました。");
		$flg_ok = false;
	} else {
		// ファイルをすべて読み込む
		$contents = '';
		while (!feof($src_fp)) {
			$contents .= fread($src_fp, 1024);
		}
		fclose($src_fp);
		
		// ディレクトリ作成を試みる
		lfMakeDirectory($dst_path);
		// ファイル書込み		
		$dst_fp = @fopen($dst_path, "wb");
		if(!$dst_fp) {
			sfErrorHeader(">> " . $dst_path . "をオープンできません。");
			$flg_ok = false;
		} else {
			fwrite($dst_fp, $contents);
			fclose($dst_fp);
		}
	}
	
	if($flg_ok) {
		$objPage->update_mess.= ">> " . $dst_path . "：コピー成功<br>";
	} else {
		$objPage->update_mess.= ">> " . $dst_path . "：コピー失敗<br>";		
	}
	
	return $flg_ok;
}

// すべてのパスのディレクトリを作成する
function lfMakeDirectory($path) {
	$pos = 0;
	$cnt = 0;				// 無限ループ対策
	$len = strlen($path);	// 無限ループ対策
	
	while($cnt <= $len) {
		$pos = strpos($path, "/", $pos);
		// ここでの判定は、等号3つを使用
		if($pos === false) {
			// スラッシュが見つからない場合はループから抜ける
			break;
		}
		$pos++; // 文字発見位置を一文字進める
		$dir = substr($path, 0, $pos);
		
	    // 既に存在せず、書き込み可能である場合
        if(!file_exists($dir) && is_writable(dirname($dir))) {
            mkdir($dir);
        }
		$cnt++; // 無限ループ対策
	}
}

// 更新情報を最新にする
function lfLoadUpdateList() {
	$objQuery = new SC_Query();
	$path = UPDATE_HTTP . "module.txt";
	$fp = @fopen($path, "rb");
	
	$arrInsID = array();
		
	if(!$fp) {
		sfErrorHeader(">> " . $path . "の取得に失敗しました。");
	} else {
		
		while (!feof($fp)) {
			$arrCSV = fgetcsv($fp, UPDATE_CSV_LINE_MAX);
			
			// エスケープ処理の置換
			foreach($arrCSV as $key => $val){
				$arrCSV[$key] = str_replace('\"', '"', $val);
			}
			
			if(ereg("^#", $arrCSV[0])) {
				continue;
			}
			
			// カラム数が正常であった場合のみ
			if(count($arrCSV) == MODULE_CSV_COL_MAX) {
					// insertするmodule_idを配列に格納
					$arrInsID[] = $arrCSV[0];
				
					// 取得したアップデート情報をDBに書き込む
					$sqlval['module_id'] = $arrCSV[0];
					$sqlval['module_name'] = $arrCSV[1];
					$sqlval['latest_version'] = $arrCSV[3];
					$sqlval['module_explain'] = $arrCSV[4];
					$sqlval['main_php'] = $arrCSV[5];
					$sqlval['extern_php'] = $arrCSV[6];
					$sqlval['install_sql'] = $arrCSV[7];
					$sqlval['uninstall_sql'] = $arrCSV[8];				
					$sqlval['other_files'] = $arrCSV[9];
					$sqlval['del_flg'] = $arrCSV[10];
					$sqlval['update_date'] = "now()";
					$sqlval['release_date'] = $arrCSV[12];
					$sqlval['module_x'] = $arrCSV[14];
					$sqlval['module_y'] = $arrCSV[15];
					// モジュールが対応している本体のバージョン
					$sqlval['eccube_version'] = $arrCSV[13];					
					// 既存レコードのチェック
					$cnt = $objQuery->count("dtb_module", "module_id = ?", array($sqlval['module_id']));
					if($cnt > 0) {
						// すでに取得されている場合は更新する。	
						$objQuery->update("dtb_module", $sqlval, "module_id = ?", array($sqlval['module_id']));
					} else {
						// 新規レコードの追加
						$sqlval['create_date'] = "now()";
						$objQuery->insert("dtb_module", $sqlval);
					}
			} else {
				sfErrorHeader(">> カラム数が一致しません。：".count($arrCSV));
			}
		}
		
		// 不要なデータを削除
		if(count($arrInsID) > 0){
			$del_sql = "DELETE FROM dtb_module WHERE module_id NOT IN (?";
			
			for($i = 1; $i < count($arrInsID); $i++){
				$del_sql .= ",?";
			}
			$del_sql .= ")";
			
			$objQuery->query($del_sql, $arrInsID);
		}

		fclose($fp);
	}
}

// インストール処理
function lfInstallModule() {
	global $objPage;
	
	$objQuery = new SC_Query();
	$arrRet = $objQuery->select("module_id, extern_php, other_files, install_sql, latest_version", "dtb_module", "module_id = ?", array($_POST['module_id']));
	$flg_ok = true;	// 処理の成功判定
	
	if(count($arrRet) > 0) {
		$arrFiles = array();
		if($arrRet[0]['other_files'] != "") {
			$arrFiles = split("\|", $arrRet[0]['other_files']);
		}
		$arrFiles[] = $arrRet[0]['extern_php'];
		foreach($arrFiles as $val) {
			// 更新ファイルの取得
			$ret=lfCopyUpdateFile($val);
			if(!$ret) {
				$flg_ok = false;
			}
		}
	} else {
		sfErrorHeader(">> 対象の機能は、配布を終了しております。");
		$flg_ok = false;
	}
	
	// 必要なSQL文の実行
	if($arrRet[0]['install_sql'] != "") {
		// SQL文実行、パラーメータなし、エラー無視
		$arrInstallSql = split(";",$arrRet[0]['install_sql']);
		foreach($arrInstallSql as $key => $val){
			if (trim($val) != ""){
				$ret = $objQuery->query(trim($val),"",true);
			}
		}
		if(DB::isError($ret)) {
			// エラー文を取得する
			ereg("\[(.*)\]", $ret->userinfo, $arrKey);
			$objPage->update_mess.=">> テーブル構成の変更に失敗しました。<br>";
			$objPage->update_mess.= $arrKey[0] . "<br>";
			$flg_ok = false;
		} else {
			$objPage->update_mess.=">> テーブル構成の変更を行いました。<br>";
		}
	}
	
	if($flg_ok) {		
		$path = MODULE_PATH . $arrRet[0]['extern_php'];
		$sqlval['now_version'] = sfGetFileVersion($path);
		$sqlval['update_date'] = "now()";
		$objQuery->update("dtb_module", $sqlval, "module_id = ?", array($arrRet[0]['module_id']));
	}
}

// アンインストール処理
function lfUninstallModule() {
	global $objPage;
	
	$objQuery = new SC_Query();
	$arrRet = $objQuery->select("module_id, extern_php, other_files, install_sql, uninstall_sql, latest_version", "dtb_module", "module_id = ?", array($_POST['module_id']));
	$flg_ok = true;	// 処理の成功判定
	
	if(count($arrRet) > 0) {
		
		// モジュールを削除する
		$objQuery->query("UPDATE dtb_payment SET del_flg = 1 WHERE module_id = ?", array($arrRet[0]['module_id']));

		$arrFiles = array();
		if($arrRet[0]['other_files'] != "") {
			$arrFiles = split("\|", $arrRet[0]['other_files']);
		}
		$arrFiles[] = $arrRet[0]['extern_php'];

		foreach($arrFiles as $val) {
			$path = MODULE_PATH . $val;
			// ファイルを削除する
			if(file_exists($path) && unlink($path)) {
				$objPage->update_mess.= ">> " . $path . "：削除成功<br>";
			} else {
				$objPage->update_mess.= ">> " . $path . "：削除失敗<br>";
			}
		}

		// 必要なSQL文の実行
		if($arrRet[0]['uninstall_sql'] != "") {
			// SQL文実行、パラーメータなし、エラー無視
			$ret = $objQuery->query($arrRet[0]['uninstall_sql'],"",true);
			if(DB::isError($ret)) {
				// エラー文を取得する
				ereg("\[(.*)\]", $ret->userinfo, $arrKey);
				$objPage->update_mess.=">> テーブル構成の変更に失敗しました。<br>";
				$objPage->update_mess.= $arrKey[0] . "<br>";
				$flg_ok = false;
			} else {
				$objPage->update_mess.=">> テーブル構成の変更を行いました。<br>";
			}
		}
	} else {
		sfErrorHeader(">> 対象の機能は、配布を終了しております。");
	}

	if($flg_ok) {
		// バージョン情報を削除する。
		$sqlval['now_version'] = "";
		$sqlval['update_date'] = "now()";
		$objQuery->update("dtb_module", $sqlval, "module_id = ?", array($arrRet[0]['module_id']));
	}
}

?>