- Removing some DOS-style line endings. Thanks TDobes.

2 files changed, 713 insertions, 713 deletions

diff --git a/themes/engines/xtemplate/xtemplate.engine b/themes/engines/xtemplate/xtemplate.engine
index fa91aa954..02f5cfba2 100644
--- a/themes/engines/xtemplate/xtemplate.engine
+++ b/themes/engines/xtemplate/xtemplate.engine
@@ -1,233 +1,233 @@
-<?php

-// $Id$

-

-// Initialize the xtemplate engine.

-function xtemplate_init($template) {

-  // We cannot use the theme() or path_to_theme() functions here

-  if (!class_exists('XTemplate')) {

-    include_once('themes/engines/xtemplate/xtemplate.inc');

-  }

-  $GLOBALS['xtemplate']->template = new XTemplate(basename($template->filename), dirname($template->filename));

-  $GLOBALS['xtemplate']->template->SetNullBlock(' ');  // '' doesnt work!

-}

-

-function xtemplate_templates($directory) {

-  return file_scan_directory($directory, 'xtemplate.xtmpl$');

-}

-

-function xtemplate_features() {

-  return array(

-       'logo',

-       'toggle_name',

-       'toggle_search',

-       'toggle_slogan',

-       'toggle_mission',

-       'toggle_primary_links',

-       'toggle_secondary_links',

-       'toggle_node_user_picture',

-       'toggle_comment_user_picture');

-}

-

-function xtemplate_node($node, $main = 0, $page = 0) {

-  global $xtemplate;

-

-  $xtemplate->template->assign(array(

-        "submitted" => drupal_get_theme_setting("toggle_node_info_$node->type") ?

-                         t("Submitted by %a on %b.",

-                           array("%a" => format_name($node),

-                            "%b" => format_date($node->created))) : '',

-        "link"      => url("node/$node->nid"),

-        "title"     => $node->title,

-        "author"    => format_name($node),

-        "date"      => format_date($node->created),

-        "sticky"    => ($main && $node->sticky) ? 'sticky' : '',

-        "content"   => ($main && $node->teaser) ? $node->teaser : $node->body));

-

-  if ($page == 0) {

-    $xtemplate->template->parse("node.title");

-  }

-

-  if (drupal_get_theme_setting('toggle_node_user_picture') && $picture = theme('user_picture', $node)) {

-    $xtemplate->template->assign("picture", $picture);

-    $xtemplate->template->parse("node.picture");

-  }

-

-  if (module_exist("taxonomy") && ($taxonomy = taxonomy_link("taxonomy terms", $node))) {

-    $xtemplate->template->assign("taxonomy", theme_links($taxonomy));

-    $xtemplate->template->parse("node.taxonomy");

-  }

-

-  if ($links = link_node($node, $main)) {

-    $xtemplate->template->assign("links", theme_links($links));

-    $xtemplate->template->parse("node.links");

-  }

-

-  $xtemplate->template->parse("node");

-  $output = $xtemplate->template->text("node");

-  $xtemplate->template->reset("node");

-  return $output;

-}

-

-function xtemplate_comment($comment, $links = 0) {

-  global $xtemplate;

-

-  $xtemplate->template->assign(array (

-    "new"       => t("new"),

-    "submitted" => t("Submitted by %a on %b.",

-                      array("%a" => format_name($comment),

-                            "%b" => format_date($comment->timestamp))),

-    "title"     => l($comment->subject, $_GET['q'], NULL, NULL, "comment-$comment->cid"),

-    "author"    => format_name($comment),

-    "date"      => format_date($comment->timestamp),

-    "content"   => $comment->comment

-  ));

-

-  if ($comment->new) {

-    $xtemplate->template->parse("comment.new");

-  }

-

-  if (drupal_get_theme_setting('toggle_comment_user_picture') && $picture = theme('user_picture', $comment)) {

-    $xtemplate->template->assign("picture", $picture);

-    $xtemplate->template->parse("comment.picture");

-  }

-

-  if ($links) {

-    $xtemplate->template->assign("links", $links);

-    $xtemplate->template->parse("comment.links");

-  }

-

-  $xtemplate->template->parse("comment");

-  $output = $xtemplate->template->text("comment");

-  $xtemplate->template->reset("comment");

-

-  return $output;

-}

-

-function xtemplate_page($content, $title = NULL, $breadcrumb = NULL) {

-  if (isset($title)) {

-    drupal_set_title($title);

-  }

-  if (isset($breadcrumb)) {

-    drupal_set_breadcrumb($breadcrumb);

-  }

-

-  global $xtemplate;

-

-  $xtemplate->template->assign(array(

-    "head_title" => (drupal_get_title() ? drupal_get_title() ." | ". variable_get("site_name", "drupal") : variable_get("site_name", "drupal") ." | ". variable_get("site_slogan", "")),

-    "head" => drupal_get_html_head(),

-    "onload_attributes" => theme_onload_attribute(),

-    "primary_links" => drupal_get_theme_setting('primary_links'),

-    "secondary_links" => drupal_get_theme_setting('secondary_links')

-   ));

-

-  if ($logo = drupal_get_theme_setting('logo')) {

-    $xtemplate->template->assign('logo', $logo);

-    $xtemplate->template->parse('header.logo');

-  }

-

-  if (drupal_get_theme_setting('toggle_name')) {

-    $xtemplate->template->assign('site_name', variable_get('site_name', ''));

-    $xtemplate->template->parse('header.site_name');

-  }

-

-  if (drupal_get_theme_setting('toggle_slogan')) {

-    $xtemplate->template->assign('site_slogan', variable_get('site_slogan', ''));

-    $xtemplate->template->parse('header.site_slogan');

-  }

-

-  if ($tabs = theme('menu_local_tasks')) {

-    $xtemplate->template->assign("tabs", $tabs);

-    $xtemplate->template->parse("header.title.tabs");

-  }

-

-  if ($title = drupal_get_title()) {

-    $xtemplate->template->assign("title", $title);

-    $xtemplate->template->assign("breadcrumb", theme("breadcrumb", drupal_get_breadcrumb()));

-    $xtemplate->template->parse("header.title");

-  }

-

-  if ($help = menu_get_active_help()) {

-    $xtemplate->template->assign("help", $help);

-    $xtemplate->template->parse("header.help");

-  }

-

-  if ($message = theme_status_messages()) {

-    $xtemplate->template->assign("message", $message);

-    $xtemplate->template->parse("header.message");

-  }

-

-  if (drupal_get_theme_setting('toggle_search')) {

-    $xtemplate->template->assign(array(

-          //"search" => search_form(),

-          "search_url" => url("search"),

-          "search_button_text" => t("Search"),

-          "search_description" => t("Enter the terms you wish to search for.")

-          ));

-    $xtemplate->template->parse("header.search_box");

-  }

-

-  // only parse the mission block if we are on the frontpage ...

-  if ($_GET["q"] == variable_get("site_frontpage", "node") && drupal_get_theme_setting('toggle_mission') && ($mission = drupal_get_theme_setting('mission'))) {

-    $xtemplate->template->assign("mission", $mission);

-    $xtemplate->template->parse("header.mission");

-  }

-

-  if ($blocks = theme("blocks", "left")) {

-    $xtemplate->template->assign("blocks", $blocks);

-    $xtemplate->template->parse("header.blocks");

-  }

-

-  $xtemplate->template->parse("header");

-  $output = $xtemplate->template->text("header");

-

-  $output .= "\n<!-- begin content -->\n";

-  $output .= $content;

-  $output .= "\n<!-- end content -->\n";

-

-  if ($blocks = theme("blocks", "right")) {

-    $xtemplate->template->assign("blocks", $blocks);

-    $xtemplate->template->parse("footer.blocks");

-  }

-

-  // only parse the footer block if site_footer is set

-  if ($footer_message = variable_get("site_footer", FALSE)) {

-    $xtemplate->template->assign("footer_message", $footer_message);

-    $xtemplate->template->parse("footer.message");

-  }

-

-  $xtemplate->template->assign("footer", theme_closure());

-  $xtemplate->template->parse("footer");

-

-  $output .= $xtemplate->template->text("footer");

-

-  return $output;

-}

