".htmlentities($popup_text)."

 tags too
    // TODO: Is this a problem if user insert 
 but after parsing
    //     will get 
 (lowercase)?? :)
    preg_match_all("/(<[Pp][Rr][Ee]>)((.|\n)*?)(<\/[Pp][Rr][Ee]>)/", $data, $preparse);
    $idx = 0;

    foreach (array_unique($preparse[2])as $pp) {
  $key = md5($this->genPass());

  $aux["key"] = $key;
  $aux["data"] = $pp;
  $preparsed[] = $aux;
  $data = str_replace($preparse[1][$idx] . $pp . $preparse[4][$idx], $key, $data);
  $idx = $idx + 1;
    }

    // Find all sections delimited by ~np~ ... ~/np~
    $new_data = '';
    $nopa = '';
    $state = true;
    $skip = false;

    $dlength=strlen($data);
    for ($i = 0; $i < $dlength; $i++) {
  $tag5 = substr($data, $i, 5);

  $tag4 = substr($tag5, 0, 4);
  $tag1 = substr($tag4, 0, 1);

  // Beginning of a noparse section found
  if ($state && $tag4 == '~np~') {
      $i += 3;

      $state = false;
      $skip = true;
  }

  // Termination of a noparse section found
  if (!$state && ($tag5 == '~/np~')) {
      $state = true;

      $i += 4;
      $skip = true;
      $key = md5($this->genPass());
      $new_data .= $key;
      $aux["key"] = $key;
      $aux["data"] = $nopa;
      $noparsed[] = $aux;
      $nopa = '';
  }

  if (!$skip) { // This character is not part of a noparse tag
      if ($state) { // This character is not within a noparse section
    $new_data .= $tag1;
      } else { // This character is within a noparse section
    $nopa .= $tag1;
      }
  } else { // Tag is now skipped over
      $skip = false;
  }
    }

    $data = $new_data;
}

// This recursive function handles pre- and no-parse sections and plugins
function parse_first(&$data, &$preparsed, &$noparsed) {
    global $dbTiki;
    // Handle pre- and no-parse sections
    $this->parse_pp_np($data, $preparsed, $noparsed);

    // Find the plugins
    // note: [1] is plugin name, [2] is plugin arguments
    preg_match_all("/\{([A-Z]+)\(([^\)]*)\)( *\/ *)?\}/", $data, $plugins);

    // if true, replace only CODE plugin, if false, replace all other plugins
    $code_first = true;

    // Process plugins in reverse order, so that nested plugins are handled
    // from the inside out.
    $i = count($plugins[0]) - 1;

    while ($i >= 0) {
  $plugin_start = $plugins[0][$i];

  $plugin = $plugins[1][$i];
  $plugin_start_base = '{' . $plugins[1][$i] . '(';
  $pos = strpos($data, $plugin_start); // where plugin starts
  // process "short" plugins here: {PLUGIN(par1=>val1)/} - melmut
  if (preg_match("/\/ *\}$/",$plugin_start))
  {
   $plugin_end='';
   $pos_end=$pos+strlen($plugin_start);
  }
  else
  {
   $plugin_end = '{' . $plugin . '}';
  $pos_end = strpos($data, $plugin_end, $pos); // where plugin data ends
  }


  if (
    // when in CODE parsing mode, replace only CODE plugins
    ((($code_first) && ($plugin == 'CODE')) ||
     // when NOT in CODE parsing mode, replace all other plugins
     ((!$code_first) && ($plugin <> 'CODE'))) && ($pos_end > $pos)) {
      // Extract the plugin data
      $plugin_data_len = $pos_end - $pos - strlen($plugins[0][$i]);
      $plugin_data = substr($data, $pos + strlen($plugin_start), $plugin_data_len);

      // Construct plugin file pathname
      $php_name = 'lib/wiki-plugins/wikiplugin_';
      $php_name .= strtolower($plugins[1][$i]). '.php';

      // Construct plugin function name
      $func_name = 'wikiplugin_' . strtolower($plugins[1][$i]);

      // Construct argument list array
      $params = split(',', trim($plugins[2][$i]));
      $arguments = array();

      foreach ($params as $param) {
    // the following str_replace line is to decode the > char when html is turned off
    // perhaps the plugin syntax should be changed in 1.8 not to use any html special chars
    $decoded_param = str_replace('>', '>', $param);
    $parts = split( '=>?', $decoded_param );

    if (isset($parts[0]) && isset($parts[1])) {
        $name = trim($parts[0]);

        $arguments[$name] = trim($parts[1]);
    }
      }

      if (file_exists($php_name)) {
    include_once ($php_name);

    $ret = $func_name($plugin_data, $arguments);

    // Handle pre- & no-parse sections and plugins inserted by this plugin
    $this->parse_first($ret, $preparsed, $noparsed);

    // Replace plugin section with its output in data
    $data = substr_replace($data, $ret, $pos, $pos_end - $pos + strlen($plugin_end));
      }
  }

  $i--;

  // if we are in CODE parsing mode and list is done, switch to 'parse other plugins' mode and start all over
  if (($code_first) && ($i < 0)) {
      $i = count($plugins[0]) - 1;

      $code_first = false;
  }
    } // while
}

// Replace hotwords in given line
function replace_hotwords($line, $words) {
    global $feature_hotwords;
    global $feature_hotwords_nw;
    $hotw_nw = ($feature_hotwords_nw == 'y') ? "target='_blank'" : '';

    // Replace Hotwords
    if ($feature_hotwords == 'y') {
  foreach ($words as $word => $url) {
      // \b is a word boundary, \s is a space char
      $line = preg_replace("/^$word(\b)/i","$word$1",$line);
      $line = preg_replace("/(=(\"|')[^\"']*)$word(\b)([^\"']*(\"|'))/i","$1 :::::$word$3$4",$line);
			$line = preg_replace("/\s$word(\b)/i"," $word$1",$line);
      $line = preg_replace("/:::::$word(\b)/i"," $word$1",$line);
  }
    }
    return $line;
}

//Updates a dynamic variable found in some object
/*Shared*/ function update_dynamic_variable($name,$value) {
  $query = "delete from `tiki_dynamic_variables` where `name`=?";
  $this->query($query,array($name),-1,-1,false);
  $query = "insert into `tiki_dynamic_variables`(`name`,`data`) values(?,?)";
  $this->query($query,Array($name,$value));
  return true;
}


// split string into a list of
function split_tag($string) {
     $_splts = split('"', $string);
     $inside = FALSE;
     $cleanup= TRUE;  // @todo: make this an option for other code
     $parts = array();
     $index=0;

     foreach ($_splts as $i)  {
   if ($cleanup) {
       $i = str_replace('}', '', $i);
       $i = str_replace('{', '', $i);
       $i = str_replace('\'', '', $i);
   }

   if ($inside) {  // inside "foo bar" - append
       if ($index>0) {
     $parts[$index-1] .= $i;
       } else {    // else: first element (should never happen)
     $parts[] = $i;
       }
   } else {        //
       $_spl = split(" ", $i);
       foreach($_spl as $j) {
     $parts[$index++] = $j;
       }
   }
   $inside = ! $inside;
     }
     return $parts;
}

function split_assoc_array($parts, $assoc) {
    //$assoc = array();
    foreach($parts as $part) {
  if ( (strpos($part, "=") == FALSE) ) {
      $assoc[$part] = '';
  } else {
      list($key, $val) = split("=", $part);
      $assoc[$key] = $val;
  }
    }
    return $assoc;
}

/**
 * close_blocks - Close out open paragraph, lists, and div's
 *
 * During parse_data, information is kept on blocks of text (paragraphs, lists, divs)
 * that need to be closed out. This function does that, rather than duplicating the
 * code inline.
 *
 * @param	$data			- Output data
 * @param	$in_paragraph		- TRUE if there is an open paragraph
 * @param	$listbeg		- array of open list terminators
 * @param	$divdepth		- array indicating how many div's are open
 * @param	$close_paragraph	- TRUE if open paragraph should be closed.
 * @param	$close_lists		- TRUE if open lists should be closed.
 * @param	$close_divs		- TRUE if open div's should be closed.
*/
/* private */
function close_blocks(&$data,
		      &$in_paragraph,
		      &$listbeg,
		      &$divdepth,
		      $close_paragraph,
		      $close_lists,
		      $close_divs)
{
    $closed = 0;	// Set to non-zero if something has been closed out
    // Close the paragraph if inside one.
    if ($close_paragraph && $in_paragraph) {
        $data .= "
";
	$in_paragraph = 0;
	$closed++;
    }
    // Close open lists
    if ($close_lists) {
        while (count($listbeg)) {
	    $data .= array_shift($listbeg);
	    $closed++;
	}
    }

    // Close open divs
    if ($close_divs) {
        for ($i = 1; $i <= count($divdepth); $i++) {
	    $data .= '';
	    $closed++;
	}
    }

    if ($closed) {
        $data .= "\n";
    }

    return $closed;
}

