<?php

/////////////////////////////////////////////////////////////////////////////
// dirlist.php
//
// list files in a directory, and make a nice slideshow type thing
//   uses templates for complete customizability
//
// 2003-04-04, Mike Matz
/////////////////////////////////////////////////////////////////////////////

/////////////////////////////////////////////////////////////////////////////
// CONFIGURATION ////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////

// Template directory
//   Path to template file; if not using relative path, put *FULL* path to
//   file (eg /var/site/html/some_dir/dirlist.tpl)
$template_dir = "/home/webadmin/www.jeffjirsa.net/html/lily";

// Template file name (inside $template_dir)
$template_file = "dirlist.tpl";



// Slideshow file extensions
//   List all extensions to be used in slideshow (should be images),
//   separated with commas
$slideshow_extensions = "jpg,gif";


// Hidden file extensions
//   List all extensions you DON'T want to display
$hidden_extensions = "mp3,zip,rar,html,php,tpl,htm,txt,fla,psd,swf,";

// Number of files in a column for slideshow files
//   The number of times the FileBlock is called in each ColumnBlock
$files_in_column_slideshow = 20;



// Number of files in a column for other files
//   (see above)
$files_in_column_other = 8;



// Hidden file regular expressions
//   You can enter regular expressions that will be used to determine which
//   files to display.  Any matching files will *NOT* be displayed
$hidden_file_regexp = Array(
        "^\..*$",                            // Don't show dot-files
        "^.*~$"                                // Don't show 'joe' backups
        );



/////////////////////////////////////////////////////////////////////////////
// END CONFIGURATION
//   You shouldn't need to edit anything below here
/////////////////////////////////////////////////////////////////////////////


$slideshow_extensions_arr = explode(",", $slideshow_extensions);
$hidden_extensions_arr = explode(",", $hidden_extensions);
$all_files = Array();
$slideshow_files = Array();
$tmp_array = Array();
$other_files = Array();


$dp = opendir(".");
$file_id = 1;
while (false !== ($file = readdir($dp))) {
    $hide = false;
    foreach ($hidden_file_regexp as $regexp) {
        if (ereg($regexp, $file)) {
            $hide = true;
            break;
        }
    }
    if ($hide)
        continue;

    $all_files[] = $file;
}



sort($all_files);



$file_id = 1;
foreach ($all_files as $file) {
    $match = false;
    $hide = false;

    // Don't accept filenames without a . in them (for now)
    if (!ereg("^(.*)\.([^\.]+)$", $file, $regs)) {
        continue;
    }


    foreach ($hidden_extensions_arr as $hidden_ext) {
        if ($hidden_ext == $regs[2]) {
            $hide = true;
            break;
        }
    }
    if ($hide)
        continue;

    foreach ($slideshow_extensions_arr as $slideshow_ext) {
        if (strtolower($slideshow_ext) == strtolower($regs[2])) {
            $slideshow_files[$file_id++] = $file;
            $match = true;
            break;
        }
    }

    if (!$match) {
        $tmp_array[] = $file;
    }

}

foreach ($tmp_array as $item) {
    $other_files[$file_id++] = $item;
}



$num_files = $file_id - 1;
$max_digits = floor(log($num_files) / log(10)) + 1;

// Get number of columns
$num_columns_slideshow = ceil(count($slideshow_files) / $files_in_column_slideshow);
$num_columns_other = ceil(count($other_files) / $files_in_column_other);

// Create template
$t = new Template($template_dir);
$t->set_file("main", $template_file);



$t->set_block("main", "ImageBlock", "ImageBlock_rep");
$t->set_block("main", "PrevBlock", "PrevBlock_rep");
$t->set_block("main", "NextBlock", "NextBlock_rep");
$t->set_block("main", "SlideshowBlock", "SlideshowBlock_rep");
$t->set_block("SlideshowBlock", "SSColumnBlock", "SSColumnBlock_rep");
$t->set_block("SSColumnBlock", "SSFileBlock", "SSFileBlock_rep");
$t->set_block("main", "OtherBlock", "OtherBlock_rep");
$t->set_block("OtherBlock", "OColumnBlock", "OColumnBlock_rep");
$t->set_block("OColumnBlock", "OFileBlock", "OFileBlock_rep");

