<?php

/*

 * Enano - an open-source CMS capable of wiki functions, Drupal-like sidebar blocks, and everything in between

 * Version 1.0.1 (Loch Ness)

 * Copyright (C) 2006-2007 Dan Fuhry

 *

 * This program is Free Software; you can redistribute and/or modify it under the terms of the GNU General Public License

 * as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

 *

 * This program 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 General Public License for details.

 */

/**

 * Fetch a value from the site configuration.

 * @param string The identifier of the value ("site_name" etc.)

 * @return string Configuration value, or bool(false) if the value is not set

 */

function getConfig($n)

{

  global $enano_config;

  if ( isset( $enano_config[ $n ] ) )

  {

    return $enano_config[$n];

  }

  else

  {

    return false;

  }

}

/**

 * Update or change a configuration value.

 * @param string The identifier of the value ("site_name" etc.)

 * @param string The new value

 * @return null

 */

function setConfig($n, $v)

{

  global $enano_config, $db;

  $enano_config[$n] = $v;

  $v = $db->escape($v);

  $e = $db->sql_query('DELETE FROM '.table_prefix.'config WHERE config_name=\''.$n.'\';');

  if ( !$e )

  {

    $db->_die('Error during generic setConfig() call row deletion.');

  }

  $e = $db->sql_query('INSERT INTO '.table_prefix.'config(config_name, config_value) VALUES(\''.$n.'\', \''.$v.'\')');

  if ( !$e )

  {

    $db->_die('Error during generic setConfig() call row insertion.');

  }

}

/**

 * Create a URI for an internal link.

 * @param string The full identifier of the page to link to (Special:Administration)

 * @param string The GET query string to append

 * @param bool   If true, perform htmlspecialchars() on the return value to make it HTML-safe

 * @return string

 */

function makeUrl($t, $query = false, $escape = false)

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  $flags = '';

  $sep = urlSeparator;

  if ( isset($_GET['printable'] ) )

  {

    $flags .= $sep . 'printable=yes';

    $sep = '&';

  }

  if ( isset($_GET['theme'] ) )

  {

    $flags .= $sep . 'theme='.$session->theme;

    $sep = '&';

  }

  if ( isset($_GET['style'] ) ) {

    $flags .= $sep . 'style='.$session->style;

    $sep = '&';

  }

  $url = $session->append_sid(contentPath.$t.$flags);

  if($query)

  {

    $sep = strstr($url, '?') ? '&' : '?';

    $url = $url . $sep . $query;

  }

  return ($escape) ? htmlspecialchars($url) : $url;

}

/**

 * Create a URI for an internal link, and be namespace-friendly. Watch out for this one because it's different from most other Enano functions, in that the namespace is the first parameter.

 * @param string The namespace ID

 * @param string The page ID

 * @param string The GET query string to append

 * @param bool   If true, perform htmlspecialchars() on the return value to make it HTML-safe

 * @return string

 */

function makeUrlNS($n, $t, $query = false, $escape = false)

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  $flags = '';

  if(defined('ENANO_BASE_CLASSES_INITIALIZED'))

  {

    $sep = urlSeparator;

  }

  else

  {

    $sep = (strstr($_SERVER['REQUEST_URI'], '?')) ? '&' : '?';

  }

  if ( isset( $_GET['printable'] ) ) {

    $flags .= $sep . 'printable';

    $sep = '&';

  }

  if ( isset( $_GET['theme'] ) )

  {

    $flags .= $sep . 'theme='.$session->theme;

    $sep = '&';

  }

  if ( isset( $_GET['style'] ) )

  {

    $flags .= $sep . 'style='.$session->style;

    $sep = '&';

  }

  if(defined('ENANO_BASE_CLASSES_INITIALIZED'))

  {

    $url = contentPath . $paths->nslist[$n] . $t . $flags;

  }

  else

  {

    // If the path manager hasn't been initted yet, take an educated guess at what the URI should be

    $url = contentPath . $n . ':' . $t . $flags;

  }

  if($query)

  {

    if(strstr($url, '?'))

    {

      $sep =  '&';

    }

    else

    {

      $sep = '?';

    }

    $url = $url . $sep . $query . $flags;

  }

  if(defined('ENANO_BASE_CLASSES_INITIALIZED'))

  {

    $url = $session->append_sid($url);

  }

  return ($escape) ? htmlspecialchars($url) : $url;

}