//PARSEDATA
function parse_data($data) {
    global $page_regex;

    global $slidemode;
    global $feature_hotwords;
    global $cachepages;
    global $ownurl_father;
    global $feature_drawings;
    global $tiki_p_admin_drawings;
    global $tiki_p_edit_drawings;
    global $tiki_p_edit_dynvar;
    global $feature_wiki_pictures;
    global $tiki_p_upload_picture;
    global $feature_wiki_plurals;
    global $feature_wiki_tables;
    global $page;
    global $page_ref_id;
    global $rsslib;
    global $dbTiki;
    global $structlib;
    global $user;
    global $tikidomain;
    global $feature_wikiwords;
    global $feature_wiki_paragraph_formatting;
    global $feature_wikiwords_usedash;

    // Process pre_handlers here
    if (is_array($this->pre_handlers)) {
    foreach ($this->pre_handlers as $handler) {
  $data = $handler($data);
    }
    }

    // Handle pre- and no-parse sections and plugins
    $preparsed = array();
    $noparsed = array();
    $this->parse_first($data, $preparsed, $noparsed);

    // Extract [link] sections (to be re-inserted later)
    $noparsedlinks = array();

    // This section matches [...].
    // Added handling for [[foo] sections.  -rlpowell
    preg_match_all("/(?genPass());

  $aux["key"] = $key;
  $aux["data"] = $np;
  $noparsedlinks[] = $aux;
  $data = str_replace("$np", $key, $data);
    }

    // Replace special characters
    //done after url catching because otherwise urls of dyn. sites will be modified
    $this->parse_htmlchar($data);

    // Now replace a TOC
    preg_match_all("/\{toc\s?(order=(desc|asc))?\s?(showdesc=(0|1))?\s?(shownum=(0|1))?\s?\}/i", $data, $tocs);

    //If there are instances of {toc} on this page
    if (count($tocs[0]) > 0) {
      $order = 'asc';
      $showdesc = false;
      $shownum = false;
      if ($tocs[2][0] == 'desc') {
        $order = 'desc';
      }
      if ($tocs[4][0] == 1) {
        $showdesc = true;
      }
      if ($tocs[6][0] == 1) {
        $shownum = true;
      }
      include_once ("lib/structures/structlib.php");
      //And we are currently viewing a structure
      $page_info = $structlib->s_get_page_info($page_ref_id);
      if (isset($page_info)) {
        $html = $structlib->get_toc($page_ref_id,$order,$showdesc,$shownum);

        // Loop over all the case-specific versions of {toc} used
        // (if the user is consistent, this is a loop of count 1)
        for ($i = 0; $i < count($tocs[0]); $i++) {
          $data = str_replace($tocs[0], $html, $data);
        }
      }
      //Dont display the {toc} string for non structure pages
      else {
        for ($i = 0; $i < count($tocs[0]); $i++) {
          $data = str_replace($tocs[0], '', $data);
        }
      }
    }

    // Now search for images uploaded by users
    if ($feature_wiki_pictures == 'y') {
  preg_match_all("/\{picture file=([^\}]+)\}/", $data, $pics);

  for ($i = 0; $i < count($pics[0]); $i++) {
      // Check if the image exists
      $name = $pics[1][$i];

      if (file_exists($name)) {
    // Replace by the img tag to show the image
    $repl = "";
      } else {
    $repl = tra('picture not found');
      }

      // Replace by $repl
      $data = str_replace($pics[0][$i], $repl, $data);
  }
    }

    //$data = strip_tags($data);
    // BiDi markers
    $bidiCount = 0;
    $bidiCount = preg_match_all("/(\{l2r\})/", $data, $pages);
    $bidiCount += preg_match_all("/(\{r2l\})/", $data, $pages);

    $data = preg_replace("/\{l2r\}/", "
", $data);
    $data = preg_replace("/\{r2l\}/", "
", $data);
    $data = preg_replace("/\{lm\}/", "‎", $data);
    $data = preg_replace("/\{rm\}/", "‏", $data);
    // smileys
    $data = $this->parse_smileys($data);

    // Replace links to slideshows
    if ($feature_drawings == 'y') {
  // Replace drawings
  // Replace rss modules
  $pars = parse_url($_SERVER["REQUEST_URI"]);

  $pars_parts = split('/', $pars["path"]);
  $pars = array();

  for ($i = 0; $i < count($pars_parts) - 1; $i++) {
      $pars[] = $pars_parts[$i];
  }

  $pars = join('/', $pars);

  if (preg_match_all("/\{draw +name=([A-Za-z_\-0-9]+) *\}/", $data, $draws)) {
      //$this->invalidate_cache($page);
      for ($i = 0; $i < count($draws[0]); $i++) {
    $id = $draws[1][$i];

    $repl = '';
    $name = $id . '.gif';

    if (file_exists("img/wiki/$tikidomain$name")) {
        if ($tiki_p_edit_drawings == 'y' || $tiki_p_admin_drawings == 'y') {
      $repl = "";
        } else {
      $repl = "";
        }
    } else {
        if ($tiki_p_edit_drawings == 'y' || $tiki_p_admin_drawings == 'y') {
      $repl = "click here to create draw $id";
        } else {
      $repl = tra('drawing not found');
        }
    }

    $data = str_replace($draws[0][$i], $repl, $data);
      }
  }
    }

    // Replace cookies
    if (preg_match_all("/\{cookie\}/", $data, $rsss)) {
  for ($i = 0; $i < count($rsss[0]); $i++) {
      $cookie = $this->pick_cookie();

      $data = str_replace($rsss[0][$i], $cookie, $data);
  }
    }

    // Replace dynamic variables
    // Dynamic variables are similar to dynamic content but they are editable
    // from the page directly, intended for short data, not long text but text
    // will work too
    //     Now won't match HTML-style '%nn' letter codes.
    if (preg_match_all("/%([^% 0-9][^% 0-9][^% ]*)%/",$data,$dvars)) {
  // remove repeated elements
  $dvars = array_unique($dvars[1]);
  // Now replace each dynamic variable by a pair composed of the
  // variable value and a text field to edit the variable. Each
  foreach($dvars as $dvar) {
    $query = "select `data` from `tiki_dynamic_variables` where `name`=?";
    $result = $this->query($query,Array($dvar));
    if($result->numRows()) {
    $value = $result->fetchRow();
    $value = $value["data"];
      } else {
    //Default value is NULL
    $value = "NaV";
      }
      // Now build 2 divs
      $id = 'dyn_'.$dvar;

      if(isset($tiki_p_edit_dynvar)&& $tiki_p_edit_dynvar=='y') {
    $span1 = "$value";
    $span2 = "";
      } else {
    $span1 = "$value";
    $span2 = '';
      }
      $html = $span1.$span2;
      //It's important to replace only once
      $dvar_preg = preg_quote( $dvar );
      $data = preg_replace("+%$dvar_preg%+",$html,$data,1);
      //Further replacements only with the value
      $data = str_replace("%$dvar%",$value,$data);

  }
  //At the end put an update button
  //

  $data='
'.$data.'
';
    }

    // Replace dynamic content occurrences
    if (preg_match_all("/\{content +id=([0-9]+)\}/", $data, $dcs)) {
  for ($i = 0; $i < count($dcs[0]); $i++) {
      $repl = $this->get_actual_content($dcs[1][$i]);

      $data = str_replace($dcs[0][$i], $repl, $data);
  }
    }

    // Replace Dynamic content with random selection
    if (preg_match_all("/\{rcontent +id=([0-9]+)\}/", $data, $dcs)) {
  for ($i = 0; $i < count($dcs[0]); $i++) {
      $repl = $this->get_random_content($dcs[1][$i]);

      $data = str_replace($dcs[0][$i], $repl, $data);
  }
    }

    // Replace boxes
    $data = preg_replace("/\^([^\^]+)\^/", "
$1
", $data);
    // Replace colors ~~color:text~~
    $data = preg_replace("/\~\~([^\:]+):([^\~]+)\~\~/", "$2", $data);
    // Underlined text
    $data = preg_replace("/===([^\=]+)===/", "$1", $data);
    // Center text
    $data = preg_replace("/::(.+?)::/", "
$1
", $data);

    // New syntax for wiki pages ((name|desc)) Where desc can be anything
    preg_match_all("/\(\(($page_regex)\|(.+?)\)\)/", $data, $pages);

    for ($i = 0; $i < count($pages[1]); $i++) {
  $pattern = $pages[0][$i];

  $pattern = preg_quote($pattern, "/");

  $pattern = "/" . $pattern . "/";

  // Replace links to external wikis
  $repl2 = true;

  if (strstr($pages[1][$i], ':')) {
      $wexs = explode(':', $pages[1][$i]);

      if (count($wexs) == 2) {
    $wkname = $wexs[0];

    if ($this->db->getOne("select count(*) from `tiki_extwiki` where `name`=?",array($wkname)) == 1) {
      $wkurl = $this->db->getOne("select `extwiki`  from `tiki_extwiki` where `name`=?",array($wkname));

        $wkurl = '' . $wexs[1] . '';
        $data = preg_replace($pattern, "$wkurl", $data);
        $repl2 = false;
    }
      }
  }

  if ($repl2) {
      // 24-Jun-2003, by zaufi
      // TODO: future optimize: get page description and modification time at once.

      // text[0] = link description (previous format)
      // text[1] = timeout in seconds (new field)
      // text[2..N] = drop
      $text = explode("|", $pages[5][$i]);

      if ($desc = $this->page_exists_desc($pages[1][$i])) {
		$desc = preg_replace("/([ \n\t\r\,\;]|^)([A-Z][a-z0-9_\-]+[A-Z][a-z0-9_\-]+[A-Za-z0-9\-_]*)($|[ \n\t\r\,\;\.])/s", "$1))$2(($3", $desc);
    $uri_ref = "tiki-index.php?page=" . urlencode($pages[1][$i]);

    $repl = '' . (strlen(trim($text[0])) > 0 ? $text[0] : $pages[1][$i]) . '';

    // Check is timeout expired?
    if (isset($text[1]) && (time() - intval($this->page_exists_modtime($pages[1][$i]))) < intval($text[1]))
        // Append small 'new' image. TODO: possible 'updated' image more suitable...
        $repl .= ' ';
      } else {
    $uri_ref = "tiki-editpage.php?page=" . urlencode($pages[1][$i]);

    $repl = (strlen(trim($text[0])) > 0 ? $text[0] : $pages[1][$i]) . '?';
      }

      $data = preg_replace($pattern, "$repl", $data);
  }
    }

    // New syntax for wiki pages ((name)) Where name can be anything
    preg_match_all("/\(\(($page_regex)\)\)/", $data, $pages);

    foreach (array_unique($pages[1])as $page_parse) {
  $repl2 = true;

  if (strstr($page_parse, ':')) {
      $wexs = explode(':', $page_parse);

      if (count($wexs) == 2) {
    $wkname = $wexs[0];

    if ($this->db->getOne("select count(*) from `tiki_extwiki` where `name`=?",array($wkname)) == 1) {
      $wkurl = $this->db->getOne("select `extwiki`  from `tiki_extwiki` where `name`=?",array($wkname));

        $wkurl = '' . $wexs[1] . '';
        $data = preg_replace("/\(\($page_parse\)\)/", "$wkurl", $data);
        $repl2 = false;
    }
      }
  }

  if ($repl2) {
      if ($desc = $this->page_exists_desc($page_parse)) {
				$desc = preg_replace("/([ \n\t\r\,\;]|^)([A-Z][a-z0-9_\-]+[A-Z][a-z0-9_\-]+[A-Za-z0-9\-_]*)($|[ \n\t\r\,\;\.])/s", "$1))$2(($3", $desc);
    $repl = "$page_parse";
      } else {
    $repl = "$page_parse?";
      }

      $page_parse_pq = preg_quote($page_parse, "/");
      $data = preg_replace("/\(\($page_parse_pq\)\)/", "$repl", $data);
  }
    }

    // Links to internal pages
    // If they are parenthesized then don't treat as links
    // Prevent ))PageName(( from being expanded \"\'
    //[A-Z][a-z0-9_\-]+[A-Z][a-z0-9_\-]+[A-Za-z0-9\-_]*
    if ($feature_wikiwords == 'y') {
  // The first part is now mandatory to prevent [Foo|MyPage] from being converted!
		if ($feature_wikiwords_usedash == 'y') {
  preg_match_all("/([ \n\t\r\,\;]|^)([A-Z][a-z0-9_\-]+[A-Z][a-z0-9_\-]+[A-Za-z0-9\-_]*)($|[ \n\t\r\,\;\.])/", $data, $pages);
		} else {
	preg_match_all("/([ \n\t\r\,\;]|^)([A-Z][a-z0-9]+[A-Z][a-z0-9]+[A-Za-z0-9]*)($|[ \n\t\r\,\;\.])/", $data, $pages);
		}
  $words = $this->get_hotwords();
  foreach (array_unique($pages[2])as $page_parse) {
      if (!array_key_exists($page_parse, $words)) {
    if ($desc = $this->page_exists_desc($page_parse)) {
					$desc = preg_replace("/([ \n\t\r\,\;]|^)([A-Z][a-z0-9_\-]+[A-Z][a-z0-9_\-]+[A-Za-z0-9\-_]*)($|[ \n\t\r\,\;\.])/s", "$1))$2(($3", $desc);
        $repl = '' . $page_parse . '';
				} elseif ($feature_wiki_plurals == 'y' && $this->get_locale() == 'en_US') {
					# Link plural topic names to singular topic names if the plural
					# doesn't exist, and the language is english
        $plural_tmp = $page_parse;
					# Plurals like policy / policies
        $plural_tmp = preg_replace("/ies$/", "y", $plural_tmp);
					# Plurals like address / addresses
        $plural_tmp = preg_replace("/sses$/", "ss", $plural_tmp);
					# Plurals like box / boxes
        $plural_tmp = preg_replace("/([Xx])es$/", "$1", $plural_tmp);
					# Others, excluding ending ss like address(es)
        $plural_tmp = preg_replace("/([A-Za-rt-z])s$/", "$1", $plural_tmp);
        if($desc = $this->page_exists_desc($plural_tmp)) {
						$desc = preg_replace("/([ \n\t\r\,\;]|^)([A-Z][a-z0-9_\-]+[A-Z][a-z0-9_\-]+[A-Za-z0-9\-_]*)($|[ \n\t\r\,\;\.])/s", "$1))$2(($3", $desc);
						// $repl = "$page_parse";
      $repl = "$page_parse";
        } else {
      $repl = "$page_parse?";
        }
    } else {
        $repl = "$page_parse?";
    }

    $data = preg_replace("/([ \n\t\r\,\;]|^)$page_parse($|[ \n\t\r\,\;\.])/", "$1" . "$repl" . "$2", $data);
    //$data = str_replace($page_parse,$repl,$data);
      }
  }
    }

    // This protects ))word((, I think?
    $data = preg_replace("/([ \n\t\r\,\;]|^)\)\)([^\(]+)\(\(($|[ \n\t\r\,\;\.])/", "$1" . "$2" . "$3", $data);

    // reinsert hash-replaced links into page
    foreach ($noparsedlinks as $np) {
  $data = str_replace($np["key"], $np["data"], $data);
    }

    // TODO: I think this is 1. just wrong and 2. not needed here? remove it?
    // Replace ))Words((
    $data = preg_replace("/\(\(([^\)]+)\)\)/", "$1", $data);

    // Images
    preg_match_all("/(\{img [^\}]+})/", $data, $pages);

    foreach (array_unique($pages[1])as $page_parse) {
  $parts = $this->split_tag( $page_parse);

  $imgdata = array();      // pre-set preferences
  $imgdata["src"] = '';
  $imgdata["height"] = '';
  $imgdata["width"] = '';
  $imgdata["link"] = '';
  $imgdata["align"] = '';
  $imgdata["desc"] = '';
  $imgdata["imalign"] = '';
        $imgdata = $this->split_assoc_array( $parts, $imgdata);

  $repl = 'get_preference('popupLinks', 'n') == 'y')
    {
      $imgtarget = ' target="_blank"';
    }
      $repl = '' . $repl . '';
  }

  if ($imgdata["desc"]) {
      $repl = '
' . $repl . '
' . $imgdata["desc"] . '
';
  }

  if ($imgdata["align"]) {
      $repl = '
' . $repl . "
";
  }

  $data = str_replace($page_parse, $repl, $data);
    }

    $links = $this->get_links($data);

    $notcachedlinks = $this->get_links_nocache($data);

    $cachedlinks = array_diff($links, $notcachedlinks);

    $this->cache_links($cachedlinks);

    // Note that there're links that are replaced
    foreach ($links as $link)
    {
  $target = '';

  if ($this->get_preference('popupLinks', 'n') == 'y')
  {
      $target = 'target="_blank"';
  }

  if (strstr($link, $_SERVER["SERVER_NAME"]))
  {
      $target = '';
  }

  if (!strstr($link, '//'))
  {
      $target = '';
  }

  // The (?is_cached($link) && $cachepages == 'y')
  {
      //use of urlencode for using cached versions of dynamic sites
      $cosa = "(cache)";

      //$link2 = str_replace("/","\/",$link);
      //$link2 = str_replace("?","\?",$link2);
      //$link2 = str_replace("&","\&",$link2);
      $link2 = str_replace("/", "\/", preg_quote($link));
      $pattern = "/(?$1", $data);
      $pattern = "/(?$1 $cosa", $data);
      $pattern = "/(?$link $cosa", $data);
  } else {
      //$link2 = str_replace("/","\/",$link);
      //$link2 = str_replace("?","\?",$link2);
      //$link2 = str_replace("&","\&",$link2);
      $link2 = str_replace("/", "\/", preg_quote($link));

      $pattern = "/(?$1", $data);
      $pattern = "/(?$link", $data);
  }

    }

    // Handle double square brackets.  -rlpowell
    $data = str_replace( "[[", "[", $data );

