<?
header( "Content-Type: text/html; Charset={$GLOBALS['conf_client_charset']}" );
header( "Expires: Wed, 31 May 2000 14:59:58 GMT" );

# **********************************************************
# 内部データは UTF-8 の日本語
# **********************************************************
mb_language( "ja" );
mb_internal_encoding("UTF-8");

# **********************************************************
# $_GET データは変換しない
# **********************************************************
foreach( $_GET as $Key => $Value ) {
	$_POST[$Key] = $_GET[$Key];
}

# **********************************************************
# $_GET データを全て $_POST に転送して \' と \" を変換
# **********************************************************
foreach( $_POST as $Key => $Value ) {
	$_POST[$Key] = str_replace("\\\\", "\\", $Value );
	$_POST[$Key] = str_replace("\\'", "'", $_POST[$Key] );
	$_POST[$Key] = str_replace("\\\"", "\"", $_POST[$Key] );
}

$base_param = "ret={$_POST['ret']}";
$base_param .= "&func={$_POST['func']}";
$base_param .= "&ai={$_POST['ai']}";
$base_param .= "&max={$_POST['max']}";
$base_param .= "&debug={$_POST['debug']}";
$base_param .= "&code={$_POST['code']}";

# **********************************************************
# 環境
# **********************************************************
define( 'COMMON_AUTHOR', 'LIGHTBOX' );
$COMMON_VERSION = '8.0307';
$PHP_VERSION = phpversion();
$HOME_URL = "";					// 戻る場所
$CLIENT_PATH = "";				// 外部スタイルシート等の場所(セットする場合最後に '/')
$CLIENT_FONT_SIZE = "12px";		// デフォルトのフォントサイズ


# **********************************************************
# 更新データセット
# **********************************************************
function SetData( $Value, $Type ) {

	$ret;

	if ( trim( $Value ) == "" ) {
		$ret = "NULL";
	}
	else {
		if ( $Type == 1 ) {
			$ret = str_replace( "'", "''", $Value );
			$ret = Ss( $ret );
		}
		else {
			$ret = $Value + 0;
		}
	}

	return $ret;

}

# **********************************************************
# テキストファイル一括読み込み
# **********************************************************
function TxtGetAll( $Path ) {

	$txt_array = @file( $Path );
	if ( $txt_array === FALSE ) {
		return FALSE;
	}

	$len = count( $txt_array );
	for( $i = $len - 1; $i >= 0; $i-- ) {
		if ( substr( $txt_array[$i], 0, 1 ) == ';' ) {
			array_splice( $txt_array, $i, 1 );
		}
		if ( substr( $txt_array[$i], 0, 2 ) == '--' ) {
			array_splice( $txt_array, $i, 1 );
		}
	}

	$txt = implode( "", $txt_array );

	return $txt;

}

function TxtPutAll( $Path, $text, $mode="a" ) {

	$ret;

	$handle = fopen( $Path, $mode );
	fwrite( $handle, $text );
	fclose( $handle );

}

# **********************************************************
# 文字列内の PHP 変数を示す文字列のパース
# 1) ApplyValue( "文字列" );
# 2) ApplyValue( "ファイルのパス", TRUE );
# **********************************************************
function ApplyValue( $Value, $flg=FALSE ) {

	if ( $flg ) {
		$Value = TxtGetAll( $Value );
	}
	$Value = str_replace('"', '\\"', $Value );
	eval("\$Value = \"$Value\";");

	return $Value;

}

# **********************************************************
# ディリクトリリスト取得 ( 戻り値 : 配列 )
# **********************************************************
function GetDirList( $Path ) {

	$ret = array();

	if ( $dh = opendir( "$Path" ) ) {
		while ( ($file = readdir($dh) ) !== false ) {
			if ( filetype( $Path . "/"  . $file ) == 'dir' ) {
				if ( $file != "." && $file != ".." ) {
					$ret[] = $file;
				}
			}
		}
		closedir( $dh );
	}

	return $ret;

}


# **********************************************************
# ダブルクォート表示用処理
# **********************************************************
function RestoreValue( ) {

	foreach( $_POST as $Key => $Value ) {
		$_POST[$Key] = str_replace("\"", "&#34;", $_POST[$Key] );
	}

}

