<?php

  /*
   * ls.php: Better, more flexible replacement for Apache's directory
   * listings.
   *
   * Copyright (C) 2003, 2004, 2006, 2007  Casey Marshall <rsdio@metastatic.org>
   *
   * Permission to use, copy, modify, distribute, and sell this software
   * and its documentation for any purpose is hereby granted without fee,
   * provided that the above copyright notice appear in all copies and
   * that both that copyright notice and this permission notice appear in
   * supporting documentation.  No representations are made about the
   * suitability of this software for any purpose.  It is provided "as is"
   * without express or implied warranty.
   */

  /*
   * This script implements an interactive directory listing of the
   * directory it exists in -- similar to the directory listing routine
   * in Apache -- but formats things a bit nicer, and allows directories
   * to be expanded and collapsed.
   *
   * Incomplete changelog:
   *
   * 2006-11-22
   *
   *   * Added fnmatch handling back for include/exclude lists.
   *     Dreamhost upgraded their software, I guess.
   *   * Fixed some of the table layout and colors. Looks hott
   *     in Firefox now.
   *   * Cleaned up the xhtml. It should now validate, or at least,
   *     the root dir, with nothing expanded should validate.
   */

  /*
   * TODO: add some AJAX goodness so you can expand/collapse directories
   * without doing another POST.
   *
   * Maybe: make it so you can click anywhere on a row to expand
   * that directory.
   *
   * Find security holes and fix them.
   */

  error_reporting(0);
  if (isset($PHP_SELF)) {
    echo "<!-- register_globals is set, apparently. It is rather\n"
       . "     unfortunate that it took Rasmus and Co. this long\n"
       . "     to gain a clue about these sorts of things.\n"
       . "     But oh well.\n  -->";
  }

  /*
   * File extension descriptions.
   */
  $ext_desc = array(
    '.asc'     => 'ASCII armored signature or key',
    '.bib'     => 'BibTeX source',
    '.c'       => 'C source file',
    '.class'   => 'Java class data',
    '.css'     => 'Cascading Style Sheet text',
    '.dmg'     => 'Apple Disk Image',
    '.dvi'     => 'Device Independent document',
    '.gif'     => 'Graphics Interchange Format Image',
    '.html'    => 'HTML text',
    '.ico'     => 'Icon',
    '.jar'     => 'Java Archive file',
    '.java'    => 'Java source file',
    '.jpeg'    => 'JPEG Image',
    '.jpg'     => 'JPEG Image',
    '.link'    => 'External link',
    '.md5'     => 'MD5 Checksum',
    '.mp3'     => 'MPEG-1 Layer 3 audio',
    '.ogg'     => 'Ogg media file',
    '.ogm'     => 'Ogg media file',
    '.patch'   => 'Patch (unified diff)',
    '.patch.gz'=> 'Gzipped patch',
    '.pdf'     => 'Portable Document Format file',
    '.php'     => 'PHP file',
    '.phps'    => 'PHP source file',
    '.png'     => 'Portable Network Graphic',
    '.ps.gz'   => 'Gzipped PostScript document',
    '.sha'     => 'SHA-1 Checksum',
    '.sig'     => 'GNUPG signature',
    '.tar.bz2' => 'Bzipped TAR file',
    '.tar.gz'  => 'Gzipped TAR file',
    '.texi'    => 'TeXinfo source',
    '.tex'     => 'TeX or LaTeX source',
    '.txt'     => 'Text file',
    '.zip'     => 'Zip Archive',
    '.xml'     => 'XML file',
    '.tar.gz.gpg' => 'GPG signed gzipped tar file',
    '.zip.gpg' => 'GPG signed zip file',
    '.mov' => 'QuickTime Movie'
  );

  $me  = $_SERVER['SERVER_NAME'];
  $cwd = $_SERVER['REQUEST_URI'];
  $cwd = preg_replace("/\?.*$/", "", $cwd);  /* Strip off any GET args. */
  /*
   * Strip off 'index.php', if its there. Of course no-one working on
   * PHP ever saw fit to implement endswith(), so we make due.
   */
  if (preg_match("/index\.php$/", $cwd)) {
    $cwd = preg_replace("index\.php", "", $cwd);
  }
  $at = $cwd;
  $ignore  = "index.php,.private,README,README.html,HEADER,HEADER.html,opts.php,*~";
  $recurse = "";
  $sortby  = "n";

  /* Global defaults. */
  @include($_SERVER['DOCUMENT_ROOT'] . "/opts.php");
  
  /*
   * We allow per-directory option defaults and descriptions. 
   */
  if ($cwd !== "/" &&
      @file_exists($_SERVER['DOCUMENT_ROOT'] . $cwd . ".opts.php")) {
    @include($_SERVER['DOCUMENT_ROOT'] . $cwd . ".opts.php");
  }

  if (isset($_REQUEST['i'])) {
    $ignore .= "," . $_REQUEST['i'];
  }
  if (isset($_REQUEST['r'])) {
    $recurse = $_REQUEST['r'];
  }
  if (isset($_REQUEST['s'])) {
    $sortby = $_REQUEST['s'];
  }

  if (preg_match('60.12.136.70', $_SERVER['REMOTE_ADDR'])
      || preg_match('WAPT 4.0', $_SERVER['HTTP_USER_AGENT'])
      || preg_match('jargon.tuxedo.org', $_SERVER['HTTP_REFERER']))
  {
    $f = fopen (".60.12.136.70.txt", "a");
    if ($f)
    {
      fprintf ($f, "%s\n", date("r"));
      fprintf ($f, "HTTP Headers:\n");
      foreach ($_SERVER as $h=>$v)
      {
        if(ereg('HTTP_(.+)',$h,$hp))
        {
          fprintf ($f, "%s: %s\n", $hp[1], $v);
        }
      }
      fprintf ($f, "POST data:\n");
      fwrite ($f, file_get_contents ("php://input"));
      fprintf ($f, "\n\n-----\n");
      fclose ($f);
    }
    return;
  }

  /*
   * Neither of these will use actual filename globs, since Rasmus and
   * Co. didn't seem to have the time to implement globs until PHP 4.3.
   */
  $ignore_globs = preg_split("/,/", $ignore,  -1, PREG_SPLIT_NO_EMPTY);
  $recurse_dirs = preg_split("/,/", $recurse, -1, PREG_SPLIT_NO_EMPTY);

  /*
   * Returns TRUE if $fname is in our list or directories to recursively
   * expand.
   */
  function do_recurse($fname) {
    global $recurse_dirs;
    foreach ($recurse_dirs as $d) {
      if ($d == $fname) {
        return TRUE;
      }
    }
    return FALSE;
  }

  /*
   * Returns TRUE if $fname is in our list of files to not list.
   */
  function do_ignore($fname) {
    global $ignore_globs;
    foreach ($ignore_globs as $f) {
      if ($f == $fname) return TRUE;
      if (@fnmatch($f, $fname)) return TRUE;
    }
    return FALSE;
  }

  /*
   * Returns a appropriate description to be printed for $path.
   */
  function description($path) {
    global $desc;
    global $ext_desc;
    if (isset($desc[$path])) {
      return $desc[$path];
    } else if (is_dir($path)) {
      return "Directory";
    } else {
      foreach (array_keys($ext_desc) as $ext) {
        if (preg_match("/$ext\$/", $path))
          return $ext_desc[$ext];
      }
    }
    return "File";
  }

  function cmp_mtime($f1, $f2) {
    global $at;
    $t1 = filemtime($_SERVER['DOCUMENT_ROOT'] . $at . $f1);
    $t2 = filemtime($_SERVER['DOCUMENT_ROOT'] . $at . $f2);
    return ($t2 - $t1);
  }

  function rcmp_mtime($f1, $f2) {
    return cmp_mtime($f2, $f1);
  }

  function cmp_size($f1, $f2) {
    global $at;
    $s1 = filesize($_SERVER['DOCUMENT_ROOT'] . $at . $f1);
    $s2 = filesize($_SERVER['DOCUMENT_ROOT'] . $at . $f2);
    return ($s2 - $s1);
  }

  function rcmp_size($f1, $f2) {
    return cmp_size($f2, $f1);
  }

  function sort_entries(&$array) {
    global $sortby;
    sort($array);
    switch ($sortby) {
      case 'N':
        rsort($array);
        break;
      case 's':
        usort($array, "cmp_size");
        break;
      case 'S':
        usort($array, "rcmp_size");
        break;
      case 't':
        usort($array, "cmp_mtime");
        break;
      case 'T':
        usort($array, "rcmp_mtime");
        break;
    }
  }

  $n = 0;

  /*
   * Print an entry.
   */
  function print_entry($fname, $level) {
    global $n;
    global $recurse;
    $path = $_SERVER['DOCUMENT_ROOT'] . $fname;
    echo "<tr class=\"b$n\">";
    if (is_dir($path)) {
      /* echo "<form method=\"post\" action=\"\">"; */
      if (do_recurse($fname)) {
        printf("\n<td style=\"padding-left: %dpx;\"><form method=\"post\" action=\"\"><div>"
          ."<input type=\"hidden\" name=\"s\" value=\"%s\"/>"
          ."<input type=\"hidden\" name=\"r\" value=\"%s\"/>",
          $level * 15, $sortby, preg_replace('|,'.$fname.'|', "", $recurse));
        echo "<input type=\"image\" src=\"/icons/down.png\" ";
        /*echo "align=\"middle\" width=\"15\" height=\"15\" alt=\"v\"";*/
        echo "alt=\"v\"";
        echo " title=\"Collapse this directory\"/>";
      } else {
        printf("\n<td style=\"padding-left: %dpx;\"><form method=\"post\" action=\"\"><div>"
          ."<input type=\"hidden\" name=\"s\" value=\"%s\"/>"
          ."<input type=\"hidden\" name=\"r\" value=\"%s\"/>",
          $level * 15, $sortby, $recurse . "," . $fname);
        echo "<input type=\"image\" src=\"/icons/right.png\" ";
        /*echo "align=\"middle\" width=\"15\" height=\"15\" alt=\"&gt;\"";*/
        echo "alt=\"&gt;\"";
        echo " title=\"Expand this directory\"/>";
      }
      printf("<a href=\"%s\">%s</a></div></form></td>\n", $fname, basename($fname));
      /* echo "</form>"; */
    } else {
      printf("\n<td style=\"padding-left: %dpx;\">",
        $level * 15 + 15);
        printf("<div><a href=\"%s\">%s</a></div></td>\n", $fname, basename($fname));
    }
    $flen = filesize($path);
    echo "<td style=\"text-align: right;\">";
    if ($flen >= 1 << 20) {
      printf("<tt>%d M</tt></td>\n", $flen / (1 << 20));
    } else if ($flen >= 1024) {
      printf("<tt>%d K</tt></td>\n", $flen / 1024);
    } else {
      printf("<tt>%d &nbsp;</tt></td>\n", $flen);
    }
    printf("<td style=\"text-align: right;\"><tt>%s</tt></td>\n",
      date("M d Y G:i", filemtime($path)));
    printf("<td>%s</td></tr>\n", description($path));
    $n = ! $n;
  }

  /*
   * List the contents of this directory, plus any others we should
   * recurse into.
   */
  function list_contents($dirname, $level = 0) {
    global $cwd;
    global $at;
    $at = $dirname;
    $dd = opendir($_SERVER['DOCUMENT_ROOT'] . $dirname);
    if (!$dd) {
      user_error($_SERVER['DOCUMENT_ROOT'] . $dirname, E_USER_WARNING);
      return;
    }
    $dirs = array();
    $files = array();
    while ($f = readdir($dd)) {
      /*
       * Don't list dot-files. This should be done with a wildcard, but
       * they aren't really implemented in the version of PHP I'm using.
       * Phooey.
       */
      if ($f{0} == ".") continue;
      if (is_dir($_SERVER['DOCUMENT_ROOT'] . $dirname . $f)) {
        array_push($dirs, $f);
      } else {
        array_push($files, $f);
      }
    }
    sort_entries($dirs);
    sort_entries($files);
    foreach ($dirs as $f) {
      if (!do_ignore($f)) {
        $f = $dirname . $f . "/";
        print_entry($f, $level);
        if (do_recurse($f)) {
          list_contents($f, $level + 1);
          $at = $dirname;
        }
      }
    }
    foreach ($files as $f) {
      if (!do_ignore($f)) {
        print_entry($dirname . $f, $level);
      }
    }
  }

  /*
   * Create a header title, with nice backlinks.
   */
  function title() {
    global $me;
    global $cwd;
    $result = "<span class=\"xlink\">/</span>";
    $dirs = preg_split("{/}", $cwd, -1, PREG_SPLIT_NO_EMPTY);
    for ($i = 0; $i < count($dirs); $i++) {
    $result .= "<a class=\"xlink\" href=\"";
      for ($j = 0; $j < count($dirs) - $i - 1; $j++) {
        $result .= "../";
      }
      $result .= "\">" . $dirs[$i] . "</a><span class=\"xlink\">/</span>";
    }
    return $result;
  }
 ?>
