<?php
/***************************************************************************
 *                              template.php
 *                            -------------------
 *   begin                : Saturday, Feb 13, 2001
 *   copyright            : (C) 2001 The phpBB Group
 *   email                : support@phpbb.com
 *
 *   $Id: template.php,v 1.10.2.3 2002/12/21 19:09:57 psotfx Exp $
 *
 *
 ***************************************************************************/
/***************************************************************************
* phpbb2 forums port version 2.0.5 (c) 2003 - Nuke Cops (http://nukecops.com)
*
* Ported by Nuke Cops to phpbb2 standalone 2.0.5 Test
* and debugging completed by the Elite Nukers and site members.
*
* You run this package at your sole risk. Nuke Cops and affiliates cannot
* be held liable if anything goes wrong. You are advised to test this
* package on a development system. Backup everything before implementing
* in a production environment. If something goes wrong, you can always
* backout and restore your backups.
*
* Installing and running this also means you agree to the terms of the AUP
* found at Nuke Cops.
*
* This is version 2.0.5 of the phpbb2 forum port for PHP-Nuke. Work is based
* on Tom Nitzschner's forum port version 2.0.6. Tom's 2.0.6 port was based
* on the phpbb2 standalone version 2.0.3. Our version 2.0.5 from Nuke Cops is
* now reflecting phpbb2 standalone 2.0.5 that fixes some bugs and the
* invalid_session error message.
***************************************************************************/
/***************************************************************************
 *   This file is part of the phpBB2 port to Nuke 6.0 (c) copyright 2002
 *   by Tom Nitzschner (tom@toms-home.com)
 *   http://bbtonuke.sourceforge.net (or http://www.toms-home.com)
 *
 *   As always, make a backup before messing with anything. All code
 *   release by me is considered sample code only. It may be fully
 *   functual, but you use it at your own risk, if you break it,
 *   you get to fix it too. No waranty is given or implied.
 *
 *   Please post all questions/request about this port on http://bbtonuke.sourceforge.net first,
 *   then on my site. All original header code and copyright messages will be maintained
 *   to give credit where credit is due. If you modify this, the only requirement is
 *   that you also maintain all original copyright messages. All my work is released
 *   under the GNU GENERAL PUBLIC LICENSE. Please see the README for more information.
 *
 ***************************************************************************/
/***************************************************************************
 *
 *   This program is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 ***************************************************************************/

/**
 * Template class. By Nathan Codding of the phpBB group.
 * The interface was originally inspired by PHPLib templates,
 * and the template file formats are quite similar.
 *
 */

class Template {
        var $classname = "Template";

        // variable that holds all the data we'll be substituting into
        // the compiled templates.
        // ...
        // This will end up being a multi-dimensional array like this:
        // $this->_tpldata[block.][iteration#][child.][iteration#][child2.][iteration#][variablename] == value
        // if it's a root-level variable, it'll be like this:
        // $this->_tpldata[.][0][varname] == value
        var $_tpldata = array();

        // Hash of filenames for each template handle.
        var $files = array();

        // Root template directory.
        var $root = "";

        // this will hash handle names to the compiled code for that handle.
        var $compiled_code = array();

        // This will hold the uncompiled code for that handle.
        var $uncompiled_code = array();

        /**
         * Constructor. Simply sets the root dir.
         *
         */
        function Template($root = ".")
        {
                $this->set_rootdir($root);
        }

        /**
         * Destroys this template object. Should be called when you're done with it, in order
         * to clear out the template data so you can load/parse a new template set.
         */
        function destroy()
        {
                $this->_tpldata = array();
        }

