function dir_list($dir)
{
  $dl = array();
  if ($hd = opendir($dir))
  {
    while ($sz = readdir($hd)) { if (preg_match("/^\./",$sz)==0) $dl[] = $sz; }
    closedir($hd);
  }
  asort($dl);
  return $dl;
}