source: temp/trunk/html/admin/system/bkup.php @ 5785

<?php

require_once("../require.php");
require_once("../../../data/module/Tar.php");
//require_once("./Tar.php");

//¥Ú¡¼¥¸´ÉÍý¥¯¥é¥¹
class LC_Page {
    //¥³¥ó¥¹¥È¥é¥¯¥¿
    function LC_Page() {
        //¥á¥¤¥ó¥Æ¥ó¥×¥ì¡¼¥È¤Î»ØÄê
        $this->tpl_mainpage = 'system/bkup.tpl';
        $this->tpl_subnavi = 'system/subnavi.tpl';
        $this->tpl_mainno = 'system';       
        $this->tpl_subno = 'bkup';
        $this->tpl_subtitle = '¥Ð¥Ã¥¯¥¢¥Ã¥×´ÉÍý';
        
//      $this->bkup_dir = ROOT_DIR . USER_DIR . "bkup/";
        $this->bkup_dir = ROOT_DIR . "html/test/" . "bkup/";
//      $this->bkup_dir = "../../test/bkup/";
    }
}

$objPage = new LC_Page();
$objView = new SC_AdminView();
$objQuery = new SC_Query();

// ¥»¥Ã¥·¥ç¥ó¥¯¥é¥¹
$objSess = new SC_Session();
// ǧ¾Ú²ÄÈݤÎȽÄê
sfIsSuccess($objSess);

// ¥Ð¥Ã¥¯¥¢¥Ã¥×¥Æ¡¼¥Ö¥ë¤¬¤Ê¤±¤ì¤ÐºîÀ®¤¹¤ë
lfCreateBkupTable();

switch($_POST['mode']) {
// ¥Ð¥Ã¥¯¥¢¥Ã¥×¤òºîÀ®¤¹¤ë
case 'bkup':
    // ÆþÎÏʸ»úÎó¤ÎÊÑ´¹
    $arrData = lfConvertParam($_POST);

    // ¥¨¥é¡¼¥Á¥§¥Ã¥¯
    $arrErr = lfCheckError($arrData);

    // ¥¨¥é¡¼¤¬¤Ê¤±¤ì¤Ð¥Ð¥Ã¥¯¥¢¥Ã¥×½èÍý¤ò¹Ô¤¦   
    if (count($arrErr) <= 0) {
        // ¥Ð¥Ã¥¯¥¢¥Ã¥×¥Õ¥¡¥¤¥ëºîÀ®
        $arrErr = lfCreateBkupData($arrData['bkup_name']);
        
        // DB¤Ë¥Ç¡¼¥¿¹¹¿·
        if (count($arrErr) <= 0) {
            lfUpdBkupData($arrData);
        }else{
            $arrForm = $arrData;
        }
    }else{
        $arrForm = $arrData;
    }

    break;
    
// ¥ê¥¹¥È¥¢
case 'restore':
case 'restore_config':
    if ($_POST['mode'] == 'restore_config') {
        $objPage->mode = "restore_config";
    }

    lfRestore($_POST['list_name']);

    break;
    
// ºï½ü
case 'del':
    // ¥Õ¥¡¥¤¥ë¤Îºï½ü
    unlink($objPage->bkup_dir.$_POST['list_name'] . ".tar.gz");

    // DB¤«¤éºï½ü
    $delsql = "DELETE FROM dtb_bkup WHERE bkup_name = ?";
    $objQuery->query($delsql, array($_POST['list_name']));

    break;
default:
    break;
}

// ¥Ð¥Ã¥¯¥¢¥Ã¥×¥ê¥¹¥È¤ò¼èÆÀ¤¹¤ë
$arrBkupList = lfGetBkupData("ORDER BY create_date DESC");

// ¥Æ¥ó¥×¥ì¡¼¥È¥Õ¥¡¥¤¥ë¤ËÅϤ¹¥Ç¡¼¥¿¤ò¥»¥Ã¥È
$objPage->arrErr = $arrErr;
$objPage->arrForm = $arrForm;
$objPage->arrBkupList = $arrBkupList;