# **********************************************************
# クッキーデータの復帰
# **********************************************************
function RestoreCookie( ) {

	foreach( $_COOKIE as $Key => $Value ) {
		if ( substr( $Key, 0, 2 ) == 'In' ) {
			if ( !isset( $_POST[$Key] ) ) {
				$_POST[$Key]
				 = str_replace("\\\\", "\\", $_COOKIE[$Key] );
				$_POST[$Key]
				 = str_replace("\\'", "'", $_POST[$Key] );
				$_POST[$Key]
				 = str_replace("\\\"", "\"", $_POST[$Key] );
			}
		}
	}

}

# **********************************************************
# エラーメッセージのセット
# **********************************************************
function SetError( $Message ) {

	$GLOBALS['ErrMessage'] = $Message;

}

# **********************************************************
# 引継ぎ用埋め込みデータの作成
# **********************************************************
function CreateInData( ) {

	global $InData;

	$InData = "";

	foreach( $_POST as $Key => $Value ) {
		if ( substr( $Key, 0, 2 ) == "In" ) {
			if ( substr( $Key, 0, 3 ) != "In2" ) {
				$InData .= "<INPUT type=hidden name=$Key ";
				$InData .= "value=\"$Value\">\n";
			}
		}
		else {
			if ( $Key == 'ret' || $Key == 'func' || $Key == 'ai' || $Key == 'debug' ) {
				$InData .= "<INPUT type=hidden name=$Key ";
				$InData .= "value=\"$Value\">\n";
			}
		}
	}

	if ( $_POST['focus'] == 'yes' ) {
?>
<SCRIPT language="javascript" type="text/javascript">

	window.focus();
	if ( window.navigator.appName.toLowerCase().indexOf("microsoft") <= -1 ) {
		top.moveBy( 0, 0 );
	}
	top.moveTo( 0, 0 );
	top.resizeTo( top.screen.width, top.screen.height - 32 );

</SCRIPT>
<?
	}

}

# **********************************************************
# オプション文字列の作成
# **********************************************************
function CreateOption( &$SQL, $FieldName, $Query ) {

	$Column = $SQL->QueryEx( $Query );

	$Ret = "";
	while ( $Column ) {
		$Ret .= "<OPTION value={$Column[0]}";
		if ( $Column[0] == $_POST[$FieldName] ) {
			$Ret .= " selected";
		}
		$Ret .= ">{$Column[1]}</OPTION>\n";
		$Column = $SQL->QueryEx( );
	}

	return $Ret;

}

# **********************************************************
# マルチオプション文字列の作成
# **********************************************************
function CreateMultiOption( &$SQL, $FieldName, $Query, $RowWidth ) {

	$aWidth = explode( ",", $RowWidth );

	$Column = $SQL->QueryEx( $Query );

	$Ret = "";
	while ( $Column ) {
		$Ret .= "<OPTION value={$Column[0]}";
		if ( $Column[0] == $_POST[$FieldName] ) {
			$Ret .= " selected";
		}
		$Ret .= ">";

		$max = ( count( $Column ) / 2 ) - 1;
		$len = count( $aWidth );
		$str = "";
		for( $i = 0; $i < $len; $i++ ) {
			if ( $i + 1 > $max ) {
				break;
			}
			$str = str_replace( "  ", " ", $Column[$i+1] );
			# 内部コードが UTF-8 なので変換後の文字列で検索
			$str = str_replace( mb_convert_encoding( "㈱","UTF-8", $GLOBALS['conf_client_charset']), "(株)", $str );
			$str = mb_convert_kana( $str, "ASKV", $GLOBALS['conf_client_charset'] );
			$str = $str . str_repeat("　", $aWidth[$i]);
			$str = substr( $str, 0, $aWidth[$i] * 2 );
			$Ret .= $str;
		}

		$Ret .= "</OPTION>\n";
		$Column = $SQL->QueryEx( );
	}

	return $Ret;

}

# **********************************************************
# リダイレクト
# **********************************************************
function Redirect( $Target ) {

	header( "Location: $Target" );

}