if ($HTTP_GET_VARS['id'] && $HTTP_GET_VARS['id'] <= count($slideshow_files)) {
    if ($HTTP_GET_VARS['id'] > 1) {
        $t->set_var("prev_link", $HTTP_SERVER_VARS['PHP_SELF'] . "?id=" . ($HTTP_GET_VARS['id'] - 1));
        $t->parse("PrevBlock_rep", "PrevBlock");
    }
    if ($HTTP_GET_VARS['id'] < count($slideshow_files)) {
        $t->set_var("next_link", $HTTP_SERVER_VARS['PHP_SELF'] . "?id=" . ($HTTP_GET_VARS['id'] + 1));
        $t->parse("NextBlock_rep", "NextBlock");
    }

    if (isset($slideshow_files[$HTTP_GET_VARS['id']])) {
        $t->set_var("image_file", $slideshow_files[$HTTP_GET_VARS['id']]);
        $t->parse("ImageBlock_rep", "ImageBlock");
    }
    else {
    }
}
else {
    if($HTTP_GET_VARS['id']) {
    }
    if($HTTP_GET_VARS['id'] > count($slideshow_files)) {
    }
}

$file_id = 1;
// Loop through slideshow files
for ($col_num = 1; $col_num <= $num_columns_slideshow; $col_num++) {
    for ($row_num = 1; $row_num <= $files_in_column_slideshow && $file_id <= count($slideshow_files); $row_num++) {
        $t->set_var("file_id", $file_id);
        $t->set_var("file_id_padded", pad_str($file_id, $max_digits));
        $t->set_var("file_name", $slideshow_files[$file_id]);
        $t->set_var("file_link", $HTTP_SERVER_VARS['PHP_SELF'] . "?id=$file_id");
        $t->parse("SSFileBlock_rep", "SSFileBlock", true);
        

        $file_id++;

    }
    $t->parse("SSColumnBlock_rep", "SSColumnBlock", true);
    $t->set_var("SSFileBlock_rep", "");
}



$t->parse("SlideshowBlock_rep", "SlideshowBlock");

// Loop through other files
for ($col_num = 1; $col_num <= $num_columns_other; $col_num++) {
    for ($row_num = 1; $row_num <= $files_in_column_other && $file_id <= count($slideshow_files) + count($other_files); $row_num++) {
        $t->set_var("file_id", $file_id);
        $t->set_var("file_id_padded", pad_str($file_id, $max_digits));
        $t->set_var("file_name", $other_files[$file_id]);
        $t->parse("OFileBlock_rep", "OFileBlock", true);
        $file_id++;
    }
    $t->parse("OColumnBlock_rep", "OColumnBlock", true);
    $t->set_var("OFileBlock_rep", "");
}



$t->parse("OtherBlock_rep", "OtherBlock");
$t->parse("MyOutput", "main");
echo $t->get("MyOutput");

function pad_str($num, $digits) {
    while (strlen($num) < $digits)
        $num = "0" . $num;
    return $num;
}


/////////////////////////////////////////////////////////////////////////////
// template.inc
/////////////////////////////////////////////////////////////////////////////


class Template {
  var $classname = "Template";

  /* if set, echo assignments */
  var $debug     = false;

  /* $file[handle] = "filename"; */
  var $file  = array();

  /* relative filenames are relative to this pathname */
  var $root   = "";

  /* $varkeys[key] = "key"; $varvals[key] = "value"; */
  var $varkeys = array();
  var $varvals = array();


  /* "remove"  => remove undefined variables
   * "comment" => replace undefined variables with comments
   * "keep"    => keep undefined variables
   */

  var $unknowns = "remove";

  /* "yes" => halt, "report" => report error, continue, "no" => ignore error quietly */
  var $halt_on_error  = "yes";

  