//////////////////////////////////////////
//////////////////////////////////////////
//////////////////////////////////////////
//////////////////////////////////////////

	// New syntax for tables
	if (preg_match_all("/\|\|\|(.*?)\|\|\|/s", $data, $tables)) {
	    $maxcols = 1;

	    $cols = array();

	    for ($i = 0; $i < count($tables[1]); $i++) {
		$rows = explode('||', $tables[1][$i]);

		$col[$i] = array();

		for ($j = 0; $j < count($rows); $j++) {
            $rows[$j] = str_replace('||', '', $rows[$j]);
		    $cols[$i][$j] = explode('|', $rows[$j]);

		    if (count($cols[$i][$j]) > $maxcols)
			$maxcols = count($cols[$i][$j]);
		}
	    }

	    for ($i = 0; $i < count($tables[0]); $i++) {
		$repl = '';

		for ($j = 0; $j < count($cols[$i]); $j++) {
		    $ncols = count($cols[$i][$j]);

		    if ($ncols == 1 && !$cols[$i][$j][0])
			continue;

		    $repl .= '';

		    for ($k = 0; $k < $ncols; $k++) {
			$repl .= '';
		}

		$repl .= '
';
		    }

		    $repl .= '
';
		$data = str_replace($tables[0][$i], $repl, $data);
	    }
	}