# **********************************************************
# DB 別挟み込み関数
# 1:MySQL, 2:SQLServer
# **********************************************************
function DBEnclose( $strValue, $Type ) {

	$strRet = "";

	switch( $Type ) {
		case 1:
			$strRet = Enclose( $strValue, "`", 0 );
			break;
		case 2:
			$strRet = Enclose( "[", "]", 2, $strValue );
			break;
		case 3:
		case 5:
		case 6:
#			$strRet = Enclose( $strValue, "\"", 0 );
			$strRet = $strValue;
			break;
		case 4:
			$strRet = Enclose( "[", "]", 2, $strValue );
			break;
	}

	return $strRet;
}
# **********************************************************
# DB 別挟み込み削除関数
# 1:MySQL, 2:SQLServer
# **********************************************************
function RemoveDBEnclose( $strValue, $Type ) {

	$strRet = '';

	if ( $GLOBALS['conf_client_charset'] != "" ) {
		mb_regex_encoding($GLOBALS['conf_client_charset']);
	}

	switch( $Type ) {
		case 1:
			$strRet = str_replace( "`", "", $strValue );
			break;
		case 2:
		case 4:
			$strRet = mb_ereg_replace("[\[\]]", "", $strValue );
			break;
		case 3:
		case 5:
		case 6:
			$strRet = str_replace( "\"", "", $strValue );
			break;
			break;
	}

	return $strRet;
}

# **********************************************************
# 挟み込み関数
# **********************************************************
function Enclose( $strValue, $Chr, $Type, $Option="" ) {

	$strRet = "";

	switch( $Type ) {
		# 単純挟み込み
		case 0:
			$strRet = $Chr . $strValue . $Chr;
			break;
		# HTML挟み込み
		case 1:
			$strRet = "<" . $Chr . " " . $Option . ">";
			$strRet .= $strValue;
			$strRet .= "</" . $Chr . ">";
			break;
		# 左右挟み込み
		case 2:
			$strRet = $strValue . $Option . $Chr;
			break;
	}

	return $strRet;

}

# **********************************************************
# ' 挟み込み関数
# **********************************************************
function Ss( $strValue ) {

	return Enclose( $strValue, "'", 0 );

}

# **********************************************************
# " 挟み込み関数
# **********************************************************
function Dd( $strValue ) {

	return Enclose( $strValue, "\"", 0 );

}

# **********************************************************
# 改行付表示関数
# **********************************************************
function OutCr( $strValue ) {

	print $strValue . "\n";

}

# **********************************************************
# デバッグ用情報表示関数
# **********************************************************
function DispHash( &$Hash, $strTitle="" ) {

	$Option = "bgcolor=white";

	OutCr( "<TABLE border=0 bgcolor=black cellspacing=1>" );
	OutCr( Th( "$strTitle 名称", "bgcolor=silver" ) );
	OutCr( Th( 内容, "bgcolor=silver" ) );
	foreach( $Hash as $Key => $Value ) {
		OutCr( "<TR>" );
		OutCr( Td( $Key, $Option ) );
		OutCr( Td( $Value, $Option ) );
		OutCr( "</TR>" );
	}
	OutCr( "</TABLE>" );

}
# **********************************************************
# デバッグ用グローバル変数表示関数
# **********************************************************
# **********************************************************
# デバッグ用グローバル変数表示関数
# **********************************************************
function DispGlobal( ) {

	$Option = "bgcolor=white";

	OutCr( "<TABLE border=0 bgcolor=black cellspacing=1>" );
	OutCr( Th( "グローバル変数", "bgcolor=silver" ) );
	OutCr( Th( 内容, "bgcolor=silver" ) );
	$flg = FALSE;
	foreach( $GLOBALS as $Key => $Value ) {
		if ( $Key == 'COMMON_VERSION' ) {
			$flg = TRUE;
		}
		if ( $flg ) {
			if ( substr( $Key, 0, 7 ) != 'OutData' ) {
				OutCr( "<TR>" );
				OutCr( Td( $Key, $Option ) );
				if ( is_string( $Value ) ) {
					$Value = str_replace('&', '&amp;', $Value );
					$Value = str_replace('<', '&lt;', $Value );
					$Value = str_replace('>', '&gt;', $Value );
				}
				if ( is_object($Value) ) {
					OutCr( Td( "OBJECT:" . get_class($Value) , "bgcolor=skyblue" ) );
				}
				else {
					OutCr( Td( $Value, $Option ) );
				}
				OutCr( "</TR>" );
			}
		}
	}
	OutCr( "</TABLE>" );

}