  /* last error message is retained here */
  var $last_error     = "";
  /***************************************************************************/
  /* public: Constructor.
   * root:     template directory.
   * unknowns: how to handle unknown variables.
   */

  function Template($root = ".", $unknowns = "remove") {
    $this->set_root($root);
    $this->set_unknowns($unknowns);
  }



  /* public: setroot(pathname $root)
   * root:   new template directory.
   */  

  function set_root($root) {
    if (!is_dir($root)) {
      $this->halt("set_root: $root is not a directory.");
      return false;
    }

    

    $this->root = $root;
    return true;
  }



  /* public: set_unknowns(enum $unknowns)

   * unknowns: "remove", "comment", "keep"

   *

   */

  function set_unknowns($unknowns = "keep") {

    $this->unknowns = $unknowns;

  }



  /* public: set_file(array $filelist)

   * filelist: array of handle, filename pairs.

   *

   * public: set_file(string $handle, string $filename)

   * handle: handle for a filename,

   * filename: name of template file

   */

  function set_file($handle, $filename = "") {

    if (!is_array($handle)) {

      if ($filename == "") {

        $this->halt("set_file: For handle $handle filename is empty.");

        return false;

      }

      $this->file[$handle] = $this->filename($filename);

    } else {

      reset($handle);

      while(list($h, $f) = each($handle)) {

        $this->file[$h] = $this->filename($f);

      }

    }

  }



  /* public: set_block(string $parent, string $handle, string $name = "")

   * extract the template $handle from $parent,

   * place variable {$name} instead.

   */

  function set_block($parent, $handle, $name = "") {

    if (!$this->loadfile($parent)) {

      $this->halt("subst: unable to load $parent.");

      return false;

    }

    if ($name == "")

      $name = $handle;



    $str = $this->get_var($parent);

    $reg = "/<!--\s+BEGIN $handle\s+-->(.*)\n\s*<!--\s+END $handle\s+-->/sm";

    preg_match_all($reg, $str, $m);

    $str = preg_replace($reg, "{" . "$name}", $str);

    $this->set_var($handle, $m[1][0]);

    $this->set_var($parent, $str);

  }

  

  /* public: set_var(array $values)

   * values: array of variable name, value pairs.

   *

   * public: set_var(string $varname, string $value)

   * varname: name of a variable that is to be defined

   * value:   value of that variable

   */

  function set_var($varname, $value = "") {

    if (!is_array($varname)) {

      if (!empty($varname))

        if ($this->debug) print "scalar: set *$varname* to *$value*<br>\n";

        $this->varkeys[$varname] = "/".$this->varname($varname)."/";

        $this->varvals[$varname] = $value;

    } else {

      reset($varname);

      while(list($k, $v) = each($varname)) {

        if (!empty($k))

          if ($this->debug) print "array: set *$k* to *$v*<br>\n";

          $this->varkeys[$k] = "/".$this->varname($k)."/";

          $this->varvals[$k] = $v;

      }

    }

  }



  /* public: subst(string $handle)

   * handle: handle of template where variables are to be substituted.

   */

  function subst($handle) {

    if (!$this->loadfile($handle)) {

      $this->halt("subst: unable to load $handle.");

      return false;

    }



    $str = $this->get_var($handle);

    $str = @preg_replace($this->varkeys, $this->varvals, $str);

    return $str;

  }

  

  /* public: psubst(string $handle)

   * handle: handle of template where variables are to be substituted.

   */

  function psubst($handle) {

    print $this->subst($handle);

    

    return false;

  }



  /* public: parse(string $target, string $handle, boolean append)

   * public: parse(string $target, array  $handle, boolean append)

   * target: handle of variable to generate

   * handle: handle of template to substitute

   * append: append to target handle

   */

  function parse($target, $handle, $append = false) {

    if (!is_array($handle)) {

      $str = $this->subst($handle);

      if ($append) {

        $this->set_var($target, $this->get_var($target) . $str);

      } else {

        $this->set_var($target, $str);

      }

    } else {

      reset($handle);

      while(list($i, $h) = each($handle)) {

        $str = $this->subst($h);

        $this->set_var($target, $str);

      }

    }

    

    return $str;

  }

  