//////////////////////////////////////////
//////////////////////////////////////////
//////////////////////////////////////////
//////////////////////////////////////////
//////////////////////////////////////////

    if ($feature_wiki_tables != 'new') {
  // New syntax for tables
  if (preg_match_all("/\|\|(.*)\|\|/", $data, $tables)) {
      $maxcols = 1;

      $cols = array();

      for ($i = 0; $i < count($tables[0]); $i++) {
    $rows = explode('||', $tables[0][$i]);

    $col[$i] = array();

    for ($j = 0; $j < count($rows); $j++) {
        $cols[$i][$j] = explode('|', $rows[$j]);

        if (count($cols[$i][$j]) > $maxcols)
      $maxcols = count($cols[$i][$j]);
    }
      }

      for ($i = 0; $i < count($tables[0]); $i++) {
    $repl = '';

    for ($j = 0; $j < count($cols[$i]); $j++) {
        $ncols = count($cols[$i][$j]);

        if ($ncols == 1 && !$cols[$i][$j][0])
      continue;

        $repl .= '';

        for ($k = 0; $k < $ncols; $k++) {
      $repl .= '';
    }

    $repl .= '
';
        }

        $repl .= '
';
    $data = str_replace($tables[0][$i], $repl, $data);
      }
  }
    } else {
  // New syntax for tables
  // REWRITE THIS CODE
  if (preg_match_all("/\|\|(.*?)\|\|/s", $data, $tables)) {
      $maxcols = 1;

      $cols = array();

      for ($i = 0; $i < count($tables[0]); $i++) {
    $rows = split("\n|\", $tables[0][$i]);

    $col[$i] = array();

    for ($j = 0; $j < count($rows); $j++) {
        $rows[$j] = str_replace('||', '', $rows[$j]);

        $cols[$i][$j] = explode('|', $rows[$j]);

        if (count($cols[$i][$j]) > $maxcols)
      $maxcols = count($cols[$i][$j]);
    }
      }

      for ($i = 0; $i < count($tables[0]); $i++) {
    $repl = '';

    for ($j = 0; $j < count($cols[$i]); $j++) {
        $ncols = count($cols[$i][$j]);

        if ($ncols == 1 && !$cols[$i][$j][0])
      continue;

        $repl .= '';

        for ($k = 0; $k < $ncols; $k++) {
      $repl .= '';
    }

    $repl .= '
';
        }

        $repl .= '
';
    $data = str_replace($tables[0][$i], $repl, $data);
      }
  }
    }


    // 26-Jun-2003, by zaufi
    //
    // {maketoc} --> create TOC from '!', '!!', '!!!' in current document
    //
    preg_match_all("/\{maketoc\}/", $data, $tocs);
    $anch = array();

    // 08-Jul-2003, by zaufi
    // HotWords will be replace only in ordinal text
    // It looks __realy__ goofy in Headers or Titles

    // Get list of HotWords
    $words = $this->get_hotwords();

    // Now tokenize the expression and process the tokens
    // Use tab and newline as tokenizing characters as well  ////
    $lines = explode("\n", $data);
    $data = '';
    $listbeg = array();
    $divdepth = array();
    $inTable = 0;

    // loop: process all lines
    $in_paragraph = 0;
    foreach ($lines as $line) {
	$line = rtrim($line); // Trim off trailing white space
	// Check for titlebars...
	// NOTE: that title bar should start at the beginning of the line and
	//	   be alone on that line to be autoaligned... otherwise, it is an old
	//	   styled title bar...
	if (substr(ltrim($line), 0, 2) == '-=' && substr($line, -2, 2) == '=-') {
	    // Close open paragraph and lists, but not div's
	    $this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 0);
	    //
	    $align_len = strlen($line) - strlen(ltrim($line));

	    // My textarea size is about 120 space chars.
	    //define('TEXTAREA_SZ', 120);

	    // NOTE: That strict math formula (split into 3 areas) gives
	    //	   bad visual effects...
	    // $align = ($align_len < (TEXTAREA_SZ / 3)) ? "left"
	    //		: (($align_len > (2 * TEXTAREA_SZ / 3)) ? "right" : "center");
	    //
	    // Going to introduce some heuristic here :)
	    // Visualy (remember that space char is thin) center starts at 25 pos
	    // and 'right' from 60 (HALF of full width!) -- thats all :)
	    //
	    // NOTE: Guess align only if more than 10 spaces before -=title=-
	    if ($align_len > 10) {
		$align = ($align_len < 25) ? "left" : (($align_len > 60) ? "right" : "center");

		$align = ' style="text-align: ' . $align . ';"';
	    } else
		$align = '';

	    //
	    $line = trim($line);
	    $line = '
' . substr($line, 2, strlen($line) - 4). '
';
	    $data .= $line . "\n";
	    // TODO: Case is handled ...  no need to check other conditions
	    //	   (it is apriori known that they are all false, moreover sometimes
	    //	   check procedure need > O(0) of compexity)
	    //	   -- continue to next line...
	    //	   MUST replace all remaining parse blocks to the same logic...
	    continue;
	}

	// Replace old styled titlebars
	if (strlen($line) != strlen($line = preg_replace("/-=(.+?)=-/", "
$1
", $line))) {
	    // Close open paragraph, but not lists (why not?) or div's
	    $this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
	    $data .= $line . "\n";

	    continue;
	}

	// check if we are inside a table, if so, ignore monospaced and do
	// not insert 

	$inTable += substr_count($line, "close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 0);

	    // If the first character is space then
	    // change spaces for  
	    $line = '' . str_replace(' ', ' ', substr($line, 1)). '';
	}

	// Replace Hotwords before begin
	$line = $this->replace_hotwords($line, $words);

	// Replace monospaced text
	$line = preg_replace("/-\+(.*?)\+-/", "$1", $line);
	// Replace bold text
	$line = preg_replace("/__(.*?)__/", "$1", $line);
	$line = preg_replace("/\'\'(.*?)\'\'/", "$1", $line);
	// Replace definition lists
	$line = preg_replace("/^;(.*):[^\/\/](.*)/", "
$1
$2
", $line);

	if (0) {
	    $line = preg_replace("/\[([^\|]+)\|([^\]]+)\]/", "$2", $line);

	    // Segundo intento reemplazar los [link] comunes
	    $line = preg_replace("/\[([^\]]+)\]/", "$1", $line);
	    $line = preg_replace("/\-\=([^=]+)\=\-/", "
$1
", $line);
	}

	// This line is parseable then we have to see what we have
	if (substr($line, 0, 3) == '---') {
		// This is not a list item --- close open paragraph and lists, but not div's
		$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 0);
		$line = '
';
	} else {
		$litype = substr($line, 0, 1);
		if ($litype == '*' || $litype == '#') {
			// Close open paragraph, but not lists or div's
			$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
			$listlevel = $this->how_many_at_start($line, $litype);
			$liclose = '';
			$addremove = 0;
			if ($listlevel < count($listbeg)) {
		    while ($listlevel != count($listbeg)) $data .= array_shift($listbeg);
		    if (substr(current($listbeg), 0, 5) != '') $liclose = '';
			} elseif ($listlevel > count($listbeg)) {
		    $listyle = '';
		    while ($listlevel != count($listbeg)) {
					array_unshift($listbeg, ($litype == '*' ? '' : ''));
					if ($listlevel == count($listbeg)) {
						$listate = substr($line, $listlevel, 1);
						if (($listate == '+' || $listate == '-') && !($litype == '*' && !strstr(current($listbeg), '') || $litype == '#' && !strstr(current($listbeg), ''))) {
							$thisid = 'id' . microtime() * 1000000;
							$data .= '
[' . ($listate == '-' ? '+' : '-') . ']';
							$listyle = ' id="' . $thisid . '" style="display:' . ($listate == '+' ? 'block' : 'none') . ';"';
							$addremove = 1;
						}
					}
					$data.=($litype=='*'?"":"");
				}
				$liclose='';
			}
			if ($litype == '*' && !strstr(current($listbeg), '') || $litype == '#' && !strstr(current($listbeg), '')) {
				$data .= array_shift($listbeg);
				$listyle = '';
				$listate = substr($line, $listlevel, 1);
				if (($listate == '+' || $listate == '-')) {
					$thisid = 'id' . microtime() * 1000000;
					$data .= '
[' . ($listate == '-' ? '+' : '-') . ']';
					$listyle = ' id="' . $thisid . '" style="display:' . ($listate == '+' ? 'block' : 'none') . ';"';
					$addremove = 1;
				}
				$data .= ($litype == '*' ? "" : "");
				$liclose = '';
				array_unshift($listbeg, ($litype == '*' ? '' : ''));
			}
			$line = $liclose . '
' . substr($line, $listlevel + $addremove);
			if (substr(current($listbeg), 0, 5) != '
') array_unshift($listbeg, '' . array_shift($listbeg));
		} elseif ($litype == '+') {
		        // Close open paragraph, but not list or div's
		        $this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
			// Close lists down to requested level
			while ($listlevel < count($listbeg)) $data .= array_shift($listbeg);

			// Must append paragraph for list item of given depth...
			$listlevel = $this->how_many_at_start($line, $litype);
			if (count($listbeg)) {
				if (substr(current($listbeg), 0, 5) != '') {
					array_unshift($listbeg, '' . array_shift($listbeg));
					$liclose = '
';
				} else $liclose = '
';
			} else $liclose = '';
			$line = $liclose . substr($line, count($listbeg));
		} else {
		        // This is not a list item - close open lists,
			// but not paragraph or div's. If we are
			// closing a list, there really shouldn't be a
			// paragraph open anyway.
	        	$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 0, 1, 0);
				// Get count of (possible) header signs at start
				$hdrlevel = $this->how_many_at_start($line, '!');
				// If 1st char on line is '!' and its count less than 6 (max in HTML)
				if ($litype == '!' && $hdrlevel > 0 && $hdrlevel <= 6) {
			    	    // Close open paragraph (lists already closed above)
	        		    $this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 1);
				    // Close lower level divs if opened
				    for (;current($divdepth) >= $hdrlevel; array_shift($divdepth)) $data .= '
';

				// Remove possible hotwords replaced :)
				//   Umm, *why*?  Taking this out lets page
				//   links in headers work, which can be nice.
				//   -rlpowell
				// $line = strip_tags($line);

				// OK. Parse headers here...
				$anchor = '';
				$aclose = '';
				$addremove = 0;

				// May be special signs present after '!'s?
				$divstate = substr($line, $hdrlevel, 1);
				if ($divstate == '+' || $divstate == '-') {
				// OK. Must insert flipper after HEADER, and then open new div...
					$thisid = 'id' . microtime() * 1000000;
					$aclose = '[' . ($divstate == '-' ? '+' : '-') . ']';
					$aclose .= '
';
					array_unshift($divdepth, $hdrlevel);
					$addremove = 1;
				}
				// Is any {maketoc} present on page?
				if (count($tocs[0]) > 0) {
					// OK. Must insert  before HEADER and collect TOC entry
					$thisid = 'id' . microtime() * 1000000;
					array_push($anch, str_repeat("*", $hdrlevel). " " . substr($line, $hdrlevel + $addremove). '');
					$anchor = "";
					$aclose = '' . $aclose;
				}
				$line = $anchor . "" . substr($line, $hdrlevel + $addremove). "" . $aclose;
			} elseif (!strcmp($line, "...page...")) {
			  // Close open paragraph, lists, and div's
			  $this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 1);
			  // Leave line unchanged... tiki-index.php will split wiki here
			  $line = "...page...";
			} else {
			  	/** Usual paragraph.
				 *
				 * If the
				 * $feature_wiki_paragraph_formatting
				 * is on, then consecutive lines of
				 * text will be gathered into a block
				 * that is surrounded by HTML
				 * paragraph tags. One or more blank
				 * lines, or another special Wiki line
				 * (e.g., heading, titlebar, etc.)
				 * signifies the end of the
				 * paragraph. If the paragraph
				 * formatting feature is off, the
				 * original TikiWiki behavior is used,
				 * in which each line in the source is
				 * terminated by an explicit line
				 * break (br tag).
			  	 *
			  	 * @since Version 1.9
				 */
				if ($inTable == 0) {
				  if ($feature_wiki_paragraph_formatting == 'y') {
				    if ($in_paragraph && (0 == strcmp("", trim($line)))) {
				      // Blank line; end the paragraph
				      $this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
				    } elseif (!$in_paragraph && (0 != strcmp("", trim($line)))) {
				      // First non-blank line; start a paragraph
				      $data .= "
";
				      $in_paragraph = 1;
				    } else {
				      // A normal in-paragraph line or a consecutive blank line.
				      // Leave it as is.
				    }
				  } else {
				    $line .= '
';
				  }
				}
			}
		}
	}
	$data .= $line . "\n";
    }

    // Close open paragraph, lists, and div's
    $this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 1);

    // 26-Jun-2003, by zaufi
    // Replace {maketoc} from collected list of headers
    $html = '';

    foreach ($anch as $tocentry) {
  $html .= $tocentry . "\n";
    }

    if (count($anch))
  $html = $this->parse_data($html);

    $data = str_replace("{maketoc}", $html, $data);

    // Replace rss modules
    if (preg_match_all("/\{rss +id=([0-9]+) *(max=([0-9]+))? *\}/", $data, $rsss)) {
  if (!isset($rsslib)) {
      include ('lib/rss/rsslib.php');
  }

  for ($i = 0; $i < count($rsss[0]); $i++) {
      $id = $rsss[1][$i];

      $max = $rsss[3][$i];

      if (empty($max))
    $max = 99;

      $rssdata = $rsslib->get_rss_module_content($id);
      $items = $rsslib->parse_rss_data($rssdata, $id);

      $repl = '
';

      for ($j = 1; $j < count($items) && $j < $max; $j++) {
    $repl .= '
' . $items[$j]["title"] . '';
    if ($items[$j]["pubdate"] <> '') { $repl .= ' ('.$items[$j]["pubdate"].')'; }
      $repl .= '
';
      }

      $repl .= '
';
      $data = str_replace($rsss[0][$i], $repl, $data);
      }
      }

      // Close BiDi DIVs if any
      for ($i = 0; $i < $bidiCount; $i++) {
      $data .= "
";
      }

      foreach ($noparsed as $np) {
      $data = str_replace($np["key"], $np["data"], $data);
      }

      foreach ($preparsed as $pp) {
      $data = str_replace($pp["key"], "
" . $pp["data"] . "
", $data);
      }

      // Process pos_handlers here
      foreach ($this->pos_handlers as $handler) {
          $data = $handler($data);
      }

      return $data;
}