$objView->assignobj($objPage);      //ÊÑ¿ô¤ò¥Æ¥ó¥×¥ì¡¼¥È¤Ë¥¢¥µ¥¤¥ó¤¹¤ë
$objView->display(MAIN_FRAME);      //¥Æ¥ó¥×¥ì¡¼¥È¤Î½ÐÎÏ

//-------------------------------------------------------------------------------------------------------
/* ¼èÆÀʸ»úÎó¤ÎÊÑ´¹ */
function lfConvertParam($array) {
    /*
     *  ʸ»úÎó¤ÎÊÑ´¹
     *  K :  ¡ÖȾ³Ñ(ŽÊŽÝŽ¶Ž¸)ÊÒ²¾Ì¾¡×¤ò¡ÖÁ´³ÑÊÒ²¾Ì¾¡×¤ËÊÑ´¹
     *  C :  ¡ÖÁ´³Ñ¤Ò¤é²¾Ì¾¡×¤ò¡ÖÁ´³Ñ¤«¤¿²¾Ì¾¡×¤ËÊÑ´¹
     *  V :  ÂùÅÀÉÕ¤­¤Îʸ»ú¤ò°ìʸ»ú¤ËÊÑ´¹¡£"K","H"¤È¶¦¤Ë»ÈÍѤ·¤Þ¤¹  
     *  n :  ¡ÖÁ´³Ñ¡×¿ô»ú¤ò¡ÖȾ³Ñ(ŽÊŽÝŽ¶Ž¸)¡×¤ËÊÑ´¹
     *  a :  Á´³Ñ±Ñ¿ô»ú¤òȾ³Ñ±Ñ¿ô»ú¤ËÊÑ´¹¤¹¤ë
     */
    $arrConvList['bkup_name'] = "a";
    $arrConvList['bkup_memo'] = "KVa";
    
    // ʸ»úÊÑ´¹
    foreach ($arrConvList as $key => $val) {
        // POST¤µ¤ì¤Æ¤­¤¿ÃͤΤßÊÑ´¹¤¹¤ë¡£
        if(isset($array[$key])) {
            $array[$key] = mb_convert_kana($array[$key] ,$val);
        }
    }
    return $array;
}

// ¥¨¥é¡¼¥Á¥§¥Ã¥¯
function lfCheckError($array){
    $objErr = new SC_CheckError($array);
    
    $objErr->doFunc(array("¥Ð¥Ã¥¯¥¢¥Ã¥×̾", "bkup_name", STEXT_LEN), array("EXIST_CHECK","MAX_LENGTH_CHECK","NO_SPTAB","ALNUM_CHECK"));
    $objErr->doFunc(array("¥Ð¥Ã¥¯¥¢¥Ã¥×¥á¥â", "bkup_memo", MTEXT_LEN), array("MAX_LENGTH_CHECK"));
    
    // ½ÅÊ£¥Á¥§¥Ã¥¯
    $ret = lfGetBkupData("WHERE bkup_name = ?", array($array['bkup_name']));
    if (count($ret) > 0) {
        $objErr->arrErr['bkup_name'] = "¥Ð¥Ã¥¯¥¢¥Ã¥×̾¤¬½ÅÊ£¤·¤Æ¤¤¤Þ¤¹¡£ÊÌ̾¤òÆþÎϤ·¤Æ¤¯¤À¤µ¤¤¡£";
    }

    return $objErr->arrErr;
}