-

-function xtemplate_block(&$block) {

-  global $xtemplate;

-

-  // create template variables for all block variables (module, delta, region, subject, content, ...)

-  foreach ($block as $key => $value) {

-    $xtemplate->template->assign($key == "subject" ? "title" : $key, $value); // TODO: standardize on 'title' (ie. rename all $block["subject"] to "title")

-  }

-  $xtemplate->template->parse("block");

-  $output = $xtemplate->template->text("block");

-  $xtemplate->template->reset("block");

-  return $output;

-}

-

-function xtemplate_box($title, $content, $region = "main") {

-  global $xtemplate;

-

-  $xtemplate->template->assign(array(

-        "title" => $title,

-        "content" => $content));

-

-  $xtemplate->template->parse("box");

-  $output = $xtemplate->template->text("box");

-  $xtemplate->template->reset("box");

-  return $output;

-}

-

-?>

+<?php
+// $Id$
+
+// Initialize the xtemplate engine.
+function xtemplate_init($template) {
+  // We cannot use the theme() or path_to_theme() functions here
+  if (!class_exists('XTemplate')) {
+    include_once('themes/engines/xtemplate/xtemplate.inc');
+  }
+  $GLOBALS['xtemplate']->template = new XTemplate(basename($template->filename), dirname($template->filename));
+  $GLOBALS['xtemplate']->template->SetNullBlock(' ');  // '' doesnt work!
+}
+
+function xtemplate_templates($directory) {
+  return file_scan_directory($directory, 'xtemplate.xtmpl$');
+}
+
+function xtemplate_features() {
+  return array(
+       'logo',
+       'toggle_name',
+       'toggle_search',
+       'toggle_slogan',
+       'toggle_mission',
+       'toggle_primary_links',
+       'toggle_secondary_links',
+       'toggle_node_user_picture',
+       'toggle_comment_user_picture');
+}
+
+function xtemplate_node($node, $main = 0, $page = 0) {
+  global $xtemplate;
+
+  $xtemplate->template->assign(array(
+        "submitted" => drupal_get_theme_setting("toggle_node_info_$node->type") ?
+                         t("Submitted by %a on %b.",
+                           array("%a" => format_name($node),
+                            "%b" => format_date($node->created))) : '',
+        "link"      => url("node/$node->nid"),
+        "title"     => $node->title,
+        "author"    => format_name($node),
+        "date"      => format_date($node->created),
+        "sticky"    => ($main && $node->sticky) ? 'sticky' : '',
+        "content"   => ($main && $node->teaser) ? $node->teaser : $node->body));
+
+  if ($page == 0) {
+    $xtemplate->template->parse("node.title");
+  }
+
+  if (drupal_get_theme_setting('toggle_node_user_picture') && $picture = theme('user_picture', $node)) {
+    $xtemplate->template->assign("picture", $picture);
+    $xtemplate->template->parse("node.picture");
+  }
+
+  if (module_exist("taxonomy") && ($taxonomy = taxonomy_link("taxonomy terms", $node))) {
+    $xtemplate->template->assign("taxonomy", theme_links($taxonomy));
+    $xtemplate->template->parse("node.taxonomy");
+  }
+
+  if ($links = link_node($node, $main)) {
+    $xtemplate->template->assign("links", theme_links($links));
+    $xtemplate->template->parse("node.links");
+  }
+
+  $xtemplate->template->parse("node");
+  $output = $xtemplate->template->text("node");
+  $xtemplate->template->reset("node");
+  return $output;
+}
+
+function xtemplate_comment($comment, $links = 0) {
+  global $xtemplate;
+
+  $xtemplate->template->assign(array (
+    "new"       => t("new"),
+    "submitted" => t("Submitted by %a on %b.",
+                      array("%a" => format_name($comment),
+                            "%b" => format_date($comment->timestamp))),
+    "title"     => l($comment->subject, $_GET['q'], NULL, NULL, "comment-$comment->cid"),
+    "author"    => format_name($comment),
+    "date"      => format_date($comment->timestamp),
+    "content"   => $comment->comment
+  ));
+
+  if ($comment->new) {
+    $xtemplate->template->parse("comment.new");
+  }
+
+  if (drupal_get_theme_setting('toggle_comment_user_picture') && $picture = theme('user_picture', $comment)) {
+    $xtemplate->template->assign("picture", $picture);
+    $xtemplate->template->parse("comment.picture");
+  }
+
+  if ($links) {
+    $xtemplate->template->assign("links", $links);
+    $xtemplate->template->parse("comment.links");
+  }
+
+  $xtemplate->template->parse("comment");
+  $output = $xtemplate->template->text("comment");
+  $xtemplate->template->reset("comment");
+
+  return $output;
+}
+
+function xtemplate_page($content, $title = NULL, $breadcrumb = NULL) {
+  if (isset($title)) {
+    drupal_set_title($title);
+  }
+  if (isset($breadcrumb)) {
+    drupal_set_breadcrumb($breadcrumb);
+  }
+
+  global $xtemplate;
+
+  $xtemplate->template->assign(array(
+    "head_title" => (drupal_get_title() ? drupal_get_title() ." | ". variable_get("site_name", "drupal") : variable_get("site_name", "drupal") ." | ". variable_get("site_slogan", "")),
+    "head" => drupal_get_html_head(),
+    "onload_attributes" => theme_onload_attribute(),
+    "primary_links" => drupal_get_theme_setting('primary_links'),
+    "secondary_links" => drupal_get_theme_setting('secondary_links')
+   ));
+
+  if ($logo = drupal_get_theme_setting('logo')) {
+    $xtemplate->template->assign('logo', $logo);
+    $xtemplate->template->parse('header.logo');
+  }
+
+  if (drupal_get_theme_setting('toggle_name')) {
+    $xtemplate->template->assign('site_name', variable_get('site_name', ''));
+    $xtemplate->template->parse('header.site_name');
+  }
+
+  if (drupal_get_theme_setting('toggle_slogan')) {
+    $xtemplate->template->assign('site_slogan', variable_get('site_slogan', ''));
+    $xtemplate->template->parse('header.site_slogan');
+  }
+
+  if ($tabs = theme('menu_local_tasks')) {
+    $xtemplate->template->assign("tabs", $tabs);
+    $xtemplate->template->parse("header.title.tabs");
+  }
+
+  if ($title = drupal_get_title()) {
+    $xtemplate->template->assign("title", $title);
+    $xtemplate->template->assign("breadcrumb", theme("breadcrumb", drupal_get_breadcrumb()));
+    $xtemplate->template->parse("header.title");
+  }
+
+  if ($help = menu_get_active_help()) {
+    $xtemplate->template->assign("help", $help);
+    $xtemplate->template->parse("header.help");
+  }
+
+  if ($message = theme_status_messages()) {
+    $xtemplate->template->assign("message", $message);
+    $xtemplate->template->parse("header.message");
+  }
+
+  if (drupal_get_theme_setting('toggle_search')) {
+    $xtemplate->template->assign(array(
+          //"search" => search_form(),
+          "search_url" => url("search"),
+          "search_button_text" => t("Search"),
+          "search_description" => t("Enter the terms you wish to search for.")
+          ));
+    $xtemplate->template->parse("header.search_box");
+  }
+
+  // only parse the mission block if we are on the frontpage ...
+  if ($_GET["q"] == variable_get("site_frontpage", "node") && drupal_get_theme_setting('toggle_mission') && ($mission = drupal_get_theme_setting('mission'))) {
+    $xtemplate->template->assign("mission", $mission);
+    $xtemplate->template->parse("header.mission");
+  }
+
+  if ($blocks = theme("blocks", "left")) {
+    $xtemplate->template->assign("blocks", $blocks);
+    $xtemplate->template->parse("header.blocks");
+  }
+
+  $xtemplate->template->parse("header");
+  $output = $xtemplate->template->text("header");
+
+  $output .= "\n<!-- begin content -->\n";
+  $output .= $content;
+  $output .= "\n<!-- end content -->\n";
+
+  if ($blocks = theme("blocks", "right")) {
+    $xtemplate->template->assign("blocks", $blocks);
+    $xtemplate->template->parse("footer.blocks");
+  }
+
+  // only parse the footer block if site_footer is set
+  if ($footer_message = variable_get("site_footer", FALSE)) {
+    $xtemplate->template->assign("footer_message", $footer_message);
+    $xtemplate->template->parse("footer.message");
+  }
+
+  $xtemplate->template->assign("footer", theme_closure());
+  $xtemplate->template->parse("footer");
+
+  $output .= $xtemplate->template->text("footer");
+
+  return $output;
+}
+
+function xtemplate_block(&$block) {
+  global $xtemplate;
+
+  // create template variables for all block variables (module, delta, region, subject, content, ...)
+  foreach ($block as $key => $value) {
+    $xtemplate->template->assign($key == "subject" ? "title" : $key, $value); // TODO: standardize on 'title' (ie. rename all $block["subject"] to "title")
+  }
+  $xtemplate->template->parse("block");
+  $output = $xtemplate->template->text("block");
+  $xtemplate->template->reset("block");
+  return $output;
+}
+
+function xtemplate_box($title, $content, $region = "main") {
+  global $xtemplate;
+
+  $xtemplate->template->assign(array(
+        "title" => $title,
+        "content" => $content));
+
+  $xtemplate->template->parse("box");
+  $output = $xtemplate->template->text("box");
+  $xtemplate->template->reset("box");
+  return $output;
+}
+
+?>
diff --git a/themes/engines/xtemplate/xtemplate.inc b/themes/engines/xtemplate/xtemplate.inc
index 611ec2c8c..6c89be93d 100644
--- a/themes/engines/xtemplate/xtemplate.inc
+++ b/themes/engines/xtemplate/xtemplate.inc
@@ -1,480 +1,480 @@
-<?php