/**

 * Create a URI for an internal link, be namespace-friendly, and add http://hostname/scriptpath to the beginning if possible. Watch out for this one because it's different from most other Enano functions, in that the namespace is the first parameter.

 * @param string The namespace ID

 * @param string The page ID

 * @param string The GET query string to append

 * @param bool   If true, perform htmlspecialchars() on the return value to make it HTML-safe

 * @return string

 */

function makeUrlComplete($n, $t, $query = false, $escape = false)

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  $flags = '';

  if(defined('ENANO_BASE_CLASSES_INITIALIZED'))

  {

    $sep = urlSeparator;

  }

  else

  {

    $sep = (strstr($_SERVER['REQUEST_URI'], '?')) ? '&' : '?';

  }

  if ( isset( $_GET['printable'] ) ) {

    $flags .= $sep . 'printable';

    $sep = '&';

  }

  if ( isset( $_GET['theme'] ) )

  {

    $flags .= $sep . 'theme='.$session->theme;

    $sep = '&';

  }

  if ( isset( $_GET['style'] ) )

  {

    $flags .= $sep . 'style='.$session->style;

    $sep = '&';

  }

  if(defined('ENANO_BASE_CLASSES_INITIALIZED'))

  {

    $url = $session->append_sid(contentPath . $paths->nslist[$n] . $t . $flags);

  }

  else

  {

    // If the path manager hasn't been initted yet, take an educated guess at what the URI should be

    $url = contentPath . $n . ':' . $t . $flags;

  }

  if($query)

  {

    if(strstr($url, '?')) $sep =  '&';

    else $sep = '?';

    $url = $url . $sep . $query . $flags;

  }

  $baseprot = 'http' . ( isset($_SERVER['HTTPS']) ? 's' : '' ) . '://' . $_SERVER['HTTP_HOST'];

  $url = $baseprot . $url;

  return ($escape) ? htmlspecialchars($url) : $url;

}

/**

 * Tells you the title for the given page ID string

 * @param string Page ID string (ex: Special:Administration)

 * @return string

 */

function get_page_title($page_id)

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  $idata = RenderMan::strToPageID($page_id);

  $page_id_key = $paths->nslist[ $idata[1] ] . $idata[0];

  $page_data = $paths->pages[$page_id_key];

  $title = ( isset($page_data['name']) ) ? ( $page_data['namespace'] == 'Article' ? '' : $paths->nslist[ $idata[1] ] ) . $page_data['name'] : $paths->nslist[$idata[1]] . str_replace('_', ' ', dirtify_page_id( $idata[0] ) );

  return $title;

}

/**

 * Tells you the title for the given page ID and namespace

 * @param string Page ID

 * @param string Namespace

 * @return string

 */

function get_page_title_ns($page_id, $namespace)

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  $page_id_key = $paths->nslist[ $namespace ] . $page_id;

  $page_data = $paths->pages[$page_id_key];

  $title = ( isset($page_data['name']) ) ? $page_data['name'] : $paths->nslist[$namespace] . str_replace('_', ' ', dirtify_page_id( $page_id ) );

  return $title;

}

/**

 * Redirect the user to the specified URL.

 * @param string $url The URL, either relative or absolute.

 * @param string $title The title of the message

 * @param string $message A short message to show to the user

 * @param string $timeout Timeout, in seconds, to delay the redirect. Defaults to 3.

 */