// ¥Ð¥Ã¥¯¥¢¥Ã¥×¥Õ¥¡¥¤¥ëºîÀ®
function lfCreateBkupData($bkup_name){
    global $objPage;
    $objQuery = new SC_Query();
    $csv_data = "";
    $csv_autoinc = "";
    $err = true;
    
    $bkup_dir = $objPage->bkup_dir;
    $bkup_dir = $bkup_dir . $bkup_name . "/";

    // Á´¥Æ¡¼¥Ö¥ë¼èÆÀ
    $arrTableList = lfGetTableList();
    
    // ³Æ¥Æ¡¼¥Ö¥ë¾ðÊó¤ò¼èÆÀ¤¹¤ë
    foreach($arrTableList as $key => $val){
        
        if ($val != "dtb_bkup") {
            
            // ¼«Æ°ºÎÈÖ·¿¤Î¹½À®¤ò¼èÆÀ¤¹¤ë
            $csv_autoinc .= lfGetAutoIncrement($val);
            
            // Á´¥Ç¡¼¥¿¤ò¼èÆÀ
            $arrData = $objQuery->getAll("SELECT * FROM $val");
    
            // CSV¥Ç¡¼¥¿À¸À®
            if (count($arrData) > 0) {
                
                // ¥«¥é¥à¤òCSV·Á¼°¤ËÀ°¤¨¤ë
                $arrKyes = sfGetCommaList(array_keys($arrData[0]), false);
                
                // ¥Ç¡¼¥¿¤òCSV·Á¼°¤ËÀ°¤¨¤ë
                $data = "";
                foreach($arrData as $data_key => $data_val){
                    $data .= lfGetCSVList($arrData[$data_key]);
                }
                
                // CSV½ÐÎϥǡ¼¥¿À¸À®
                $csv_data .= $val . "\n";
                $csv_data .= $arrKyes . "\n";
                $csv_data .= $data;
                $csv_data .= "\n";
            }   
        }
    }

    $csv_file = $bkup_dir . "bkup_data.csv";
    $csv_autoinc_file = $bkup_dir . "autoinc_data.csv";
    // CSV½ÐÎÏ
    // ¥Ç¥£¥ì¥¯¥È¥ê¤¬Â¸ºß¤·¤Æ¤¤¤Ê¤±¤ì¤ÐºîÀ®¤¹¤ë     
    if (!is_dir(dirname($csv_file))) {
        $err = mkdir(dirname($csv_file));
    }
    if ($err) {
        // data¤òCSV½ÐÎÏ
        $fp = fopen($csv_file,"w");
        if($fp) {
            $err = fwrite($fp, $csv_data);
            fclose($fp);
        }
        
        // ¼«Æ°ºÎÈÖ¤òCSV½ÐÎÏ
        $fp = fopen($csv_autoinc_file,"w");
        if($fp) {
            $err = fwrite($fp, $csv_autoinc);
            fclose($fp);
        }
    }

    // ¾¦ÉʲèÁü¥Õ¥¡¥¤¥ë¤ò¥³¥Ô¡¼
    if ($err) {
        // ¥Ç¥£¥ì¥¯¥È¥ê¤¬Â¸ºß¤·¤Æ¤¤¤Ê¤±¤ì¤ÐºîÀ®¤¹¤ë     
        $image_dir = $bkup_dir . "save_image/";
        if (!is_dir(dirname($image_dir))) $err = mkdir(dirname($image_dir));        
        $copy_mess = "";
        $copy_mess = sfCopyDir("../../upload/save_image/",$image_dir, $copy_mess);

        //°µ½Ì¥Õ¥é¥°TRUE¤Ïgzip°µ½Ì¤ò¤ª¤³¤Ê¤¦
        $tar = new Archive_Tar($objPage->bkup_dir . $bkup_name.".tar.gz", TRUE);

        //bkup¥Õ¥©¥ë¥À¤Ë°ÜÆ°¤¹¤ë
        chdir($objPage->bkup_dir);

        //°µ½Ì¤ò¤ª¤³¤Ê¤¦
        $zip = $tar->create("./" . $bkup_name . "/");

        // ¥Ð¥Ã¥¯¥¢¥Ã¥×¥Ç¡¼¥¿¤Îºï½ü
        if ($zip) sfDelFile($bkup_dir);
    }

    if (!$err) {
        $arrErr['bkup_name'] = "¥Ð¥Ã¥¯¥¢¥Ã¥×¤Ë¼ºÇÔ¤·¤Þ¤·¤¿¡£";
    }
    
    return $arrErr;
}