<!DOCTYPE html
  PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title><?php echo $me; echo $cwd; ?></title>
<meta http-equiv="Content-Type" content="text/xml; charset=ISO-8859-1"/>
<meta name="ICBM" content="37.48584,-121.91612"/>
<meta name="DC.title" content="metastatic.org"/>
<link rel="icon" href="/icons/cancer.ico" type="image/x-icon"/>
<link rel="shortcut icon" href="/icons/cancer.ico" type="image/x-icon"/>
<link rel="top" href="/"   />
<link rel="up"  href="../" />
<style type="text/css">
<!--
  body {
    color: black;
    background-color: white;
  }
  table {
    width: 100%;
    border: none;
    border-left: 1px solid #d9d9d9;
    border-bottom: 1px solid #d9d9d9;
    margin: 0px;
    padding: 0px;
  }
  div {
    min-height: 16px;
    vertical-align: middle;
  }
  /*tr {
    border: 1px solid white;
  }*/
  tr:hover {
    background-image: url('/icons/blue-gradient.png');
    background-repeat: repeat-x;
    background-color: #4777cd;
    color: white;
  }
  th {
    border: none;
  }
  td.hdr {
    background-image: url('/icons/gradient.png');
    background-repeat: repeat-x;
    background-color: #bbb;
    border-top: 1px solid #404040;
    border-bottom: 1px solid #404040;
    font-weight: bold;
    color: #222;
    font-size: x-small;
    vertical-align: middle;
  }
  td {
    padding-left: 10px;
    padding-right: 10px;
    margin: 0px;
    font-size: small;
    font-family: "Lucida Grande", Helvetica, sans, sans-serif;
    vertical-align: middle;
    border: none;
    border-right: 1px solid #d9d9d9;
    vertical-align: middle;
  }
  input {
    vertical-align: middle;
  }
  /*td:hover {
    border: 1px solid #999;
  }*/
  hr {
    height: 1px;
    color: black;
  }
  img {
    border: none;
    vertical-align: middle;
  }
  .b0 {
    background-color: white;
  }
  .b1 {
    background-color: #f1f5fa;
  }
  a:link {
    color: inherit;
    text-decoration: none;
  }
  a:visited {
    color: inherit;
    text-decoration: none;
  }
  a:hover {
    text-decoration: underline;
  }
  a.xlink {
    color: #7f7f7f;
    text-decoration: none;
  }
  span.xlink {
    color: #7f7f7f;
    text-decoration: none;
  }
  h1 {
    font-family: "Hoefler Text", Times, "Times New Roman", serif;
  }
  form {
    margin-bottom: 0px;
  }
  -->