-

-class XTemplate {

-

-/*

-  xtemplate class 0.3pre

-  html generation with templates - fast & easy

-  copyright (c) 2000-2001 Barnabas Debreceni [cranx@users.sourceforge.net]

-

-  contributors:

-  Ivar Smolin <okul@linux.ee> (14-march-2001)

-    - made some code optimizations

-  Bert Jandehoop <bert.jandehoop@users.info.wau.nl> (26-june-2001)

-    - new feature to substitute template files by other templates

-    - new method array_loop()

-

-  !!! {FILE {VAR}} file variable interpolation may still be buggy !!!

-

-  latest stable & CVS versions always available @

-  http://sourceforge.net/projects/xtpl/

-

-  This program is free software; you can redistribute it and/or

-  modify it under the terms of the GNU Lesser General Public License

-  version 2.1 as published by the Free Software Foundation.

-

-  This library is distributed in the hope that it will be useful,

-  but WITHOUT ANY WARRANTY; without even the implied warranty of

-  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

-  GNU Lesser General Public License for more details at

-  http://www.gnu.org/copyleft/lgpl.html

-

-  You should have received a copy of the GNU General Public License

-  along with this program; if not, write to the Free Software

-  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

-

-  $Id$

-

-*/

-

-/***[ variables ]***********************************************************/

-

-var $filecontents="";               /* raw contents of template file */

-var $blocks=array();                /* unparsed blocks */

-var $parsed_blocks=array();         /* parsed blocks */

-var $preparsed_blocks=array();      /* preparsed blocks, for file includes */

-var $block_parse_order=array();     /* block parsing order for recursive parsing (sometimes reverse:) */

-var $sub_blocks=array();            /* store sub-block names for fast resetting */

-var $VARS=array();                  /* variables array */

-var $FILEVARS=array();              /* file variables array */

-var $filevar_parent=array();        /* filevars' parent block */

-var $filecache=array();             /* file caching */

-

-var $tpldir="";                     /* location of template files */

-var $FILES=null;                    /* file names lookup table */

-

-var $file_delim="/\{FILE\s*\"([^\"]+)\"\s*\}/m";  /* regexp for file includes */

-var $filevar_delim="/\{FILE\s*\{([A-Za-z0-9\._]+?)\}\s*\}/m";  /* regexp for file includes */

-var $filevar_delim_nl="/^\s*\{FILE\s*\{([A-Za-z0-9\._]+?)\}\s*\}\s*\n/m";  /* regexp for file includes w/ newlines */

-var $block_start_delim="<!-- ";     /* block start delimiter */

-var $block_end_delim="-->";         /* block end delimiter */

-var $block_start_word="BEGIN:";     /* block start word */

-var $block_end_word="END:";         /* block end word */

-

-/* this makes the delimiters look like: <!-- BEGIN: block_name --> if you use my syntax. */

-

-var $NULL_STRING=array(""=>"");     /* null string for unassigned vars */

-var $NULL_BLOCK=array(""=>"");      /* null string for unassigned blocks */

-var $mainblock="main";

-var $ERROR="";

-var $AUTORESET=1;                    /* auto-reset sub blocks */

-

-/***[ constructor ]*********************************************************/

-

-

-function XTemplate ($file,$tpldir="",$files=null,$mainblock="main") {

-  $this->tpldir = $tpldir;

-  if (gettype($files)=="array")

-    $this->FILES = $files;

-  $this->mainblock=$mainblock;

-  $this->filecontents=$this->r_getfile($file);  /* read in template file */

-  $this->blocks=$this->maketree($this->filecontents,"");  /* preprocess some stuff */

-  $this->filevar_parent=$this->store_filevar_parents($this->blocks);

-  $this->scan_globals();

-}

-

-

-/***************************************************************************/

-/***[ public stuff ]********************************************************/

-/***************************************************************************/

-

-/***[ assign ]**************************************************************/

-/*

-  assign a variable

-*/

-

-function assign ($name,$val="") {

-  if (gettype($name)=="array")

-    foreach ($name as $k=>$v)

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

-  else

-    $this->VARS[$name]=$val;

-}

-

-/***[ assign_file ]*********************************************************/

-/*

-  assign a file variable

-*/

-

-function assign_file ($name,$val="") {

-  if (gettype($name)=="array")

-    foreach ($name as $k=>$v)

-      $this->assign_file_($k,$v);

-  else

-    $this->assign_file_($name,$val);

-}

-

-function assign_file_ ($name,$val) {

-  if (isset($this->filevar_parent[$name])) {

-    if ($val!="") {

-      $val=$this->r_getfile($val);

-      foreach($this->filevar_parent[$name] as $parent) {

-        if (isset($this->preparsed_blocks[$parent]) and !isset($this->FILEVARS[$name]))

-          $copy=$this->preparsed_blocks[$parent];

-        else if (isset($this->blocks[$parent]))

-          $copy=$this->blocks[$parent];

-        preg_match_all($this->filevar_delim,$copy,$res,PREG_SET_ORDER);

-        foreach ($res as $v) {

-          $copy=preg_replace("/".preg_quote($v[0])."/","$val",$copy);

-          $this->preparsed_blocks=array_merge($this->preparsed_blocks,$this->maketree($copy,$parent));

-          $this->filevar_parent=array_merge($this->filevar_parent,$this->store_filevar_parents($this->preparsed_blocks));

-        }

-      }

-    }

-  }

-  $this->FILEVARS[$name]=$val;

-}

-

-/***[ parse ]***************************************************************/

-/*

-  parse a block

-*/

-

-function parse ($bname) {

-

-  if (isset($this->preparsed_blocks[$bname])) {

-    $copy=$this->preparsed_blocks[$bname];

-  }

-  else if (isset($this->blocks[$bname]))

-    $copy=$this->blocks[$bname];

-  else

-    $this->set_error ("parse: blockname [$bname] does not exist");

-

-  /* from there we should have no more {FILE } directives */

-  $copy=preg_replace($this->filevar_delim_nl,"",$copy);

-

-  /* find & replace variables+blocks */

-  preg_match_all("/\{([A-Za-z0-9\._]+?)}/",$copy,$var_array);

-  $var_array=$var_array[1];

-  foreach ($var_array as $k=>$v) {

-    $sub=explode(".",$v);

-    if ($sub[0]=="_BLOCK_") {

-      unset($sub[0]);

-      $bname2=implode(".",$sub);

-      $var=$this->parsed_blocks[$bname2];

-      $nul=(!isset($this->NULL_BLOCK[$bname2])) ? $this->NULL_BLOCK[""] : $this->NULL_BLOCK[$bname2];

-      if ($var=="") {

-        if ($nul=="") {

-          $copy=preg_replace("/^\s*\{".$v."\}\s*\n*/m","",$copy);

-        } else {

-          $copy=preg_replace("/\{".$v."\}/","$nul",$copy);

-        }

-      } else {

-        $var=trim($var);

-        $copy=str_replace("\{$v}","$var",$copy);

-      }

-    } else {

-      $var=$this->VARS;

-      foreach ($sub as $v1)

-        $var=$var[$v1];

-      $nul=(!isset($this->NULL_STRING[$v])) ? ($this->NULL_STRING[""]) : ($this->NULL_STRING[$v]);

-      $var=(!isset($var))?$nul:$var;

-      if ($var=="")

-        $copy=preg_replace("/^\s*\{".$v."\}\s*\n/m","",$copy);

-      $copy=str_replace("\{$v}","$var",$copy);

-    }

-  }

-  if (empty($this->parsed_blocks[$bname])) $this->parsed_blocks[$bname] = null; // eliminates incremental assign error, when using E_ALL error reporting

-  $this->parsed_blocks[$bname].=$copy;

-

-  /* reset sub-blocks */

-  if ($this->AUTORESET && (!empty($this->sub_blocks[$bname]))) {

-    reset($this->sub_blocks[$bname]);

-    foreach ($this->sub_blocks[$bname] as $k=>$v)

-      $this->reset($v);

-  }

-}

-

-/***[ rparse ]**************************************************************/

-/*

-  returns the parsed text for a block, including all sub-blocks.

-*/

-

-function rparse($bname) {

-  if (!empty($this->sub_blocks[$bname])) {

-    reset($this->sub_blocks[$bname]);

-    foreach ($this->sub_blocks[$bname] as $k=>$v)

-      if (!empty($v))

-        $this->rparse($v);

-  }

-  $this->parse($bname);

-}

-

-/***[ insert_loop ]*********************************************************/

-/*

-  inserts a loop ( call assign & parse )

-*/

-

-function insert_loop($bname,$var,$value="") {

-  $this->assign($var,$value);

-  $this->parse($bname);

-}

-

-/***[ array_loop ]*********************************************************/

-/*

-  parses a block for every set of data in the values array

-*/

-

-function array_loop($bname, $var, &$values)

-{

-  if (gettype($values)=="array")

-  {

-    foreach($values as $v)

-    {

-      $this->assign($var, $v);

-      $this->parse($bname);

-    }

-  }

-}

-

-/***[ text ]****************************************************************/

-/*

-  returns the parsed text for a block

-*/

-

-function text($bname) {

-  return $this->parsed_blocks[isset($bname) ? $bname :$this->mainblock];

-}

-

-/***[ out ]*****************************************************************/

-/*

-  prints the parsed text

-*/

-

-function out ($bname) {

-  $length=strlen($this->text($bname));

-  header("Content-Length: ".$length);

-  echo $this->text($bname);

-}

-

-/***[ reset ]***************************************************************/

-/*

-  resets the parsed text

-*/

-

-function reset ($bname) {

-  $this->parsed_blocks[$bname]="";

-}

-

-/***[ parsed ]**************************************************************/

-/*

-  returns true if block was parsed, false if not

-*/

-

-function parsed ($bname) {

-  return (!empty($this->parsed_blocks[$bname]));

-}

-

-/***[ SetNullString ]*******************************************************/

-/*

-  sets the string to replace in case the var was not assigned

-*/

-

-function SetNullString($str,$varname="") {

-  $this->NULL_STRING[$varname]=$str;

-}

-

-/***[ SetNullBlock ]********************************************************/

-/*

-  sets the string to replace in case the block was not parsed

-*/

-

-function SetNullBlock($str,$bname="") {

-  $this->NULL_BLOCK[$bname]=$str;

-}

-

-/***[ set_autoreset ]*******************************************************/

-/*

-  sets AUTORESET to 1. (default is 1)

-  if set to 1, parse() automatically resets the parsed blocks' sub blocks

-  (for multiple level blocks)

-*/

-

-function set_autoreset() {

-  $this->AUTORESET=1;

-}

-

-/***[ clear_autoreset ]*****************************************************/

-/*

-  sets AUTORESET to 0. (default is 1)

-  if set to 1, parse() automatically resets the parsed blocks' sub blocks

-  (for multiple level blocks)

-*/

-

-function clear_autoreset() {

-  $this->AUTORESET=0;

-}

-

-/***[ scan_globals ]********************************************************/

-/*

-  scans global variables

-*/

-

-function scan_globals() {

-  reset($GLOBALS);

-  foreach ($GLOBALS as $k=>$v)

-    $GLOB[$k]=$v;

-  $this->assign("PHP",$GLOB);  /* access global variables as {PHP.HTTP_HOST} in your template! */

-}

-

-/******

-

-    WARNING

-    PUBLIC FUNCTIONS BELOW THIS LINE DIDN'T GET TESTED

-

-******/

-

-

-/***************************************************************************/

-/***[ private stuff ]*******************************************************/

-/***************************************************************************/

-

-/***[ maketree ]************************************************************/

-/*

-  generates the array containing to-be-parsed stuff:

-  $blocks["main"],$blocks["main.table"],$blocks["main.table.row"], etc.

-  also builds the reverse parse order.

-*/

-

-

-function maketree($con,$parentblock="") {

-  $blocks=array();

-  $con2=explode($this->block_start_delim,$con);

-  if (!empty($parentblock)) {

-    $block_names=explode(".",$parentblock);

-    $level=sizeof($block_names);

-  } else {

-    $block_names=array();

-    $level=0;

-  }

-  foreach ($con2 as $k=>$v) {

-    $patt="($this->block_start_word|$this->block_end_word)\s*(\w+)\s*$this->block_end_delim(.*)";

-    if (preg_match_all("/$patt/ims",$v,$res,PREG_SET_ORDER)) {

-      // $res[0][1] = BEGIN or END

-      // $res[0][2] = block name

-      // $res[0][3] = kinda content

-      if ($res[0][1]==$this->block_start_word) {

-        $parent_name=implode(".",$block_names);

-        $block_names[++$level]=$res[0][2];              /* add one level - array("main","table","row")*/

-        $cur_block_name=implode(".",$block_names);  /* make block name (main.table.row) */

-        $this->block_parse_order[]=$cur_block_name;  /* build block parsing order (reverse) */

-        if (empty($blocks[$cur_block_name])) $blocks[$cur_block_name] = null; // eliminates incremental assign error, when using E_ALL error reporting

-        $blocks[$cur_block_name].=$res[0][3];          /* add contents */

-        $blocks[$parent_name].="{_BLOCK_.$cur_block_name}";  /* add {_BLOCK_.blockname} string to parent block */

-        $this->sub_blocks[$parent_name][]=$cur_block_name;    /* store sub block names for autoresetting and recursive parsing */

-        $this->sub_blocks[$cur_block_name][]="";    /* store sub block names for autoresetting */

-      } else if ($res[0][1]==$this->block_end_word) {

-        unset($block_names[$level--]);

-        $parent_name=implode(".",$block_names);

-        $blocks[$parent_name].=$res[0][3];  /* add rest of block to parent block */

-      }

-    } else { /* no block delimiters found */

-      if ($k)

-        $blocks[implode(".",$block_names)].=$this->block_start_delim;

-      if (empty($blocks[implode(".",$block_names)])) $blocks[implode(".",$block_names)] = null; // eliminates incremental assign error, when using E_ALL error reporting

-      $blocks[implode(".",$block_names)].=$v;

-    }

-  }

-  return $blocks;

-}

-

-/***[ store_filevar_parents ]***********************************************/

-/*

-  store container block's name for file variables

-*/

-

-function store_filevar_parents($blocks){

-  $parents=array();

-  foreach ($blocks as $bname=>$con) {

-    preg_match_all($this->filevar_delim,$con,$res);

-    foreach ($res[1] as $k=>$v)

-      $parents[$v][]=$bname;

-  }

-  return $parents;

-}

-

-/***[ error stuff ]*********************************************************/

-/*

-  sets and gets error

-*/

-

-function get_error()  {

-  return ($this->ERROR=="")?0:$this->ERROR;

-}

-

-

-function set_error($str)  {

-  $this->ERROR="<strong>[XTemplate]</strong>&nbsp;<i>".$str."</i>";

-  trigger_error($this->get_error());

-}

-

-/***[ getfile ]*************************************************************/

-/*

-  returns the contents of a file

-*/

-

-function getfile($file) {

-  if (!isset($file)) {

-    $this->set_error("!isset file name!");

-    return "";

-  }

-

- // check if filename is mapped to other filename

-  if (isset($this->FILES))

-  {

-    if (isset($this->FILES[$file]))

-      $file = $this->FILES[$file];

-  }

-  // prepend template dir

-  if (!empty($this->tpldir))

-    $file = $this->tpldir."/".$file;

-

-  if (isset($this->filecache[$file]))

-    $file_text=$this->filecache[$file];

-  else {

-    if (is_file($file)) {

-      if (!($fh=fopen($file,"r"))) {

-        $this->set_error("Cannot open file: $file");

-        return "";

-      }

-

-      $file_text=fread($fh,filesize($file));

-      fclose($fh);

-    } else {

-      $this->set_error("[$file] does not exist");

-      $file_text="<strong>__XTemplate fatal error: file [$file] does not exist__</strong>";

-    }

-    $this->filecache[$file]=$file_text;

-  }

-  return $file_text;

-}

-

-/***[ r_getfile ]***********************************************************/

-/*

-  recursively gets the content of a file with {FILE "filename.tpl"} directives

-*/

-

-

-function r_getfile($file) {

-  $text=$this->getfile($file);

-  while (preg_match($this->file_delim,$text,$res)) {

-    $text2=$this->getfile($res[1]);

-    $text=preg_replace("'".preg_quote($res[0])."'",$text2,$text);

-  }

-

-  return $text;

-}

-

-

-} /* end of XTemplate class. */