/* ÇÛÎó¤ÎÍ×ÁǤòCSV¥Õ¥©¡¼¥Þ¥Ã¥È¤Ç½ÐÎϤ¹¤ë¡£*/
function lfGetCSVList($array) {
    if (count($array) > 0) {
        foreach($array as $key => $val) {
            if ($val == "") {
                $line .= "NULL,";
            }else{
                $line .= "'".$val."',";
            }
        }
        $line = ereg_replace(",$", "\n", $line);
        return $line;
    }else{
        return false;
    }
}

// Á´¥Æ¡¼¥Ö¥ë¥ê¥¹¥È¤ò¼èÆÀ¤¹¤ë
function lfGetTableList(){
    $objQuery = new SC_Query();
    
    if(DB_TYPE == "pgsql"){
        $sql = "SELECT tablename FROM pg_tables WHERE tableowner = ? ORDER BY tablename ; ";
        $arrRet = $objQuery->getAll($sql, array(DB_USER));
        $arrRet = sfSwapArray($arrRet);
        $arrRet = $arrRet['tablename'];
    }else if(DB_TYPE == "mysql"){
        $sql = "SHOW TABLES;";
        $arrRet = $objQuery->getAll($sql);
        $arrRet = sfSwapArray($arrRet);
        $arrRet = $arrRet['Tables_in_eccube_db'];
    }
    
    return $arrRet;
}

// ¼«Æ°ºÎÈÖ·¿¤òCSV½ÐÎÏ·Á¼°¤ËÊÑ´¹¤¹¤ë
function lfGetAutoIncrement($table_name){
    $arrColList = lfGetColumnList($table_name);
    $ret = "";
    
    foreach($arrColList['col_def'] as $key => $val){
        if (substr($val,0,9) == 'nextval(\'') {
            $col = $arrColList['col_name'][$key];
            $autoVal = lfGetAutoIncrementVal($table_name, $col);
            $ret .= "$table_name,$col,$autoVal\n";
        }
    }
    
    return $ret;
}

// ¥Æ¡¼¥Ö¥ë¹½À®¤ò¼èÆÀ¤¹¤ë
function lfGetColumnList($table_name){
    $objQuery = new SC_Query();

    if(DB_TYPE == "pgsql"){
        $sql = "SELECT 
                    a.attname, t.typname, a.attnotnull, d.adsrc as defval, a.atttypmod, a.attnum as fldnum, e.description 
                FROM 
                    pg_class c,
                    pg_type t,
                    pg_attribute a left join pg_attrdef d on (a.attrelid=d.adrelid and a.attnum=d.adnum)
                                   left join pg_description e on (a.attrelid=e.objoid and a.attnum=e.objsubid)
                WHERE (c.relname=?) AND (c.oid=a.attrelid) AND (a.atttypid=t.oid) AND a.attnum > 0
                ORDER BY fldnum";
        $arrColList = $objQuery->getAll($sql, array($table_name));
        $arrColList = sfSwapArray($arrRet);
        
        $arrRet['col_def'] = $arrColList['defval'];
        $arrRet['col_name'] = $arrColList['attname'];
    }else if(DB_TYPE == "mysql"){
        $sql = "SHOW COLUMNS FROM $table_name";
        $arrColList = $objQuery->getAll($sql);
        $arrColList = sfSwapArray($arrRet);
        
        $arrRet['col_def'] = array();
        $arrRet['col_def'] = $arrColList['Field'];
        $arrRet['col_name'] = $arrColList['Extra'];
    }
        sfprintr($arrRet);
    
    return $arrRet;
}

