<?
  function getFileList($dir)
  {
    # array to hold return value
    $retval = array();
 
    # add trailing slash if missing
    if(substr($dir, -1) != "/") $dir .= "/";
 
    # open pointer to directory and read list of files
    $d = @dir($dir) or die("getFileList: Failed opening directory $dir for reading");
    while(false !== ($entry = $d->read())) {
      # skip hidden files
      if($entry[0] == ".") continue;
      if(is_dir("$dir$entry")) {
        $retval[] = array(
          "name" => "$dir$entry/",
          "type" => filetype("$dir$entry"),
          "size" => 0,
          "lastmod" => filemtime("$dir$entry")
        );
      } elseif(is_readable("$dir$entry")) {
        $retval[] = array(
          "name" => "$dir$entry",
          "type" => mime_content_type("$dir$entry"),
          "size" => filesize("$dir$entry"),
          "lastmod" => filemtime("$dir$entry")
        );
      }
    }
    $d->close();
 
    return $retval;
  }
 
  $dirlist = getFileList("./");
 
  echo "<table>\n";
  echo "<tr><th>Name</th><th>Type</th><th>Size</th><th>Last Mod.</th></tr>\n";
  foreach($dirlist as $file) {
    echo "<tr>\n";
    echo "<td>{$file['name']}</td>\n";
    //echo "<td>".iconv("EUC-KR","UTF-8",$file['name'])."</td>\n";
    //$filename = iconv("EUC-KR","UTF-8",$file['name']);
    //echo "<td><a href='$filename'>$filename</a></td>\n";
    echo "<td>{$file['type']}</td>\n";
    echo "<td>{$file['size']}</td>\n";
    echo "<td>" . date("r", $file['lastmod']) . "</td>\n";
    echo "</tr>\n";
  }
  echo "</table>\n\n";
 
?>