<?
# **********************************************************
# データの読出し
# **********************************************************
function GetData(  ) {

	global $ErrMessage;

	$DirHandle = @opendir($_POST["In1001"]);
	if ( $DirHandle ) {
		$Target = readdir( $DirHandle );
		while( $Target !== false ) {

			if ( $Target != "." ) {
				EditListData( $Target );
			}
			$Target = readdir( $DirHandle );

		}
		
		closedir( $DirHandle );
	}
	else {
		$ErrMessage = "ディレクトリが不正です ( {$_POST["In1001"]} )";
	}

}

# **********************************************************
# データの編集
# **********************************************************
function EditListData( $Target ) {

	global $OutData;

	$OutData .= "<TR>";
	if ( is_dir( $_POST["In1001"]. "\\" . $Target ) ) {
		if ( $Target == ".." ) {
			$Href = "{$_SERVER['SCRIPT_NAME']}?In1001=";
			$Href .= urlencode(
				substr(
					$_POST["In1001"],
					0,
					strrpos( $_POST["In1001"], "\\" )
				)
			);
			$OutData .= "<TD class=MyCell>";
			$OutData .= "<A href=\"$Href\">親ディレクトリ</A>";
			$OutData .= "</TD>";
		}
		else {
			$Href = "{$_SERVER['SCRIPT_NAME']}?In1001=";
			$Href .= urlencode( 
				$_POST["In1001"] . "\\" . $Target
			);
			$OutData .= "<TD class=MyCell>";
			$OutData .= "<A href=\"$Href\">$Target</A>";
			$OutData .= "</TD>";
		}
	}
	else {
		$OutData .= "<TD class=MyCell>$Target</TD>";
	}
	$OutData .= "</TR>";

}

# **********************************************************
# 画面の編集
# **********************************************************
function EditDataHead( ) {

}

# **********************************************************
# エラーチェック
# **********************************************************
function CheckDataHead( ) {

	global $ErrMessage;

	if ( $_POST["In1001"] == "" ) {
		$_POST["In1001"] = getcwd( );
	}

}
?>