// ¼«Æ°ºÎÈÖ·¿¤ÎÃͤò¼èÆÀ¤¹¤ë
function lfGetAutoIncrementVal($table_name , $colname = ""){
    $objQuery = new SC_Query();
    $ret = "";

    if(DB_TYPE == "pgsql"){
        $ret = $objQuery->nextval($table_name, $colname);
    }
    return $ret;
}

// ¥Ð¥Ã¥¯¥¢¥Ã¥×¥Æ¡¼¥Ö¥ë¤Ë¥Ç¡¼¥¿¤ò¹¹¿·¤¹¤ë
function lfUpdBkupData($data){
    $objQuery = new SC_Query();
    
    $sql = "INSERT INTO dtb_bkup (bkup_name,bkup_memo,create_date) values (?,?,now())";
    $objQuery->query($sql, array($data['bkup_name'],$data['bkup_memo']));
}

// ¥Ð¥Ã¥¯¥¢¥Ã¥×¥Æ¡¼¥Ö¥ë¤«¤é¥Ç¡¼¥¿¤ò¼èÆÀ¤¹¤ë
function lfGetBkupData($where = "", $data = array()){
    $objQuery = new SC_Query();
    
    $sql = "SELECT bkup_name, bkup_memo, create_date FROM dtb_bkup ";
    if ($where != "")   $sql .= $where;
    
    $ret = $objQuery->getall($sql,$data);
    
    return $ret;
}

// ¥Ð¥Ã¥¯¥¢¥Ã¥×¥Õ¥¡¥¤¥ë¤ò¥ê¥¹¥È¥¢¤¹¤ë
function lfRestore($bkup_name){
    global $objPage;
    $objQuery = new SC_Query("", false);
    $csv_data = "";
    $err = true;
    
    $bkup_dir = $objPage->bkup_dir . $bkup_name . "/";
    
    //file¥Õ¥©¥ë¥À¤Ë°ÜÆ°¤¹¤ë
    chdir($objPage->bkup_dir);
    
    //°µ½Ì¥Õ¥é¥°TRUE¤Ïgzip²òÅà¤ò¤ª¤³¤Ê¤¦
    $tar = new Archive_Tar($bkup_name . ".tar.gz", TRUE);
    
    //»ØÄꤵ¤ì¤¿¥Õ¥©¥ë¥ÀÆâ¤Ë²òÅह¤ë
    $err = $tar->extract("./");
    
    // ̵»ö²òÅà¤Ç¤­¤ì¤Ð¡¢¥ê¥¹¥È¥¢¤ò¹Ô¤¦
    if ($err) {
        
        $objQuery->begin();
        
        // DB¤ò¥¯¥ê¥¢
        $err = lfDeleteAll($objQuery);
        
        // INSERT¼Â¹Ô
        if ($err) $err = lfExeInsertSQL($objQuery, $bkup_dir . "bkup_data.csv");

        // ¼«Æ°ºÎÈÖ¤ÎÃͤò¥»¥Ã¥È
        if ($err) lfSetAutoInc($objQuery, $bkup_dir . "autoinc_data.csv");

        if ($err) {
            // ²èÁü¤Î¥³¥Ô¡¼
            $image_dir = $bkup_dir . "save_image/";
            $copy_mess = "";
            $copy_mess = sfCopyDir($image_dir, "../../upload/save_image/", $copy_mess);     
    
            // ¥Ð¥Ã¥¯¥¢¥Ã¥×¥Ç¡¼¥¿¤Îºï½ü
            sfDelFile($bkup_dir);
        }
        
        // ¥ê¥¹¥È¥¢À®¸ù¤Ê¤é¥³¥ß¥Ã¥È¼ºÇԤʤé¥í¡¼¥ë¥Ð¥Ã¥¯
        if ($err) {
            $objQuery->commit();
            $objPage->restore_msg = "¥ê¥¹¥È¥¢½ªÎ»¤·¤Þ¤·¤¿¡£";
            $objPage->restore_err = true;
        }else{
            $objQuery->rollback();
            $objPage->restore_msg = "¥ê¥¹¥È¥¢¤Ë¼ºÇÔ¤·¤Þ¤·¤¿¡£";
            $objPage->restore_name = $bkup_name;
            $objPage->restore_err = false;
        }
    }
}