-?>

+<?php
+
+class XTemplate {
+
+/*
+  xtemplate class 0.3pre
+  html generation with templates - fast & easy
+  copyright (c) 2000-2001 Barnabas Debreceni [cranx@users.sourceforge.net]
+
+  contributors:
+  Ivar Smolin <okul@linux.ee> (14-march-2001)
+    - made some code optimizations
+  Bert Jandehoop <bert.jandehoop@users.info.wau.nl> (26-june-2001)
+    - new feature to substitute template files by other templates
+    - new method array_loop()
+
+  !!! {FILE {VAR}} file variable interpolation may still be buggy !!!
+
+  latest stable & CVS versions always available @
+  http://sourceforge.net/projects/xtpl/
+
+  This program is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Lesser General Public License
+  version 2.1 as published by the Free Software Foundation.
+
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU Lesser General Public License for more details at
+  http://www.gnu.org/copyleft/lgpl.html
+
+  You should have received a copy of the GNU General Public License
+  along with this program; if not, write to the Free Software
+  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+
+  $Id$
+
+*/
+
+/***[ variables ]***********************************************************/
+
+var $filecontents="";               /* raw contents of template file */
+var $blocks=array();                /* unparsed blocks */
+var $parsed_blocks=array();         /* parsed blocks */
+var $preparsed_blocks=array();      /* preparsed blocks, for file includes */
+var $block_parse_order=array();     /* block parsing order for recursive parsing (sometimes reverse:) */
+var $sub_blocks=array();            /* store sub-block names for fast resetting */
+var $VARS=array();                  /* variables array */
+var $FILEVARS=array();              /* file variables array */
+var $filevar_parent=array();        /* filevars' parent block */
+var $filecache=array();             /* file caching */
+
+var $tpldir="";                     /* location of template files */
+var $FILES=null;                    /* file names lookup table */
+
+var $file_delim="/\{FILE\s*\"([^\"]+)\"\s*\}/m";  /* regexp for file includes */
+var $filevar_delim="/\{FILE\s*\{([A-Za-z0-9\._]+?)\}\s*\}/m";  /* regexp for file includes */
+var $filevar_delim_nl="/^\s*\{FILE\s*\{([A-Za-z0-9\._]+?)\}\s*\}\s*\n/m";  /* regexp for file includes w/ newlines */
+var $block_start_delim="<!-- ";     /* block start delimiter */
+var $block_end_delim="-->";         /* block end delimiter */
+var $block_start_word="BEGIN:";     /* block start word */
+var $block_end_word="END:";         /* block end word */
+
+/* this makes the delimiters look like: <!-- BEGIN: block_name --> if you use my syntax. */
+
+var $NULL_STRING=array(""=>"");     /* null string for unassigned vars */
+var $NULL_BLOCK=array(""=>"");      /* null string for unassigned blocks */
+var $mainblock="main";
+var $ERROR="";
+var $AUTORESET=1;                    /* auto-reset sub blocks */
+
+/***[ constructor ]*********************************************************/
+
+
+function XTemplate ($file,$tpldir="",$files=null,$mainblock="main") {
+  $this->tpldir = $tpldir;
+  if (gettype($files)=="array")
+    $this->FILES = $files;
+  $this->mainblock=$mainblock;
+  $this->filecontents=$this->r_getfile($file);  /* read in template file */
+  $this->blocks=$this->maketree($this->filecontents,"");  /* preprocess some stuff */
+  $this->filevar_parent=$this->store_filevar_parents($this->blocks);
+  $this->scan_globals();
+}
+
+
+/***************************************************************************/
+/***[ public stuff ]********************************************************/
+/***************************************************************************/
+
+/***[ assign ]**************************************************************/
+/*
+  assign a variable
+*/
+
+function assign ($name,$val="") {
+  if (gettype($name)=="array")
+    foreach ($name as $k=>$v)
+      $this->VARS[$k]=$v;
+  else
+    $this->VARS[$name]=$val;
+}
+
+/***[ assign_file ]*********************************************************/
+/*
+  assign a file variable
+*/
+
+function assign_file ($name,$val="") {
+  if (gettype($name)=="array")
+    foreach ($name as $k=>$v)
+      $this->assign_file_($k,$v);
+  else
+    $this->assign_file_($name,$val);
+}
+
+function assign_file_ ($name,$val) {
+  if (isset($this->filevar_parent[$name])) {
+    if ($val!="") {
+      $val=$this->r_getfile($val);
+      foreach($this->filevar_parent[$name] as $parent) {
+        if (isset($this->preparsed_blocks[$parent]) and !isset($this->FILEVARS[$name]))
+          $copy=$this->preparsed_blocks[$parent];
+        else if (isset($this->blocks[$parent]))
+          $copy=$this->blocks[$parent];
+        preg_match_all($this->filevar_delim,$copy,$res,PREG_SET_ORDER);
+        foreach ($res as $v) {
+          $copy=preg_replace("/".preg_quote($v[0])."/","$val",$copy);
+          $this->preparsed_blocks=array_merge($this->preparsed_blocks,$this->maketree($copy,$parent));
+          $this->filevar_parent=array_merge($this->filevar_parent,$this->store_filevar_parents($this->preparsed_blocks));
+        }
+      }
+    }
+  }
+  $this->FILEVARS[$name]=$val;
+}
+
+/***[ parse ]***************************************************************/
+/*
+  parse a block
+*/
+
+function parse ($bname) {
+
+  if (isset($this->preparsed_blocks[$bname])) {
+    $copy=$this->preparsed_blocks[$bname];
+  }
+  else if (isset($this->blocks[$bname]))
+    $copy=$this->blocks[$bname];
+  else
+    $this->set_error ("parse: blockname [$bname] does not exist");
+
+  /* from there we should have no more {FILE } directives */
+  $copy=preg_replace($this->filevar_delim_nl,"",$copy);
+
+  /* find & replace variables+blocks */
+  preg_match_all("/\{([A-Za-z0-9\._]+?)}/",$copy,$var_array);
+  $var_array=$var_array[1];
+  foreach ($var_array as $k=>$v) {
+    $sub=explode(".",$v);
+    if ($sub[0]=="_BLOCK_") {
+      unset($sub[0]);
+      $bname2=implode(".",$sub);
+      $var=$this->parsed_blocks[$bname2];
+      $nul=(!isset($this->NULL_BLOCK[$bname2])) ? $this->NULL_BLOCK[""] : $this->NULL_BLOCK[$bname2];
+      if ($var=="") {
+        if ($nul=="") {
+          $copy=preg_replace("/^\s*\{".$v."\}\s*\n*/m","",$copy);
+        } else {
+          $copy=preg_replace("/\{".$v."\}/","$nul",$copy);
+        }
+      } else {
+        $var=trim($var);
+        $copy=str_replace("\{$v}","$var",$copy);
+      }
+    } else {
+      $var=$this->VARS;
+      foreach ($sub as $v1)
+        $var=$var[$v1];
+      $nul=(!isset($this->NULL_STRING[$v])) ? ($this->NULL_STRING[""]) : ($this->NULL_STRING[$v]);
+      $var=(!isset($var))?$nul:$var;
+      if ($var=="")
+        $copy=preg_replace("/^\s*\{".$v."\}\s*\n/m","",$copy);
+      $copy=str_replace("\{$v}","$var",$copy);
+    }
+  }
+  if (empty($this->parsed_blocks[$bname])) $this->parsed_blocks[$bname] = null; // eliminates incremental assign error, when using E_ALL error reporting
+  $this->parsed_blocks[$bname].=$copy;
+
+  /* reset sub-blocks */
+  if ($this->AUTORESET && (!empty($this->sub_blocks[$bname]))) {
+    reset($this->sub_blocks[$bname]);
+    foreach ($this->sub_blocks[$bname] as $k=>$v)
+      $this->reset($v);
+  }
+}
+
+/***[ rparse ]**************************************************************/
+/*
+  returns the parsed text for a block, including all sub-blocks.
+*/
+
+function rparse($bname) {
+  if (!empty($this->sub_blocks[$bname])) {
+    reset($this->sub_blocks[$bname]);
+    foreach ($this->sub_blocks[$bname] as $k=>$v)
+      if (!empty($v))
+        $this->rparse($v);
+  }
+  $this->parse($bname);
+}
+
+/***[ insert_loop ]*********************************************************/
+/*
+  inserts a loop ( call assign & parse )
+*/
+
+function insert_loop($bname,$var,$value="") {
+  $this->assign($var,$value);
+  $this->parse($bname);
+}
+
+/***[ array_loop ]*********************************************************/
+/*
+  parses a block for every set of data in the values array
+*/
+
+function array_loop($bname, $var, &$values)
+{
+  if (gettype($values)=="array")
+  {
+    foreach($values as $v)
+    {
+      $this->assign($var, $v);
+      $this->parse($bname);
+    }
+  }
+}
+
+/***[ text ]****************************************************************/
+/*
+  returns the parsed text for a block
+*/
+
+function text($bname) {
+  return $this->parsed_blocks[isset($bname) ? $bname :$this->mainblock];
+}
+
+/***[ out ]*****************************************************************/
+/*
+  prints the parsed text
+*/
+
+function out ($bname) {
+  $length=strlen($this->text($bname));
+  header("Content-Length: ".$length);
+  echo $this->text($bname);
+}
+
+/***[ reset ]***************************************************************/
+/*
+  resets the parsed text
+*/
+
+function reset ($bname) {
+  $this->parsed_blocks[$bname]="";
+}
+
+/***[ parsed ]**************************************************************/
+/*
+  returns true if block was parsed, false if not
+*/
+
+function parsed ($bname) {
+  return (!empty($this->parsed_blocks[$bname]));
+}
+
+/***[ SetNullString ]*******************************************************/
+/*
+  sets the string to replace in case the var was not assigned
+*/
+
+function SetNullString($str,$varname="") {
+  $this->NULL_STRING[$varname]=$str;
+}
+
+/***[ SetNullBlock ]********************************************************/
+/*
+  sets the string to replace in case the block was not parsed
+*/
+
+function SetNullBlock($str,$bname="") {
+  $this->NULL_BLOCK[$bname]=$str;
+}
+
+/***[ set_autoreset ]*******************************************************/
+/*
+  sets AUTORESET to 1. (default is 1)
+  if set to 1, parse() automatically resets the parsed blocks' sub blocks
+  (for multiple level blocks)
+*/
+
+function set_autoreset() {
+  $this->AUTORESET=1;
+}
+
+/***[ clear_autoreset ]*****************************************************/
+/*
+  sets AUTORESET to 0. (default is 1)
+  if set to 1, parse() automatically resets the parsed blocks' sub blocks
+  (for multiple level blocks)
+*/
+
+function clear_autoreset() {
+  $this->AUTORESET=0;
+}
+
+/***[ scan_globals ]********************************************************/
+/*
+  scans global variables
+*/
+
+function scan_globals() {
+  reset($GLOBALS);
+  foreach ($GLOBALS as $k=>$v)
+    $GLOB[$k]=$v;
+  $this->assign("PHP",$GLOB);  /* access global variables as {PHP.HTTP_HOST} in your template! */
+}
+
+/******
+
+    WARNING
+    PUBLIC FUNCTIONS BELOW THIS LINE DIDN'T GET TESTED
+
+******/
+
+
+/***************************************************************************/
+/***[ private stuff ]*******************************************************/
+/***************************************************************************/
+
+/***[ maketree ]************************************************************/
+/*
+  generates the array containing to-be-parsed stuff:
+  $blocks["main"],$blocks["main.table"],$blocks["main.table.row"], etc.
+  also builds the reverse parse order.
+*/
+
+
+function maketree($con,$parentblock="") {
+  $blocks=array();
+  $con2=explode($this->block_start_delim,$con);
+  if (!empty($parentblock)) {
+    $block_names=explode(".",$parentblock);
+    $level=sizeof($block_names);
+  } else {
+    $block_names=array();
+    $level=0;
+  }
+  foreach ($con2 as $k=>$v) {
+    $patt="($this->block_start_word|$this->block_end_word)\s*(\w+)\s*$this->block_end_delim(.*)";
+    if (preg_match_all("/$patt/ims",$v,$res,PREG_SET_ORDER)) {
+      // $res[0][1] = BEGIN or END
+      // $res[0][2] = block name
+      // $res[0][3] = kinda content
+      if ($res[0][1]==$this->block_start_word) {
+        $parent_name=implode(".",$block_names);
+        $block_names[++$level]=$res[0][2];              /* add one level - array("main","table","row")*/
+        $cur_block_name=implode(".",$block_names);  /* make block name (main.table.row) */
+        $this->block_parse_order[]=$cur_block_name;  /* build block parsing order (reverse) */
+        if (empty($blocks[$cur_block_name])) $blocks[$cur_block_name] = null; // eliminates incremental assign error, when using E_ALL error reporting
+        $blocks[$cur_block_name].=$res[0][3];          /* add contents */
+        $blocks[$parent_name].="{_BLOCK_.$cur_block_name}";  /* add {_BLOCK_.blockname} string to parent block */
+        $this->sub_blocks[$parent_name][]=$cur_block_name;    /* store sub block names for autoresetting and recursive parsing */
+        $this->sub_blocks[$cur_block_name][]="";    /* store sub block names for autoresetting */
+      } else if ($res[0][1]==$this->block_end_word) {
+        unset($block_names[$level--]);
+        $parent_name=implode(".",$block_names);
+        $blocks[$parent_name].=$res[0][3];  /* add rest of block to parent block */
+      }
+    } else { /* no block delimiters found */
+      if ($k)
+        $blocks[implode(".",$block_names)].=$this->block_start_delim;
+      if (empty($blocks[implode(".",$block_names)])) $blocks[implode(".",$block_names)] = null; // eliminates incremental assign error, when using E_ALL error reporting
+      $blocks[implode(".",$block_names)].=$v;
+    }
+  }
+  return $blocks;
+}
+
+/***[ store_filevar_parents ]***********************************************/
+/*
+  store container block's name for file variables
+*/
+
+function store_filevar_parents($blocks){
+  $parents=array();
+  foreach ($blocks as $bname=>$con) {
+    preg_match_all($this->filevar_delim,$con,$res);
+    foreach ($res[1] as $k=>$v)
+      $parents[$v][]=$bname;
+  }
+  return $parents;
+}
+
+/***[ error stuff ]*********************************************************/
+/*
+  sets and gets error
+*/
+
+function get_error()  {
+  return ($this->ERROR=="")?0:$this->ERROR;
+}
+
+
+function set_error($str)  {
+  $this->ERROR="<strong>[XTemplate]</strong>&nbsp;<i>".$str."</i>";
+  trigger_error($this->get_error());
+}
+
+/***[ getfile ]*************************************************************/
+/*
+  returns the contents of a file
+*/
+
+function getfile($file) {
+  if (!isset($file)) {
+    $this->set_error("!isset file name!");
+    return "";
+  }
+
+ // check if filename is mapped to other filename
+  if (isset($this->FILES))
+  {
+    if (isset($this->FILES[$file]))
+      $file = $this->FILES[$file];
+  }
+  // prepend template dir
+  if (!empty($this->tpldir))
+    $file = $this->tpldir."/".$file;
+
+  if (isset($this->filecache[$file]))
+    $file_text=$this->filecache[$file];
+  else {
+    if (is_file($file)) {
+      if (!($fh=fopen($file,"r"))) {
+        $this->set_error("Cannot open file: $file");
+        return "";
+      }
+
+      $file_text=fread($fh,filesize($file));
+      fclose($fh);
+    } else {
+      $this->set_error("[$file] does not exist");
+      $file_text="<strong>__XTemplate fatal error: file [$file] does not exist__</strong>";
+    }
+    $this->filecache[$file]=$file_text;
+  }
+  return $file_text;
+}
+
+/***[ r_getfile ]***********************************************************/
+/*
+  recursively gets the content of a file with {FILE "filename.tpl"} directives
+*/
+
+
+function r_getfile($file) {
+  $text=$this->getfile($file);
+  while (preg_match($this->file_delim,$text,$res)) {
+    $text2=$this->getfile($res[1]);
+    $text=preg_replace("'".preg_quote($res[0])."'",$text2,$text);
+  }
+
+  return $text;
+}
+
+
+} /* end of XTemplate class. */
+?>