function parse_smileys($data) {
    global $feature_smileys;

    if ($feature_smileys == 'y') {
  $data = preg_replace("/\(:([^:]+):\)/", "", $data);
    }

    return $data;
}

function parse_comment_data($data) {
    $data = preg_replace("/\[([^\|\]]+)\|([^\]]+)\]/", "$2", $data);

    // Segundo intento reemplazar los [link] comunes
    $data = preg_replace("/\[([^\]\|]+)\]/", "$1", $data);
    // Llamar aqui a parse smileys
    $data = $this->parse_smileys($data);
    $data = preg_replace("/---/", "
", $data);
    // Reemplazar --- por 

    return $data;
}

function get_pages($data) {
    global $page_regex;

    global $feature_wikiwords;

    if ($feature_wikiwords == 'y') {
  preg_match_all("/\(\(($page_regex)\)\)/", $data, $pages2);
  preg_match_all("/\(\(($page_regex)\|(.+?)\)\)/", $data, $pages3);

  preg_match_all("/([ \n\t\r\,\;]|^)?([A-Z][a-z0-9_\-]+[A-Z][a-z0-9_\-]+[A-Za-z0-9\-_]*)($|[ \n\t\r\,\;\.])/", $data, $pages);
  $pages = array_unique(array_merge($pages[2], $pages2[1], $pages3[1]));
    } else {
  preg_match_all("/\(\(($page_regex)\)\)/", $data, $pages);

  preg_match_all("/\(\(($page_regex)\|(.+?)\)\)/", $data, $pages2);
  $pages = array_unique(array_merge($pages[1], $pages2[1]));
    }

    return $pages;
}

function clear_links($page) {
    $query = "delete from `tiki_links` where `fromPage`=?";
    $result = $this->query($query, array($page));
}

function replace_link($pageFrom, $pageTo) {
    $query = "delete from `tiki_links` where `fromPage`=? and `toPage`=?";
    $result = $this->query($query, array($pageFrom,$pageTo));
    $query = "insert into `tiki_links`(`fromPage`,`toPage`) values(?, ?)";
    $result = $this->query($query, array($pageFrom,$pageTo));
}

function invalidate_cache($page) {
    $query = "update `tiki_pages` set `cache_timestamp`=? where `pageName`=?";
    $this->query($query, array(0,$page) );
}

function update_page($pageName, $edit_data, $edit_comment, $edit_user, $edit_ip, $description = '', $minor = false) {
    global $smarty;

    global $dbTiki;
    global $feature_user_watches;
    global $wiki_watch_author;
    global $wiki_watch_comments;
    global $sender_email;
    include_once ("lib/commentslib.php");

    $commentslib = new Comments($dbTiki);

    $this->invalidate_cache($pageName);
    // Collect pages before modifying edit_data (see update of links below)
    $pages = $this->get_pages($edit_data);

    if (!$this->page_exists($pageName))
  return false;

    $t = date("U");
    // Get this page information
    $info = $this->get_page_info($pageName);
    // Store the old version of this page in the history table
    $version = $info["version"];
    $lastModif = $info["lastModif"];
    $user = $info["user"];
    $ip = $info["ip"];
    $comment = $info["comment"];
    $data = $info["data"];
    // WARNING: POTENTIAL BUG
    // The line below is not consistent with the rest of Tiki
    // (I commented it out so it can be further examined by CVS change control)
    //$pageName=addslashes($pageName);
    // But this should work (comment added by redflo):
    $version += 1;

    if (!$minor) {
  if ($pageName != 'SandBox') {
  $query = "insert into `tiki_history`(`pageName`, `version`, `lastModif`, `user`, `ip`, `comment`, `data`, `description`)
      values(?,?,?,?,?,?,?,?)";
# echo "
";print_r(get_defined_vars());echo "
";die();
      $result = $this->query($query,array($pageName,(int) $version,(int) $lastModif,$user,$ip,$comment,$data,$description));
  }

       //  Deal with mail notifications.
       include_once('lib/notifications/notificationemaillib.php');
		//This is put away: sender_email must be enough!
		//  if( $this->get_preference('wiki_forum') ) {
		//      $forums = $commentslib->list_forums( 0, 1, 'name_asc', $this->get_preference('wiki_forum') );
		//    if ($forums)
		//      $fromEmail = $forums["data"][0]["outbound_from"];
		//    else
		//      $fromEmail = $sender_email;
		//  }
    $foo = parse_url($_SERVER["REQUEST_URI"]);
    $machine = httpPrefix(). dirname( $foo["path"] );
    sendWikiEmailNotification('wiki_page_changed', $pageName, $edit_user, $edit_comment, $version, $edit_data, $machine);
  }



    $query = "update `tiki_pages` set `description`=?, `data`=?, `comment`=?, `lastModif`=?, `version`=?, `user`=?, `ip`=?, `page_size`=? where `pageName`=?";
    $result = $this->query($query,array($description,$edit_data,$edit_comment,(int) $t,$version,$edit_user,$edit_ip,(int)strlen($data),$pageName));
    // Parse edit_data updating the list of links from this page
    $this->clear_links($pageName);

    // Pages collected above
    foreach ($pages as $page) {
  $this->replace_link($pageName, $page);
    }

    // Update the log
    if ($pageName != 'SandBox' && !$minor) {
  $action = "Updated"; //get_strings tra("Updated")

  $query = "insert into `tiki_actionlog`(`action`,`pageName`,`lastModif`,`user`,`ip`,`comment`) values(?,?,?,?,?,?)";
  $result = $this->query($query,array($action,$pageName,(int) $t,$edit_user,$edit_ip,$edit_comment));
  $maxversions = $this->get_preference("maxVersions", 0);

  if ($maxversions) {
      // Select only versions older than keep_versions days
      $keep = $this->get_preference('keep_versions', 0);

      $now = date("U");
      $oktodel = $now - ($keep * 24 * 3600);
      $query = "select `pageName` ,`version` from `tiki_history` where `pageName`=? and `lastModif`<=? order by `lastModif` desc";
      $result = $this->query($query,array($pageName,$oktodel),-1,$maxversions);
      $toelim = $result->numRows();

      while ($res = $result->fetchRow()) {
    $page = $res["pageName"];

    $version = $res["version"];
    $query = "delete from `tiki_history` where `pageName`=? and `version`=?";
    $this->query($query,array($pageName,$version));
      }
  }
    }
}

function update_page_version($pageName, $version, $edit_data, $edit_comment, $edit_user, $edit_ip, $lastModif, $description = '') {
    global $smarty;

    if ($pageName == 'SandBox')
  return;

    // Collect pages before modifying edit_data
    $pages = $this->get_pages($edit_data);

    if (!$this->page_exists($pageName))
  return false;

    $t = date("U");
    $query = "delete from `tiki_history` where `pageName`=? and `version`=?";
    $result = $this->query($query, array( $pageName,(int) $version) );
    $query = "insert into `tiki_history`(pageName, version, lastModif, user, ip, comment, data,description) values(?,?,?, ?,?,?, ?,?)";
    $result = $this->query($query, array($pageName,(int)$version,(int)$lastModif, $edit_user,$edit_ip,$edit_comment, $edit_data,$description)
      );

    //print("version: $version
");
    // Get this page information
    $info = $this->get_page_info($pageName);

    if ($version >= $info["version"]) {
  $query = "update `tiki_pages` set `data`=?, `comment`=?, `lastModif`=?, `version`=?, `user`=?, `ip`=?, `description`=?,`page_size`=?  where `pageName`=?";
  $result = $this->query($query, array( $edit_data, $edit_comment, (int) $t, (int) $version, $edit_user, $edit_ip, $description, (int) strlen($data), $pageName ) );
  // Parse edit_data updating the list of links from this page
  $this->clear_links($pageName);

  // Pages are collected at the top of the function before adding slashes
  foreach ($pages as $page) {
      $this->replace_link($pageName, $page);
  }
    }
}

# TODO move all of these date/time functions to a static class: TikiDate
function get_timezone_list($use_default = false) {
    static $timezone_options;

    if (!$timezone_options) {
  $timezone_options = array();

  if ($use_default)
      $timezone_options['default'] = '-- Use Default Time Zone --';

  foreach ($GLOBALS['_DATE_TIMEZONE_DATA'] as $tz_key => $tz) {
      $offset = $tz['offset'];

      $absoffset = abs($offset /= 60000);
      $plusminus = $offset < 0 ? '-' : '+';
      $gmtoff = sprintf("GMT%1s%02d:%02d", $plusminus, $absoffset / 60, $absoffset - (intval($absoffset / 60) * 60));
      $tzlongshort = $tz['longname'] . ' (' . $tz['shortname'] . ')';
        $timezone_options[$tz_key] = sprintf('%-28.28s: %-36.36s %s', $tz_key, $tzlongshort, $gmtoff);
        }
        }

        return $timezone_options;
        }

        function get_server_timezone() {
        static $server_timezone;

        if (!$server_timezone) {
        $server_time = new Date();

        $server_timezone = $server_time->tz->getID();
        }

        return $server_timezone;
        }

# TODO rename get_site_timezone()
        function get_display_timezone($user = false) {
      static $display_timezone = false;

      if (!$display_timezone) {
          $server_time = $this->get_server_timezone();

          if ($user) {
        $display_timezone = $this->get_user_preference($user, 'display_timezone');

        if (!$display_timezone || $display_timezone == 'default') {
            $display_timezone = $this->get_preference('display_timezone', $server_time);
        }
          } else {
        $display_timezone = $this->get_preference('display_timezone', $server_time);
          }
      }

      return $display_timezone;
        }

/**
 * Retrieves the user's preferred offset for displaying dates.
 *
 * $user: the logged-in user.
 * returns: the preferred offset to UTC.
 */
function get_display_offset($_user = false) {

    // Cache preference from DB
    $display_tz = "UTC";

    // Default to UTCget_display_offset
    $display_offset = 0;

    // Load pref from DB is cache is empty
    if ($_user)
  $display_tz = $this->get_display_timezone($_user);

    // Recompute offset each request in case DST kicked in
    if ($display_tz != "UTC" && isset($_COOKIE["tz_offset"]))
  $display_offset = intval($_COOKIE["tz_offset"]);

    return $display_offset;
}

/**
 * Retrieves a TikiDate object for converting to/from display/UTC timezones
 *
 * $user: the logged-in user
 * returns: reference to a TikiDate instance with the appropriate offsets
 */
function &get_date_converter($_user = false) {
    static $date_converter;

    if (!$date_converter) {
  $display_offset = $this->get_display_offset($_user);

  $date_converter = &new TikiDate($display_offset);
    }

    return $date_converter;
}

function get_long_date_format() {
    static $long_date_format = false;

    if (!$long_date_format)
  $long_date_format = $this->get_preference('long_date_format', '%A %d of %B, %Y');

    return $long_date_format;
}

function get_short_date_format() {
    static $short_date_format = false;

    if (!$short_date_format)
  $short_date_format = $this->get_preference('short_date_format', '%a %d of %b, %Y');

    return $short_date_format;
}

function get_long_time_format() {
    static $long_time_format = false;

    if (!$long_time_format)
  $long_time_format = $this->get_preference('long_time_format', '%H:%M:%S %Z');

    return $long_time_format;
}

function get_short_time_format() {
    static $short_time_format = false;

    if (!$short_time_format)
  $short_time_format = $this->get_preference('short_time_format', '%H:%M %Z');

    return $short_time_format;
}

function get_long_datetime_format() {
    static $long_datetime_format = false;

    if (!$long_datetime_format)
  $long_datetime_format = $this->get_long_date_format(). ' [' . $this->get_long_time_format(). ']';

    return $long_datetime_format;
}

function get_short_datetime_format() {
    static $short_datetime_format = false;

    if (!$short_datetime_format)
  $short_datetime_format = $this->get_short_date_format(). ' [' . $this->get_short_time_format(). ']';

    return $short_datetime_format;
}

function server_time_to_site_time($timestamp, $user = false) {
    $date = new Date($timestamp);

    $date->setTZbyID($this->get_server_timezone());
    $date->convertTZbyID($this->get_display_timezone($user));
    return $date->getTime();
}

/**

 */
function get_site_date($timestamp, $user = false) {
    static $localed = false;

    if (!$localed) {
  $this->set_locale($user);

  $localed = true;
    }

    $original_tz = date('T', $timestamp);

    $format = '%b %e, %Y';
    $rv = strftime($format, $timestamp);
    $rv .= " =timestamp\n";
    $rv .= strftime('%Z', $timestamp);
    $rv .= " =strftime('%Z')\n";
    $rv .= date('T', $timestamp);
    $rv .= " =date('T')\n";

    $date = &new Date($timestamp);

# Calling new Date() changes the timezone of the $timestamp var!
# so we only change the timezone to UTC if the original TZ wasn't UTC
# to begin with.
# This seems really buggy, but I don't have time to delve into right now.
    $rv .= date('T', $timestamp);
    $rv .= " =date('T')\n";

    $rv .= $date->format($format);
    $rv .= " =new Date()\n";

    $rv .= date('T', $timestamp);
    $rv .= " =date('T')\n";

    if ($original_tz == 'UTC') {
  $date->setTZbyID('UTC');

  $rv .= $date->format($format);
  $rv .= " =setTZbyID('UTC')\n";
    }

    $tz_id = $this->get_display_timezone($user);

    if ($date->tz->getID() != $tz_id) {
# let's convert to the displayed timezone
  $date->convertTZbyID($tz_id);

  $rv .= $date->format($format);
  $rv .= " =convertTZbyID($tz_id)\n";
    }

#return $rv;

# if ($format == "%b %e, %Y")
#   $format = $tikilib->get_short_date_format();
    return $date;
}

# TODO rename to server_time_to_site_time()
function get_site_time($timestamp, $user = false) {
#print "
get_site_time()
";
    $date = $this->get_site_date($timestamp, $user);

    return $date->getTime();
}

function date_format($format, $timestamp, $user = false) {
    //$date = $this->get_site_date($timestamp, $user);
    // JJ - ignore conversion - we have no idea what TZ they're using

    // strftime doesn't do translations correctly
    // return strftime($format,$timestamp);
    $date = new Date($timestamp);

    return $date->format($format);
}

function get_long_date($timestamp, $user = false) {
    return $this->date_format($this->get_long_date_format(), $timestamp, $user);
}

function get_short_date($timestamp, $user = false) {
    return $this->date_format($this->get_short_date_format(), $timestamp, $user);
}

function get_long_time($timestamp, $user = false) {
    return $this->date_format($this->get_long_time_format(), $timestamp, $user);
}

function get_short_time($timestamp, $user = false) {
    return $this->date_format($this->get_short_time_format(), $timestamp, $user);
}

function get_long_datetime($timestamp, $user = false) {
    return $this->date_format($this->get_long_datetime_format(), $timestamp, $user);
}

function get_short_datetime($timestamp, $user = false) {
    return $this->date_format($this->get_short_datetime_format(), $timestamp, $user);
}

function get_site_timezone_shortname($user = false) {
    // UTC, or blank for local
    $dc = &$this->get_date_converter($user);

    return $dc->getTzName();
}

function get_server_timezone_shortname($user = false) {
    // Site time is always UTC, from the user's perspective.
    return "UTC";
}

/**
  get_site_time_difference - Return the number of seconds needed to add to a
  'system' time to return a 'site' time.
 */
function get_site_time_difference($user = false) {
    $dc = &$this->get_date_converter($user);

    $display_offset = $dc->display_offset;
    $server_offset = $dc->server_offset;
    return $display_offset - $server_offset;
}

/**
  Timezone saavy replacement for mktime()
 */
function make_time($hour, $minute, $second, $month, $day, $year, $timezone_id = false) {
    global $user; # ugh!

  if ($year <= 69)
      $year += 2000;

    if ($year <= 99)
  $year += 1900;

    $date = new Date();
    $date->setHour($hour);
    $date->setMinute($minute);
    $date->setSecond($second);
    $date->setMonth($month);
    $date->setDay($day);
    $date->setYear($year);

#$rv = sprintf("make_time(): $date->format(%D %T %Z)=%s
\n", $date->format('%D %T %Z'));
#print "
 make_time() start";
#print_r($date);
    if ($timezone_id)
  $date->setTZbyID($timezone_id);

#print_r($date);
#$rv .= sprintf("make_time(): $date->format(%D %T %Z)=%s
\n", $date->format('%D %T %Z'));
#print $rv;
    return $date->getTime();
}

/**
  Timezone saavy replacement for mktime()
 */
function make_server_time($hour, $minute, $second, $month, $day, $year, $timezone_id = false) {
    global $user; # ugh!

  if ($year <= 69)
      $year += 2000;

    if ($year <= 99)
  $year += 1900;

    $date = new Date();
    $date->setHour($hour);
    $date->setMinute($minute);
    $date->setSecond($second);
    $date->setMonth($month);
    $date->setDay($day);
    $date->setYear($year);

#print "
 make_server_time() start\n";
#print_r($date);
    if ($timezone_id)
  $date->setTZbyID($timezone_id);

#print_r($date);
    $date->convertTZbyID($this->get_server_timezone());
#print_r($date);
#print "make_server_time() end\n
";
    return $date->getTime();
}

/**
  Per http://www.w3.org/TR/NOTE-datetime
 */
function get_iso8601_datetime($timestamp, $user = false) {
    return $this->date_format('%Y-%m-%dT%H:%M:%S%O', $timestamp, $user);
}

function get_rfc2822_datetime($timestamp = false, $user = false) {
  if (!$timestamp)
      $timestamp = time();

# rfc2822 requires dates to be en formatted
  $saved_locale = @setlocale(0);
  @setlocale ('en_US');
#was return date('D, j M Y H:i:s ', $time) . $this->timezone_offset($time, 'no colon');
  $rv = $this->date_format('%a, %e %b %Y %H:%M:%S', $timestamp, $user). $this->get_rfc2822_timezone_offset($timestamp, $user);

# switch back to the 'saved' locale
  if ($saved_locale)
      @setlocale ($saved_locale);

  return $rv;
    }

function get_rfc2822_timezone_offset($time = false, $no_colon = false, $user = false) {
  if ($time === false)
      $time = time();

  $secs = $this->date_format('%Z', $time, $user);

  if ($secs < 0) {
      $sign = '-';

      $secs = -$secs;
  } else {
      $sign = '+';
  }

  $colon = $no_colon ? '' : ':';
  $mins = intval(($secs + 30) / 60);

  return sprintf("%s%02d%s%02d", $sign, $mins / 60, $colon, $mins % 60);
    }

function list_languages($path = false) {
    $languages = array();

    if (!$path)
  $path = "lang";

    if (!is_dir($path))
  return array();

    $h = opendir($path);

    while ($file = readdir($h)) {
	if ($file != '.' && $file != '..' && $file != 'CVS' && $file != 'index.php' && is_dir("$path/$file") ) {
	    $languages[] = $file;
	}
    }

    closedir ($h);

    // Format and return the list
    return $this->format_language_list($languages);
}

// Comparison function used to sort languages by their name in the
// current locale.
function formatted_language_compare($a, $b) {
    return strcmp($a['name'], $b['name']);
}

// Returns a list of languages formatted as a twodimensionel array
// with 'value' being the language code and 'name' being the name of
// the language.
function format_language_list($languages) {
    // The list of available languages so far with both English and
    // translated names.
       global $langmapping;
       include_once("lang/langmapping.php");
      $formatted = array();

      // run through all the language codes:
      foreach ($languages as $lc) {
    if (isset($langmapping[$lc])) {
        // known language
        if ($langmapping[$lc][0] == $langmapping[$lc][1]) {
      // Skip repeated text, 'English (English, en)' looks silly.
      $formatted[] = array(
        'value' => $lc,
        'name' => $langmapping[$lc][0] . " ($lc)"
        );
        } else {
      $formatted[] = array(
        'value' => $lc,
        'name' => $langmapping[$lc][1] . ' (' . $langmapping[$lc][0] . ', ' . $lc . ')'
            );
        }
        } else {
        // unknown language
        $formatted[] = array(
            'value' => $lc,
            'name' => tra("Unknown language"). " ($lc)"
            );
        }
        }

        // Sort the languages by their name in the current locale
        usort($formatted, array('TikiLib', 'formatted_language_compare'));
        return $formatted;
}

function get_language($user = false) {
        static $language = false;

        if (!$language) {
            if ($user) {
          $language = $this->get_user_preference($user, 'language', 'en');

          if (!$language || $language == 'default')
              $language = $this->get_preference('language', 'en');
            } else
          $language = $this->get_preference('language', 'en');
        }
        return $language;
}

function get_locale($user = false) {
# TODO move to admin preferences screen
    static $locales = array(
      'cs' => 'cs_CZ',
      'de' => 'de_DE',
      'dk' => 'da_DK',
      'en' => 'en_US',
      'fr' => 'fr_FR',
      'he' => 'he_IL', # hebrew
      'it' => 'it_IT', # italian
      'pl' => 'pl_PL', # polish
      'po' => 'po',
      'ru' => 'ru_RU',
      'es' => 'es_ES',
      'sw' => 'sw_SW', # swahili
      'tw' => 'tw_TW',
      );

 if (!isset($locale) or !$locale) {
  $locale = '';
  if (isset($locales[$this->get_language($user)]))
      $locale = $locales[$this->get_language($user)];
#print "
get_locale(): locale=$locale\n
";
 }

    return $locale;
}

function set_locale($user = false) {
    static $locale = false;

    if (!$locale) {
# breaks the RFC 2822 code
  $locale = @setlocale(LC_TIME, $this->get_locale($user));
#print "
set_locale(): locale=$locale\n
";
    }

    return $locale;
}

	function read_raw($text) {
		$file = split("\n",$text);
		foreach ($file as $line) {
			$r = $s = '';
			if (substr($line,0,1) != "#") {
				if (ereg("^\[([A-Z]+)\]",$line,$r)) {
					$var = strtolower($r[1]);
				}
				if ($var and (ereg("^([-_/ a-zA-Z0-9]+)[ \t]+[:=][ \t]+(.*)",$line,$s))) {
					$back[$var][trim($s[1])] = trim($s[2]);
				}
			}
		}
		return $back;
	}

}

