<?php
/**
 * 
 * @copyright   2000-2007 LOCKON CO.,LTD. All Rights Reserved.
 * @version CVS: $Id: 1.0 2006-06-04 06:38:01Z matsumura $
 * @link        http://www.lockon.co.jp/
 *
 */
 
class LC_Page {
    
    function LC_Page() {
        $this->tpl_mainpage = MODULE_PATH . "blayn/blayn.tpl";
        $this->tpl_title = "֥쥤IPϿ";
        $this->tpl_subtitle = "֥쥤IP⥸塼";
    }
}
$objPage = new LC_Page();
$objView = new SC_AdminView();
$objQuery = new SC_Query();
$objFormParam = new SC_FormParam;


if(isset($_POST['blayn_ip01'])) {
    $objPage->arrErr = lfCheckError();
    if(count($objPage->arrErr) <= 0) {
        lfDelete();
        lfRegist();
    }
}
$objPage->arrIP = lfGetIP();

$objView->assignobj($objPage);      //ѿƥץ졼Ȥ˥󤹤
$objView->display($objPage->tpl_mainpage);      //ƥץ졼Ȥν

// ------------------------------------------------------------------------------------------------------

function lfIntiParam() {
    
    global $objFormParam;
    
        $objFormParam->addParam("IPɥ쥹1", "blayn_ip01", INT_LEN, "KVa", array("EXIST_CHECK", "MAX_LENGTH_CHECK", "NUM_CHECK"));
        $objFormParam->addParam("IPɥ쥹2", "blayn_ip02", INT_LEN, "KVa", array("EXIST_CHECK", "MAX_LENGTH_CHECK", "NUM_CHECK"));
        $objFormParam->addParam("IPɥ쥹3", "blayn_ip03", INT_LEN, "KVa", array("EXIST_CHECK", "MAX_LENGTH_CHECK", "NUM_CHECK"));
        $objFormParam->addParam("IPɥ쥹4", "blayn_ip04", INT_LEN, "KVa", array("EXIST_CHECK", "MAX_LENGTH_CHECK", "NUM_CHECK"));
        
}

function lfCheckError() {
    
    global $objFormParam;
    
    $arrList = $objFormParam->getHashArray();
    $objErr = new SC_CheckError($arrList);
    $objErr->arrErr = $objFormParam->checkError();
    
    return $arrErr->arrErr;
}

function lfRegist() {
    
    global $objQuery;
    
    $blayn_ip .= $_POST['blayn_ip01'];
    $blayn_ip .= "." . $_POST['blayn_ip02'];
    $blayn_ip .= "." . $_POST['blayn_ip03'];
    $blayn_ip .= "." . $_POST['blayn_ip04'];
    
    $sqlVal['blayn_ip'] = $blayn_ip;
    $objQuery->insert("dtb_blayn", $sqlVal);
}


function lfDelete() {
    
    global $objQuery;
    
    $objQuery->delete("dtb_blayn");
}


function lfGetIP() {
    
    global $objQuery;
    
    $arrSql = $objQuery->select("blayn_ip", "dtb_blayn");
    $arrRet = split("\.", $arrSql[0]['blayn_ip']);
    return $arrRet;

}

?>
