diff --git a/phpgwapi/inc/class.Template_experimental.inc.php b/phpgwapi/inc/class.Template_experimental.inc.php
new file mode 100644
index 0000000000..3879811d39
--- /dev/null
+++ b/phpgwapi/inc/class.Template_experimental.inc.php
@@ -0,0 +1,487 @@
+ 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 = '';
+
+ /* Used to cut down performance problems with so many file_exists */
+ var $found_files;
+ /***************************************************************************/
+ /* 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 = "/(.*)\n\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*
\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*
\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);
+ reset($this->varkeys);
+ while (list($k, $v) = each($this->varkeys))
+ {
+ $str = str_replace($v, $this->varvals[$k], $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;
+ }
+
+ /* This is short for finish parse */
+ function fp($target, $handle, $append = False)
+ {
+ return $this->finish($this->parse($target, $handle, $append));
+ }
+
+ /* This is a short cut for print finish parse */
+ function pfp($target, $handle, $append = False)
+ {
+ echo $this->finish($this->parse($target, $handle, $append));
+ }
+
+ /* 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}]+)}/', "", $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,$root='',$time=1)
+ {
+ if($root=='')
+ {
+ $root=$this->root;
+ }
+ $default_root = str_replace($GLOBALS['phpgw_info']['server']['template_set'],'default',$root);
+
+ if (substr($filename, 0, 1) != '/')
+ {
+ $new_filename = $root.'/'.$filename;
+ }
+ else
+ {
+ $new_filename = $filename;
+ }
+ $default_filename = str_replace($root,$default_root,$new_filename);
+
+ $app = str_replace('/templates/'.$GLOBALS['phpgw_info']['server']['template_set'],'',$root);
+ $app = str_replace('/templates/default','',$app);
+ $app = str_replace(PHPGW_SERVER_ROOT.'/','',$app);
+
+ if (!is_array($this->found_files[$app]))
+ {
+ if (@is_dir($default_root))
+ {
+ $d = dir($default_root);
+ while (false !== ($entry = $d->read()))
+ {
+ if ($entry != '.' && $entry != '..')
+ {
+ $this->found_files[$app][$entry] = $default_filename;
+ }
+ }
+ $d->close();
+ }
+
+ if (@is_dir($root))
+ {
+ $d = dir($root);
+ while (false !== ($entry = $d->read()))
+ {
+ if ($entry != '.' && $entry != '..')
+ {
+ $this->found_files[$app][$entry] = $new_filename;
+ }
+ }
+ $d->close();
+ }
+ }
+
+//echo '
'; +//print_r($this->found_files); +//echo ''; + + if(isset($this->found_files[$app][$filename])) + { + return $this->found_files[$app][$filename]; + } + else + { + $this->halt("filename: file $new_filename does not exist."); + } + } + + /* private: varname($varname) + * varname: name of a replacement variable to be protected. + */ + function varname($varname) + { + return '{'.$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') + { + echo('Halted.'); + } + + $GLOBALS['phpgw']->common->phpgw_exit(True); + } + + /* public, override: haltmsg($msg) + * msg: error message to show. + */ + function haltmsg($msg) + { + printf("Template Error: %s