function redirect($url, $title = 'Redirecting...', $message = 'Please wait while you are redirected.', $timeout = 3)

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  if ( $timeout == 0 )

  {

    header('Location: ' . $url);

    header('HTTP/1.1 307 Temporary Redirect');

  }

  $template->add_header('<meta http-equiv="refresh" content="' . $timeout . '; url=' . str_replace('"', '\\"', $url) . '" />');

  $template->add_header('<script type="text/javascript">

      function __r() {

        // FUNCTION AUTOMATICALLY GENERATED

        window.location="' . str_replace('"', '\\"', $url) . '";

      }

      setTimeout(\'__r();\', ' . $timeout . '000);

    </script>

    ');

  $template->tpl_strings['PAGE_NAME'] = $title;

  $template->header(true);

  echo '<p>' . $message . '</p><p>If you are not redirected within ' . ( $timeout + 1 ) . ' seconds, <a href="' . str_replace('"', '\\"', $url) . '">please click here</a>.</p>';

  $template->footer(true);

  $db->close();

  exit(0);

}

// Removed wikiFormat() from here, replaced with RenderMan::render

/**

 * Tell me if the page exists or not.

 * @param string the full page ID (Special:Administration) of the page to check for

 * @return bool True if the page exists, false otherwise

 */

function isPage($p) {

  global $db, $session, $paths, $template, $plugins; // Common objects

  // Try the easy way first ;-)

  if ( isset( $paths->pages[ $p ] ) )

  {

    return true;

  }

  // Special case for Special, Template, and Admin pages that can't have slashes in their URIs

  $ns_test = RenderMan::strToPageID( $p );

  if($ns_test[1] != 'Special' && $ns_test[1] != 'Template' && $ns_test[1] != 'Admin')

  {

    return false;

  }

  $particles = explode('/', $p);

  if ( isset ( $paths->pages[ $particles[ 0 ] ] ) )

  {

    return true;

  }

  else

  {

    return false;

  }

}

/**

 * These are some old functions that were used with the Midget codebase. They are deprecated and should not be used any more.

 */

function arrayItemUp($arr, $keyname) {

  $keylist = array_keys($arr);

  $keyflop = array_flip($keylist);

  $idx = $keyflop[$keyname];

  $idxm = $idx - 1;

  $temp = $arr[$keylist[$idxm]];

  if($arr[$keylist[0]] == $arr[$keyname]) return $arr;

  $arr[$keylist[$idxm]] = $arr[$keylist[$idx]];

  $arr[$keylist[$idx]] = $temp;

  return $arr;

}

function arrayItemDown($arr, $keyname) {

  $keylist = array_keys($arr);

  $keyflop = array_flip($keylist);

  $idx = $keyflop[$keyname];

  $idxm = $idx + 1;

  $temp = $arr[$keylist[$idxm]];

  $sz = sizeof($arr); $sz--;

  if($arr[$keylist[$sz]] == $arr[$keyname]) return $arr;

  $arr[$keylist[$idxm]]  =  $arr[$keylist[$idx]];

  $arr[$keylist[$idx]]   =  $temp;

  return $arr;

}

function arrayItemTop($arr, $keyname) {

  $keylist = array_keys($arr);

  $keyflop = array_flip($keylist);

  $idx = $keyflop[$keyname];

  while( $orig != $arr[$keylist[0]] ) {

    // echo 'Keyname: '.$keylist[$idx] . '<br />'; flush(); ob_flush(); // Debugger

    if($idx < 0) return $arr;

    if($keylist[$idx] == '' || $keylist[$idx] < 0 || !$keylist[$idx]) {

      /* echo 'Infinite loop caught in arrayItemTop(<br /><pre>';

      print_r($arr);

      echo '</pre><br />, '.$keyname.');<br /><br />EnanoCMS: Critical error during function call, exiting to prevent excessive server load.';

      exit; */

      return $arr;

    }

    $arr = arrayItemUp($arr, $keylist[$idx]);

    $idx--;

  }

  return $arr;

}

function arrayItemBottom($arr, $keyname) {

  $keylist = array_keys($arr);

  $keyflop = array_flip($keylist);

  $idx = $keyflop[$keyname];

  $sz = sizeof($arr); $sz--;

  while( $orig != $arr[$keylist[$sz]] ) {

    // echo 'Keyname: '.$keylist[$idx] . '<br />'; flush(); ob_flush(); // Debugger

    if($idx > $sz) return $arr;

    if($keylist[$idx] == '' || $keylist[$idx] < 0 || !$keylist[$idx]) {

      echo 'Infinite loop caught in arrayItemBottom(<br /><pre>';

      print_r($arr);

      echo '</pre><br />, '.$keyname.');<br /><br />EnanoCMS: Critical error during function call, exiting to prevent excessive server load.';

      exit;

    }

    $arr = arrayItemDown($arr, $keylist[$idx]);

    $idx++;

  }

  return $arr;

}

// Convert IP address to hex string

// Input:  127.0.0.1  (string)

// Output: 0x7f000001 (string)

// Updated 12/8/06 to work with PHP4 and not use eval() (blech)

function ip2hex($ip) {

  if ( preg_match('/^([0-9a-f:]+)$/', $ip) )

  {

    // this is an ipv6 address

    return str_replace(':', '', $ip);

  }

  $nums = explode('.', $ip);

  if(sizeof($nums) != 4) return false;

  $str = '0x';

  foreach($nums as $n)

  {

    $str .= (string)dechex($n);

  }

  return $str;

}

// Convert DWord to IP address

// Input:  0x7f000001

// Output: 127.0.0.1

// Updated 12/8/06 to work with PHP4 and not use eval() (blech)

function hex2ip($in) {

  if(substr($in, 0, 2) == '0x') $ip = substr($in, 2, 8);

  else $ip = substr($in, 0, 8);

  $octets = enano_str_split($ip, 2);

  $str = '';

  $newoct = Array();

  foreach($octets as $o)

  {

    $o = (int)hexdec($o);

    $newoct[] = $o;

  }

  return implode('.', $newoct);

}

// Function strip_php moved to RenderMan class

/**

 * Immediately brings the site to a halt with an error message. Unlike grinding_halt() this can only be called after the config has been

 * fetched (plugin developers don't even need to worry since plugins are always loaded after the config) and shows the site name and

 * description.

 * @param string The title of the error message

 * @param string The body of the message, this can be HTML, and should be separated into paragraphs using the <p> tag

 */

function die_semicritical($t, $p)

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  $db->close();

  if ( ob_get_status() )

    ob_end_clean();

  dc_here('functions: <span style="color: red">calling die_semicritical</span>');

  $tpl = new template_nodb();

  $tpl->load_theme('oxygen', 'bleu');

  $tpl->tpl_strings['SITE_NAME'] = getConfig('site_name');

  $tpl->tpl_strings['SITE_DESC'] = getConfig('site_desc');

  $tpl->tpl_strings['COPYRIGHT'] = getConfig('copyright_notice');

  $tpl->tpl_strings['PAGE_NAME'] = $t;

  $tpl->header();

  echo $p;

  $tpl->footer();

  exit;

}

/**

 * Halts Enano execution with a message. This doesn't have to be an error message, it's sometimes used to indicate success at an operation.

 * @param string The title of the message

 * @param string The body of the message, this can be HTML, and should be separated into paragraphs using the <p> tag

 */

function die_friendly($t, $p)

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  if ( ob_get_status() )

    ob_end_clean();

  dc_here('functions: <span style="color: red">calling die_friendly</span>');

  $paths->cpage['name'] = $t;

  $template->tpl_strings['PAGE_NAME'] = $t;

  $template->header();

  echo $p;

  $template->footer();

  $db->close();

  exit;

}

/**

 * Immediately brings the site to a halt with an error message, and focuses on immediately closing the database connection and shutting down Enano in the event that an attack may happen. This should only be used very early on to indicate very severe errors, or if the site may be under attack (like if the DBAL detects a malicious query). In the vast majority of cases, die_semicritical() is more appropriate.

 * @param string The title of the error message

 * @param string The body of the message, this can be HTML, and should be separated into paragraphs using the <p> tag

 */

function grinding_halt($t, $p)