// CSV¥Õ¥¡¥¤¥ë¤«¤é¥¤¥ó¥µ¡¼¥È¼Â¹Ô
function lfExeInsertSQL($objQuery, $csv){
    global $objPage;
    // csv¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤Î¼èÆÀ
    $arrCsvData = file($csv);

    $sql = "";
    $base_sql = "";
    $tbl_flg = false;
    $col_flg = false;
    $ret = true;
    $mode = $objPage->mode;
        
    foreach($arrCsvData as $key => $val){
        $data = trim($val);
        
        //¶õÇò¹Ô¤Î¤È¤­¤Ï¥Æ¡¼¥Ö¥ëÊѹ¹
        if ($data == "") {
            $base_sql = "";
            $tbl_flg = false;
            $col_flg = false;
            continue;
        }
        
        // ¥Æ¡¼¥Ö¥ë¥Õ¥é¥°¤¬¤¿¤Ã¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ë¤Ï¥Æ¡¼¥Ö¥ë̾¥»¥Ã¥È
        if (!$tbl_flg) {
            $base_sql = "INSERT INTO $data ";
            $tbl_flg = true;
            continue;
        }
        
        // ¥«¥é¥à¥Õ¥é¥°¤¬¤¿¤Ã¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ë¤Ï¥«¥é¥à¥»¥Ã¥È
        if (!$col_flg) {
            if ($mode != "restore_config"){
                $base_sql .= " ($data) ";
            }
            $col_flg = true;
            continue;
        }

        // ¥¤¥ó¥µ¡¼¥È¤¹¤ëÃͤò¥»¥Ã¥È
        $sql = $base_sql . "VALUES ($data);\n";
        $err = $objQuery->query($sql);
        
        // ¥¨¥é¡¼¤¬¤¢¤ì¤Ð½ªÎ»
        if ($err->message != ""){
            return false;
        }
    }
    return $ret;
}

// ¼«Æ°ºÎÈÖ¤ò¥»¥Ã¥È
function lfSetAutoInc($objQuery, $csv){
    // csv¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤Î¼èÆÀ
    $arrCsvData = file($csv);
    
    foreach($arrCsvData as $key => $val){
        $arrData = split(",", trim($val));
        $objQuery->setval($arrData[0], $arrData[1], $arrData[2]);
    }
}

// DB¤òÁ´¤Æ¥¯¥ê¥¢¤¹¤ë
function lfDeleteAll($objQuery){
    $ret = true;

    $arrTableList = lfGetTableList();
    
    foreach($arrTableList as $key => $val){
        // ¥Ð¥Ã¥¯¥¢¥Ã¥×¥Æ¡¼¥Ö¥ë¤Ïºï½ü¤·¤Ê¤¤
        if ($val != "dtb_bkup") {
            $trun_sql = "DELETE FROM $val;";
            $ret = $objQuery->query($trun_sql);
            
            if (!$ret) return $ret;
        }
    }
    
    return $ret;
}

// ¥Ð¥Ã¥¯¥¢¥Ã¥×¥Æ¡¼¥Ö¥ë¤òºîÀ®¤¹¤ë
function lfCreateBkupTable(){
    $objQuery = new SC_Query();
    
    // ¥Æ¡¼¥Ö¥ë¤Î¸ºß¥Á¥§¥Ã¥¯
    $arrTableList = lfGetTableList();
    
    if(!in_array("dtb_bkup", $arrTableList)){
        // ¸ºß¤·¤Æ¤¤¤Ê¤±¤ì¤ÐºîÀ®
        $cre_sql = "
            create table dtb_bkup
            (
                bkup_name   text,
                bkup_memo   text,
                create_date timestamp
            );
        ";
        
        $objQuery->query($cre_sql);
    }
}


?>