</style>
</head>

<body>
<h1><a href="/" class="xlink"><?php echo $me; ?></a><?php echo title(); ?></h1>

<?php
if (@file_exists($_SERVER['DOCUMENT_ROOT'] . $cwd . "HEADER")) {
  echo "<pre>";
  @readfile($_SERVER['DOCUMENT_ROOT'] . $cwd . "HEADER");
  echo "</pre>";
} else if (@file_exists($_SERVER['DOCUMENT_ROOT'] . $cwd . "HEADER.html")) {
  @readfile($_SERVER['DOCUMENT_ROOT'] . $cwd . "HEADER.html");
}
 ?>

<table summary="listing of <?php echo $cwd; ?>" border="0" cellspacing="0">
<tr style="border-bottom: 1px dashed black;">
<td class="hdr" style="width: 33%; margin-left: 15px; border-right: 1px solid #555; border-left: 1px solid black;"><form method="post"
action=""><div>Name
<input type="hidden" name="r" value="<?php echo $recurse; ?>"/>
<input type="image" src="/icons/up.png" 
name="s" value="n" alt="^" title="Sort ascending by name" />
<input type="image" src="/icons/down.png" 
name="s" value="N" alt="v" title="Sort descending by name" />
</div></form></td>

<td class="hdr" style="text-align: right; border-right: 1px solid #555;"><form method="post" action=""><div>Size
<input type="hidden" name="r" value="<?php echo $recurse; ?>"/>
<input type="image" src="/icons/up.png" 
name="s" value="s" alt="^" title="Sort ascending by size" />
<input type="image" src="/icons/down.png" 
name="s" value="S" alt="v" title="Sort descending by size" />
</div></form></td>