  function pparse($target, $handle, $append = false) {

    print $this->parse($target, $handle, $append);

    return false;

  }

  

  /* public: get_vars()

   */

  function get_vars() {

    reset($this->varkeys);

    while(list($k, $v) = each($this->varkeys)) {

      $result[$k] = $this->varvals[$k];

    }

    

    return $result;

  }

  

  /* public: get_var(string varname)

   * varname: name of variable.

   *

   * public: get_var(array varname)

   * varname: array of variable names

   */

  function get_var($varname) {

    if (!is_array($varname)) {

      return $this->varvals[$varname];

    } else {

      reset($varname);

      while(list($k, $v) = each($varname)) {

        $result[$k] = $this->varvals[$k];

      }

      

      return $result;

    }

  }

  

  /* public: get_undefined($handle)

   * handle: handle of a template.

   */

  function get_undefined($handle) {

    if (!$this->loadfile($handle)) {

      $this->halt("get_undefined: unable to load $handle.");

      return false;

    }

    

    preg_match_all("/\{([^}]+)\}/", $this->get_var($handle), $m);

    $m = $m[1];

    if (!is_array($m))

      return false;



    reset($m);

    while(list($k, $v) = each($m)) {

      if (!isset($this->varkeys[$v]))

        $result[$v] = $v;

    }

    

    if (count($result))

      return $result;

    else

      return false;

  }



  /* public: finish(string $str)

   * str: string to finish.

   */

  function finish($str) {

    switch ($this->unknowns) {

      case "keep":

      break;

      

      case "remove":

        $str = preg_replace('/{[^ \t\r\n}]+}/', "", $str);

      break;



      case "comment":

        $str = preg_replace('/{([^ \t\r\n}]+)}/', "<!-- Template $handle: Variable \\1 undefined -->", $str);

      break;

    }

    

    return $str;

  }



  /* public: p(string $varname)

   * varname: name of variable to print.

   */

  function p($varname) {

    print $this->finish($this->get_var($varname));

  }



  function get($varname) {

    return $this->finish($this->get_var($varname));

  }

    

  /***************************************************************************/

  /* private: filename($filename)

   * filename: name to be completed.

   */

  function filename($filename) {

    if (substr($filename, 0, 1) != "/") {

      $filename = $this->root."/".$filename;

    }

    

    if (!file_exists($filename))

      $this->halt("filename: file $filename does not exist.");



    return $filename;

  }

  

  /* private: varname($varname)

   * varname: name of a replacement variable to be protected.

   */

  function varname($varname) {

    return preg_quote("{".$varname."}");

  }



  /* private: loadfile(string $handle)

   * handle:  load file defined by handle, if it is not loaded yet.

   */

  function loadfile($handle) {

    if (isset($this->varkeys[$handle]) and !empty($this->varvals[$handle]))

      return true;



    if (!isset($this->file[$handle])) {

      $this->halt("loadfile: $handle is not a valid handle.");

      return false;

    }

    $filename = $this->file[$handle];



    $str = implode("", @file($filename));

    if (empty($str)) {

      $this->halt("loadfile: While loading $handle, $filename does not exist or is empty.");

      return false;

    }



    $this->set_var($handle, $str);

    

    return true;

  }



  /***************************************************************************/

  /* public: halt(string $msg)

   * msg:    error message to show.

   */

  function halt($msg) {

    $this->last_error = $msg;

    

    if ($this->halt_on_error != "no")

      $this->haltmsg($msg);

    

    if ($this->halt_on_error == "yes")

      die("<b>Halted.</b>");

    

    return false;

  }

  

  /* public, override: haltmsg($msg)

   * msg: error message to show.

   */

  function haltmsg($msg) {

    printf("<b>Template Error:</b> %s<br>\n", $msg);

  }

}

?>