// end of class ------------------------------------------------------

function compare_links($ar1, $ar2) {
    return $ar1["links"] - $ar2["links"];
}

function compare_backlinks($ar1, $ar2) {
    return $ar1["backlinks"] - $ar2["backlinks"];
}

function r_compare_links($ar1, $ar2) {
    return $ar2["links"] - $ar1["links"];
}

function r_compare_backlinks($ar1, $ar2) {
    return $ar2["backlinks"] - $ar1["backlinks"];
}

function compare_images($ar1, $ar2) {
    return $ar1["images"] - $ar2["images"];
}

function r_compare_images($ar1, $ar2) {
    return $ar2["images"] - $ar1["images"];
}

function compare_files($ar1, $ar2) {
    return $ar1["files"] - $ar2["files"];
}

function r_compare_files($ar1, $ar2) {
    return $ar2["files"] - $ar1["files"];
}

function compare_versions($ar1, $ar2) {
    return $ar1["versions"] - $ar2["versions"];
}

function r_compare_versions($ar1, $ar2) {
    return $ar2["versions"] - $ar1["versions"];
}

function compare_changed($ar1, $ar2) {
    return $ar1["lastChanged"] - $ar2["lastChanged"];
}

function r_compare_changed($ar1, $ar2) {
    return $ar2["lastChanged"] - $ar1["lastChanged"];
}

