";
    if ($path == "") $openfile = $text;
    else $openfile = $path . "/" . $text;
    $fp=fopen($openfile,"r");
    if (eregi("\.(asm|inc|c|cpp|phps|h)$",$text)) { 
      while ($line = fgets($fp,1024)) 
      {
        $line = str_replace('&','&',$line);
        $line = str_replace('<','<',$line);
        $line = str_replace('>','>',$line);
        echo $line;
      }
    }
    else
    {
      while ($line = fgets($fp,1024)) 
      {
        echo $line;
      }
    }
    fclose($fp);
    echo "

";

    // read directory
    $openpath = ($path=="") ? "." : $path;
    if (!is_dir($openpath) || !($dp=opendir($openpath)))
    {
      if (!$dp=opendir("."))
        die("Error in URL (" . $path . "). Click here.
");
      else $path="";
    }

    while ($fn = readdir($dp)) 
    { 
      if(substr($fn,0,1) != ".") {
        $fnlist[$fn]=""; 
      }
    };
    if (!isset($fnlist)) $fnlist[""]="";

    closedir($dp);
    ksort($fnlist);
    reset($fnlist);

    // display index text
    if ($path != "") $idxfile=$path . "/.index.txt";
    else $idxfile=".index.txt";

    if (file_exists($idxfile) && $file=fopen($idxfile,"r"))
    {
      $line = fgets($file,4096);
      if ($line)
      {
        echo "" . chop($line) . "\n";
        while ($line = fgets($file,4096)) echo chop($line) . "\n";
        echo "\n";
      }
      fclose($file);
    }
    else
    {
      $temp=strrchr($wdp2,"/");
      if (!$temp) $temp=$wdp2;
      else $temp=substr($temp,1);
      echo "" . $temp . "\n\n";
    }

    // current path display
    echo $pathindents;

    if ($path=="")
    {
      echo "/$sitename/\n";
    }
    else
    {
      $pd_arr=split("/","$sitename/" . $path);
      $parent="";
      for($g=sizeof($pd_arr)-1;$g>=1;$g--)
      {
        $pd="";
        for($i=1;$i$parent";
      }
      echo "/" . $pd_arr[sizeof($pd_arr)-1] . "/\n";
    }

    // directory listing

    reset($fnlist);
    if ($path=="") $newwd="";
    else $newwd=rawurlencode($path . "/");
    while ($fn = key($fnlist))
    {
      next($fnlist);
      if ($path == "") $full_fn="./".$fn;
      else $full_fn=$path."/".$fn;
      if (is_dir($full_fn)) {
        $newfn=rawurlencode($fn);
        echo "$pathindents$subdirindent$fn\n";
      }
    }
    echo "

";
        }
        echo "AUDIO: $fn ($fs"."k)\n";
      }
    }

    // movie listing
    reset($fnlist);
    while ($fn = key($fnlist))
    {
      next($fnlist);
      if ($path=="") $full_fn=$fn;
      else $full_fn=$path."/".$fn;
      $fs=floor(filesize($full_fn)/1000);
      if (!is_dir($full_fn) && eregi("\.(avi|mov|mpg|mpeg)$",$fn)) { 
        $fnu=rawurlencode($fn);
        if ($tablestat == 0) {
          $tablestat=1;
          echo "

";
        }
        echo "VIDEO: $fn ($fs"."k)\n";
      }
    }

    // code listing
    reset($fnlist);
    if ($path=="") $newwd="";
    else $newwd=rawurlencode($path);
    while ($fn = key($fnlist))
    {
      next($fnlist);
      if ($path=="") $full_fn=$fn;
      else $full_fn=$path."/".$fn;
      if (!is_dir($full_fn) && eregi("\.(asm|inc|c|cpp|phps|h)$",$fn)) { 
        $fnu=rawurlencode($fn);
        if ($tablestat == 0) {
          $tablestat=1;
          echo "

";
        }
        echo "CODE: $fn\n";
      }
    }

    // text listing

    reset($fnlist);
    while ($fn = key($fnlist))
    {
      next($fnlist);
      $full_fn=$wd."/".$fn;
      if (!is_dir($full_fn) && eregi("\.TXT$",$fn)) {
        $fnu=rawurlencode($fn);
        if ($tablestat == 0) {
          $tablestat=1;
          echo "

";
        }
        echo "TEXT: " . substr($fn,0,strlen($fn)-4) . "\n";
      }
    }
    if ($tablestat == 1) echo "