        /**
         * Sets the template root directory for this Template object.
         */
        function set_rootdir($dir)
        {
                if (!is_dir($dir))
                {
                        return false;
                }

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

        /**
         * Sets the template filenames for handles. $filename_array
         * should be a hash of handle => filename pairs.
         */
        function set_filenames($filename_array)
        {
                if (!is_array($filename_array))
                {
                        return false;
                }

                reset($filename_array);
                while(list($handle, $filename) = each($filename_array))
                {
                        $this->files[$handle] = $this->make_filename($filename);
                }

                return true;
        }


        /**
         * Load the file for the handle, compile the file,
         * and run the compiled code. This will print out
         * the results of executing the template.
         */
        function pparse($handle)
        {
                if (!$this->loadfile($handle))
                {
                        die("Template->pparse(): Couldn't load template file for handle $handle");
                }

                // actually compile the template now.
                if (!isset($this->compiled_code[$handle]) || empty($this->compiled_code[$handle]))
                {
                        // Actually compile the code now.
                        $this->compiled_code[$handle] = $this->compile($this->uncompiled_code[$handle]);
                }

                // Run the compiled code.
                eval($this->compiled_code[$handle]);
                return true;
        }

        /**
         * Inserts the uncompiled code for $handle as the
         * value of $varname in the root-level. This can be used
         * to effectively include a template in the middle of another
         * template.
         * Note that all desired assignments to the variables in $handle should be done
         * BEFORE calling this function.
         */
        function assign_var_from_handle($varname, $handle)
        {
                if (!$this->loadfile($handle))
                {
                        die("Template->assign_var_from_handle(): Couldn't load template file for handle $handle");
                }

                // Compile it, with the "no echo statements" option on.
                $_str = "";
                $code = $this->compile($this->uncompiled_code[$handle], true, '_str');

                // evaluate the variable assignment.
                eval($code);
                // assign the value of the generated variable to the given varname.
                $this->assign_var($varname, $_str);

                return true;
        }

        /**
         * Block-level variable assignment. Adds a new block iteration with the given
         * variable assignments. Note that this should only be called once per block
         * iteration.
         */
        function assign_block_vars($blockname, $vararray)
        {
                if (strstr($blockname, '.'))
                {
                        // Nested block.
                        $blocks = explode('.', $blockname);
                        $blockcount = sizeof($blocks) - 1;
                        $str = '$this->_tpldata';
                        for ($i = 0; $i < $blockcount; $i++)
                        {
                                $str .= '[\'' . $blocks[$i] . '.\']';
                                eval('$lastiteration = sizeof(' . $str . ') - 1;');
                                $str .= '[' . $lastiteration . ']';
                        }
                        // Now we add the block that we're actually assigning to.
                        // We're adding a new iteration to this block with the given
                        // variable assignments.
                        $str .= '[\'' . $blocks[$blockcount] . '.\'][] = $vararray;';

                        // Now we evaluate this assignment we've built up.
                        eval($str);
                }
                else
                {
                        // Top-level block.
                        // Add a new iteration to this block with the variable assignments
                        // we were given.
                        $this->_tpldata[$blockname . '.'][] = $vararray;
                }

                return true;
        }

        /**
         * Root-level variable assignment. Adds to current assignments, overriding
         * any existing variable assignment with the same name.
         */
        function assign_vars($vararray)
        {
                reset ($vararray);
                while (list($key, $val) = each($vararray))
                {
                        $this->_tpldata['.'][0][$key] = $val;
                }

                return true;
        }

        /**
         * Root-level variable assignment. Adds to current assignments, overriding
         * any existing variable assignment with the same name.
         */
        function assign_var($varname, $varval)
        {
                $this->_tpldata['.'][0][$varname] = $varval;

                return true;
        }


        /**
         * Generates a full path+filename for the given filename, which can either
         * be an absolute name, or a name relative to the rootdir for this Template
         * object.
         */
        function make_filename($filename)
        {
                // Check if it's an absolute or relative path.
                if (substr($filename, 0, 1) != '/')
                {
                       $filename = phpbb_realpath($this->root . '/' . $filename);
                }

                if (!file_exists($filename))
                {
                        die("Template->make_filename(): Error - file $filename does not exist");
                }

                return $filename;
        }


        /**
         * If not already done, load the file for the given handle and populate
         * the uncompiled_code[] hash with its code. Do not compile.
         */
        function loadfile($handle)
        {
                // If the file for this handle is already loaded and compiled, do nothing.
                if (isset($this->uncompiled_code[$handle]) && !empty($this->uncompiled_code[$handle]))
                {
                        return true;
                }

                // If we don't have a file assigned to this handle, die.
                if (!isset($this->files[$handle]))
                {
                        die("Template->loadfile(): No file specified for handle $handle");
                }

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

                $str = implode("", @file($filename));
                if (empty($str))
                {
                        die("Template->loadfile(): File $filename for handle $handle is empty");
                }

                $this->uncompiled_code[$handle] = $str;

                return true;
        }



        /**
         * Compiles the given string of code, and returns
         * the result in a string.
         * If "do_not_echo" is true, the returned code will not be directly
         * executable, but can be used as part of a variable assignment
         * for use in assign_code_from_handle().
         */
        function compile($code, $do_not_echo = false, $retvar = '')
        {
                // replace \ with \\ and then ' with \'.
                $code = str_replace('\\', '\\\\', $code);
                $code = str_replace('\'', '\\\'', $code);

                // change template varrefs into PHP varrefs

                // This one will handle varrefs WITH namespaces
                $varrefs = array();
                preg_match_all('#\{(([a-z0-9\-_]+?\.)+?)([a-z0-9\-_]+?)\}#is', $code, $varrefs);
                $varcount = sizeof($varrefs[1]);
                for ($i = 0; $i < $varcount; $i++)
                {
                        $namespace = $varrefs[1][$i];
                        $varname = $varrefs[3][$i];
                        $new = $this->generate_block_varref($namespace, $varname);

                        $code = str_replace($varrefs[0][$i], $new, $code);
                }

                // This will handle the remaining root-level varrefs
                $code = preg_replace('#\{([a-z0-9\-_]*?)\}#is', '\' . ( ( isset($this->_tpldata[\'.\'][0][\'\1\']) ) ? $this->_tpldata[\'.\'][0][\'\1\'] : \'\' ) . \'', $code);

                // Break it up into lines.
                $code_lines = explode("\n", $code);

                $block_nesting_level = 0;
                $block_names = array();
                $block_names[0] = ".";

                // Second: prepend echo ', append ' . "\n"; to each line.
                $line_count = sizeof($code_lines);
                for ($i = 0; $i < $line_count; $i++)
                {
                        $code_lines[$i] = chop($code_lines[$i]);
                        if (preg_match('#<!-- BEGIN (.*?) -->#', $code_lines[$i], $m))
                        {
                                $n[0] = $m[0];
                                $n[1] = $m[1];

                                // Added: dougk_ff7-Keeps templates from bombing if begin is on the same line as end.. I think. :)
                                if ( preg_match('#<!-- END (.*?) -->#', $code_lines[$i], $n) )
                                {
                                        $block_nesting_level++;
                                        $block_names[$block_nesting_level] = $m[1];
                                        if ($block_nesting_level < 2)
                                        {
                                                // Block is not nested.
                                                $code_lines[$i] = '$_' . $n[1] . '_count = ( isset($this->_tpldata[\'' . $n[1] . '.\']) ) ?  sizeof($this->_tpldata[\'' . $n[1] . '.\']) : 0;';
                                                $code_lines[$i] .= "\n" . 'for ($_' . $n[1] . '_i = 0; $_' . $n[1] . '_i < $_' . $n[1] . '_count; $_' . $n[1] . '_i++)';
                                                $code_lines[$i] .= "\n" . '{';
                                        }
                                        else
                                        {
                                                // This block is nested.

                                                // Generate a namespace string for this block.
                                                $namespace = implode('.', $block_names);
                                                // strip leading period from root level..
                                                $namespace = substr($namespace, 2);
                                                // Get a reference to the data array for this block that depends on the
                                                // current indices of all parent blocks.
                                                $varref = $this->generate_block_data_ref($namespace, false);
                                                // Create the for loop code to iterate over this block.
                                                $code_lines[$i] = '$_' . $n[1] . '_count = ( isset(' . $varref . ') ) ? sizeof(' . $varref . ') : 0;';
                                                $code_lines[$i] .= "\n" . 'for ($_' . $n[1] . '_i = 0; $_' . $n[1] . '_i < $_' . $n[1] . '_count; $_' . $n[1] . '_i++)';
                                                $code_lines[$i] .= "\n" . '{';
                                        }

                                        // We have the end of a block.
                                        unset($block_names[$block_nesting_level]);
                                        $block_nesting_level--;
                                        $code_lines[$i] .= '} // END ' . $n[1];
                                        $m[0] = $n[0];
                                        $m[1] = $n[1];
                                }
                                else
                                {
                                        // We have the start of a block.
                                        $block_nesting_level++;
                                        $block_names[$block_nesting_level] = $m[1];
                                        if ($block_nesting_level < 2)
                                        {
                                                // Block is not nested.
                                                $code_lines[$i] = '$_' . $m[1] . '_count = ( isset($this->_tpldata[\'' . $m[1] . '.\']) ) ? sizeof($this->_tpldata[\'' . $m[1] . '.\']) : 0;';
                                                $code_lines[$i] .= "\n" . 'for ($_' . $m[1] . '_i = 0; $_' . $m[1] . '_i < $_' . $m[1] . '_count; $_' . $m[1] . '_i++)';
                                                $code_lines[$i] .= "\n" . '{';
                                        }
                                        else
                                        {
                                                // This block is nested.

                                                // Generate a namespace string for this block.
                                                $namespace = implode('.', $block_names);
                                                // strip leading period from root level..
                                                $namespace = substr($namespace, 2);
                                                // Get a reference to the data array for this block that depends on the
                                                // current indices of all parent blocks.
                                                $varref = $this->generate_block_data_ref($namespace, false);
                                                // Create the for loop code to iterate over this block.
                                                $code_lines[$i] = '$_' . $m[1] . '_count = ( isset(' . $varref . ') ) ? sizeof(' . $varref . ') : 0;';
                                                $code_lines[$i] .= "\n" . 'for ($_' . $m[1] . '_i = 0; $_' . $m[1] . '_i < $_' . $m[1] . '_count; $_' . $m[1] . '_i++)';
                                                $code_lines[$i] .= "\n" . '{';
                                        }
                                }
                        }
                        else if (preg_match('#<!-- END (.*?) -->#', $code_lines[$i], $m))
                        {
                                // We have the end of a block.
                                unset($block_names[$block_nesting_level]);
                                $block_nesting_level--;
                                $code_lines[$i] = '} // END ' . $m[1];
                        }
                        else
                        {
                                // We have an ordinary line of code.
                                if (!$do_not_echo)
                                {
                                        $code_lines[$i] = 'echo \'' . $code_lines[$i] . '\' . "\\n";';
                                }
                                else
                                {
                                        $code_lines[$i] = '$' . $retvar . '.= \'' . $code_lines[$i] . '\' . "\\n";';
                                }
                        }
                }

                // Bring it back into a single string of lines of code.
                $code = implode("\n", $code_lines);
                return $code        ;

        }


        /**
         * Generates a reference to the given variable inside the given (possibly nested)
         * block namespace. This is a string of the form:
         * ' . $this->_tpldata['parent'][$_parent_i]['$child1'][$_child1_i]['$child2'][$_child2_i]...['varname'] . '
         * It's ready to be inserted into an "echo" line in one of the templates.
         * NOTE: expects a trailing "." on the namespace.
         */
        function generate_block_varref($namespace, $varname)
        {
                // Strip the trailing period.
                $namespace = substr($namespace, 0, strlen($namespace) - 1);

                // Get a reference to the data block for this namespace.
                $varref = $this->generate_block_data_ref($namespace, true);
                // Prepend the necessary code to stick this in an echo line.

                // Append the variable reference.
                $varref .= '[\'' . $varname . '\']';

                $varref = '\' . ( ( isset(' . $varref . ') ) ? ' . $varref . ' : \'\' ) . \'';

                return $varref;

        }


        /**
         * Generates a reference to the array of data values for the given
         * (possibly nested) block namespace. This is a string of the form:
         * $this->_tpldata['parent'][$_parent_i]['$child1'][$_child1_i]['$child2'][$_child2_i]...['$childN']
         *
         * If $include_last_iterator is true, then [$_childN_i] will be appended to the form shown above.
         * NOTE: does not expect a trailing "." on the blockname.
         */
        function generate_block_data_ref($blockname, $include_last_iterator)
        {
                // Get an array of the blocks involved.
                $blocks = explode(".", $blockname);
                $blockcount = sizeof($blocks) - 1;
                $varref = '$this->_tpldata';
                // Build up the string with everything but the last child.
                for ($i = 0; $i < $blockcount; $i++)
                {
                        $varref .= '[\'' . $blocks[$i] . '.\'][$_' . $blocks[$i] . '_i]';
                }
                // Add the block reference for the last child.
                $varref .= '[\'' . $blocks[$blockcount] . '.\']';
                // Add the iterator for the last child if requried.
                if ($include_last_iterator)
                {
                        $varref .= '[$_' . $blocks[$blockcount] . '_i]';
                }

                return $varref;
        }

}

?>