function chkgd2() {
    if (!isset($_SESSION['havegd2'])) {
#   TODO test this logic in PHP 4.3
#   if (version_compare(phpversion(), "4.3.0") >= 0) {
#  $_SESSION['havegd2'] = true;
#   } else {
    ob_start();

    phpinfo (INFO_MODULES);
    $_SESSION['havegd2'] = preg_match('/GD Version.*2.0/', ob_get_contents());
    ob_end_clean();
# }
    }

    return $_SESSION['havegd2'];
}

function httpScheme() {
    return 'http' . ((isset($_SERVER['HTTPS']) && ($_SERVER['HTTPS'] == 'on')) ? 's' : '');
}

function httpPrefix() {
    /*
       if (isset($_SERVER['HTTPS']) && ($_SERVER['HTTPS'] == 'on')) {
       $rv = 'https://' . $_SERVER['HTTP_HOST'];

       if ($_SERVER['SERVER_PORT'] != 443)
       $rv .= ':' . $_SERVER['SERVER_PORT'];
       } else {
       $rv = 'http://' . $_SERVER['HTTP_HOST'];

       if ($_SERVER['SERVER_PORT'] != 80)
       $rv .= ':' . $_SERVER['SERVER_PORT'];
       }

       return $rv;
     */
    /* Warning by zaufi: as far as I saw in my apache 1.3.27
     * there is no need to add port if it is non default --
     * $_SERVER['HTTP_HOST'] already contain it ...
     */
    return 'http'.((isset($_SERVER['HTTPS']) && ($_SERVER['HTTPS'] == 'on')) ? 's' : '').'://'.$_SERVER['HTTP_HOST'];
}

if (!function_exists('file_get_contents')) {
    function file_get_contents($f) {
  ob_start();

  $retval = @readfile($f);

  if (false !== $retval) { // no readfile error
      $retval = ob_get_contents();
  }

  ob_end_clean();
  return $retval;
    }

}

?>