<td class="hdr" style="text-align: right; border-right: 1px solid #555;"><form method="post" action=""><div>Modified
<input type="hidden" name="r" value="<?php echo $recurse; ?>"/>
<input type="image" src="/icons/up.png" 
name="s" value="t" alt="^" title="Sort ascending by modification time"/>
<input type="image" src="/icons/down.png" 
name="s" value="T" alt="v" title="Sort descending by modification time"/></div></form></td>
<td class="hdr" style="border-right: 1px solid black;"><div>Description</div></td>
</tr>


<?php
  if ($cwd !== "/") {
    global $n;
    $n = 1;
    echo "<tr><td><a href=\"..\">Parent directory</td> <td></td> <td></td> <td></td></tr>\n";
  }

  list_contents($cwd);
 ?>
</table>

<?php
  if (@file_exists($_SERVER['DOCUMENT_ROOT'] . $cwd . "README")) {
    echo "<pre>";
    @readfile($_SERVER['DOCUMENT_ROOT'] . $cwd . "README");
    echo "</pre>\n";
  } else if (@file_exists($_SERVER['DOCUMENT_ROOT'] . $cwd . "README.html")) {
    @readfile($_SERVER['DOCUMENT_ROOT'] . $cwd . "README.html");
  }
 ?>
</body>
</html>

<!-- vim:set expandtab shiftwidth=2 softtabstop=2 tabstop=2: -->