# **********************************************************
# デバッグ用情報表示関数
# **********************************************************
function DispDebug( $strType="MISS" ) {

	$TableTag = "<TABLE border=0 bgcolor=black cellspacing=1>";
	$Err = "デバッグ用情報表示関数への引数が誤っています";
	$Option = "bgcolor=white";

	switch( $strType ) {
		case "VER":
			OutCr( $TableTag );
			OutCr( Th( "現在のPHPバージョン", "bgcolor=silver" ) );
			OutCr( "<TR>" );
			OutCr( Td( phpversion(), $Option ) );
			OutCr( "</TR>" );
			OutCr( "</TABLE>" );
			break;

		case "POST":
			DispHash( $_POST, "POST" );
			break;

		case "GET":
			DispHash( $_GET, "GET" );
			break;

		case "SESSION":
			if ( isset( $_SESSION ) ) {
				DispHash( $_SESSION, "SESSION" );
			}
			break;

		case "ENV":
			DispHash( $_ENV, "ENV" );
			break;

		case "SERVER":
			DispHash( $_SERVER, "SERVER" );
			break;

		case "COOKIE":
			DispHash( $_COOKIE, "COOKIE" );
			break;

		case "REQUEST":
			DispHash( $_REQUEST, "REQUEST" );
			break;

		default:
			OutCr( $TableTag );
			OutCr( Th( $Err, $Option ) );
			OutCr( "</TABLE>" );
			break;
	}

}

# **********************************************************
# <TH> 挟み込み関数
# **********************************************************
function Th( $strValue, $Option="" ) {

	return Enclose( $strValue, "TH", 1, $Option );

}

# **********************************************************
# <TD> 挟み込み関数
# **********************************************************
function Td( $strValue, $Option="" ) {

	return Enclose( $strValue, "TD", 1, $Option );

}

# **********************************************************
# デバッグ用メッセージの表示 (1)
# **********************************************************
function DispData( $actFlg, $flg=TRUE ) {

	if ( $flg ) {
		if ( $actFlg ) {
			DispHash( $_GET, "GET" );
			DispHash( $_POST, "POST" );
			DispHash( $_COOKIE, "COOKIE" );
			if ( isset( $_SESSION ) ) {
				DispHash( $_SESSION, "SESSION" );
			}
			DispGlobal();
		}
	}

}

# **********************************************************
# デバッグ用メッセージの表示 (2)
# **********************************************************
function DispArray( &$Array ) {

	OutCr( "<PRE>" );
	print_r( $Array );
	OutCr( "</PRE>" );

}

# **********************************************************
# デバッグ用メッセージの表示 (3)
# **********************************************************
function DispDump( &$Var ) {

	var_dump( $Var );

}

# **********************************************************
# DTPicker の value 属性用の値の取得
# 9999/99/99 ????? または 9999-99-99 ?????
# という入力文字列を処理する
# それ以外の文字列が渡されると当日の文字列を使用する
# (時間は切り捨てる)
# **********************************************************
function GetDtpValue( $strDate ) {

	$Base = gregoriantojd(12,30,1899);
	$Target = gregoriantojd(Date("n"),Date("j"),Date("Y"));
	$strDelim = "\0";

	if ( FALSE !== strpos( $strDate, "/" ) ) {
		$strDelim = "/";
	}
	if ( FALSE !== strpos( $strDate, "-" ) ) {
		$strDelim = "-";
	}
	$DatePart = explode( $strDelim, $strDate );
	if ( is_array( $DatePart ) ) {
		$Cnt = count( $DatePart );
		if ( $Cnt >= 3 ) {
			if ( $DatePart[0] < 50 ) {
				$DatePart[0] += 2000;
			}
			if ( $DatePart[0] < 100 ) {
				$DatePart[0] += 1900;
			}
			$DatePart2 = explode( " ", $DatePart[2] );
			$Target = gregoriantojd(
				$DatePart[1],
				$DatePart2[0],
				$DatePart[0]
			);
		}
	}
	return( $Target - $Base );

}
# **********************************************************
# DTPicker が POST した 月/日/年 を 年/月/日 に変換する
# (時間は切り捨てる)
# **********************************************************
function GetDtpPostValue( $strDate ) {

	$strDelim = "";

	if ( FALSE !== strpos( $strDate, "/" ) ) {
		$strDelim = "/";
	}
	if ( FALSE !== strpos( $strDate, "-" ) ) {
		$strDelim = "-";
	}
	$DatePart = explode( $strDelim, $strDate );
	$DatePart2 = explode( " ", $DatePart[2] );
	if ( $DatePart2[0] < 50 ) {
		$DatePart2[0] += 2000;
	}
	if ( $DatePart2[0] < 100 ) {
		$DatePart2[0] += 1900;
	}
	return $DatePart2[0] . "/" . $DatePart[0] . "/" . $DatePart[1];

}

?>