require_once( dirname(__FILE__). '/_functions_cats.php' );

require_once( dirname(__FILE__). '/_functions_blogs.php' );

require_once( dirname(__FILE__). '/_functions_bposts.php' );

require_once( dirname(__FILE__). '/_functions_users.php' );

require_once( dirname(__FILE__). '/_functions_trackback.php' );

require_once( dirname(__FILE__). '/_functions_pingback.php' );

require_once( dirname(__FILE__). '/_functions_pings.php' );

require_once( dirname(__FILE__). '/_functions_skins.php' );

require_once( dirname(__FILE__). '/_functions_errors.php' );

require_once( dirname(__FILE__). '/_functions_antispam.php' );

if( !isset( $use_html_checker ) ) $use_html_checker = 1;

if( $use_html_checker ) require_once( dirname(__FILE__). '/_class_htmlchecker.php' );

 

 

 

 

 

    $error  = '<p class="error">'. T_('Oops, MySQL error!'). '</p>'

        . '<p>Your query:<br /><code>'. $sql_query. '</code></p>'

        . '<p>MySQL said:<br /><code>'. mysql_error(). ' (error '. mysql_errno(). ')</code></p>';

    die( $error );

 

 

 

 

function format_to_output( $content, $format = 'htmlbody' )

    global $Renderer;

 

    switch( $format )

    {

        case 'raw':

            // do nothing!

            break;

 

        case 'htmlbody':

            // display in HTML page body: allow full HTML

            $content = convert_chars($content, 'html');

            break;

 

        case 'entityencoded':

            // Special mode for RSS 0.92: apply renders and allow full HTML but escape it

            $content = convert_chars($content, 'html');

            $content = htmlspecialchars( $content );

            break;

 

        case 'htmlhead':

            // strips out HTML (mainly for use in Title)

            $content = strip_tags($content);

            $content = convert_chars($content, 'html');

            break;

 

        case 'htmlattr':

            // use as an attribute: strips tags and escapes quotes

            $content = strip_tags($content);

            $content = convert_chars($content, 'html');

            $content = str_replace('"', '&quot;', $content );

            $content = str_replace("'", '&#039;', $content );

            break;

 

        case 'formvalue':

            // use as a form value: escapes quotes and < > but leaves code alone

            $content = htmlspecialchars( $content );

            $content = str_replace('"', '&quot;', $content );

            $content = str_replace("'", '&#039;', $content );

            $content = str_replace('<', '&lt;', $content );

            $content = str_replace(">", '&gt;', $content );

            break;

 

        case 'xml':

            // use in an XML file: strip HTML tags

            $content = strip_tags($content);

            $content = convert_chars($content, 'xml');

            break;

 

        case 'xmlattr':

            // use as an attribute: strips tags and escapes quotes

            $content = strip_tags($content);

            $content = convert_chars($content, 'xml');

            $content = str_replace('"', '&quot;', $content );

            $content = str_replace("'", '&#039;', $content );

            break;

 

        default:

            die( 'Output format ['.$format.'] not supported.' );

    }

 

    return $content;

 

 

function format_to_edit( $content, $autobr = false )

    if( $autobr )

    {

        // echo 'unBR:',htmlspecialchars(str_replace( ' ', '*', $content) );

        $content = unautobrize($content);

    }

 

    $content = htmlspecialchars($content);

    return($content);

 

 

function format_to_post( $content, $autobr = 0, $is_comment = 0, $encoding = '' )

    global $use_balanceTags, $use_html_checker, $use_security_checker;

    global $allowed_tags, $allowed_attribues, $uri_attrs, $allowed_uri_scheme;

    global $comments_allowed_tags, $comments_allowed_attribues, $comments_allowed_uri_scheme;

 

    // Replace any & that is not a character or entity reference with &amp;

    $content= preg_replace( '/&(?!#[0-9]+;|#x[0-9a-fA-F]+;|[a-zA-Z_:][a-zA-Z0-9._:-]*;)/', '&amp;', $content );

 

    if( $autobr )

    { // Auto <br />:

        // may put brs in the middle of multiline tags...

        $content = autobrize($content);

    }

 

    if( $use_balanceTags )

    {    // Auto close open tags:

        $content = balanceTags($content, $is_comment);

    }

 

    if( $use_html_checker )

    {    // Check the code:

        if( ! $is_comment )

        {

            $checker = & new SafeHtmlChecker( $allowed_tags, $allowed_attribues,

                                                                            $uri_attrs, $allowed_uri_scheme, $encoding );

        }

        else

        {

            $checker = & new SafeHtmlChecker( $comments_allowed_tags, $comments_allowed_attribues,

                                                                            $uri_attrs, $comments_allowed_uri_scheme, $encoding );

        }

 

        $checker->check( $content );

    }

 

    if( !isset( $use_security_checker ) ) $use_security_checker = 1;

    if( $use_security_checker )

    {

        // Security checking:

        $check = $content;

        // Open comments or '<![CDATA[' are dangerous

        $check = str_replace('<!', '<', $check);

        // # # are delimiters

        // i modifier at the end means caseless

        $matches = array();

        // onclick= etc...

        if( preg_match ('#\s(on[a-z]+)\s*=#i', $check, $matches)

            // action=, background=, cite=, classid=, codebase=, data=, href=, longdesc=, profile=, src=

            // usemap=

            || preg_match ('#=["\'\s]*(javascript|vbscript|about):#i', $check, $matches)

            || preg_match ('#\<\/?\s*(frame|iframe|applet|object)#i', $check, $matches) )

        {

            errors_add( 'Illegal markup found: '.htmlspecialchars($matches[1]) );

        }

        // Styling restictions:

        $matches = array();

        if( $is_comment && preg_match ('#\s(style|class|id)\s*=#i', $check, $matches) )

        {

            errors_add( 'Unallowed CSS markup found: '.htmlspecialchars($matches[1]) );

        }

    }

    return($content);

 

 

    $content = preg_replace("/<br>\n/", "\n", $content);

    $content = preg_replace("/<br \/>\n/", "\n", $content);

    $content = preg_replace("/(\015\012)|(\015)|(\012)/", "<br />\n", $content);

    return($content);

    }

 

    $content = preg_replace("/<br>\n/", "\n", $content);   //for PHP versions before 4.0.5

    $content = preg_replace("/<br \/>\n/", "\n", $content);

    return($content);

 

    $l = strlen($number);

    if ($l < $threshold)

        for ($i = 0; $i < ($threshold - $l); $i = $i + 1) { $number='0'.$number;    }

    return($number);

 

 

 

function convert_chars( $content, $flag='html' )

    global $b2_htmltrans, $b2_htmltranswinuni;

 

    // Convert highbyte non ASCII/UTF-8 chars to urefs:

    if( (locale_charset(false) != 'utf-8') && (locale_charset(false) != 'gb2312') )

    {    // This is a single byte charset

        $content = preg_replace_callback(

            '/[\x80-\xff]/',

            create_function( '$j', 'return "&#".ord($j[0]).";";' ),

            $content);

    }

 

    // Convert Windows CP1252 => Unicode (valid HTML)

    // TODO: should this go to input conversions instead (?)

    $content = strtr( $content, $b2_htmltranswinuni );

 

    if( $flag == 'html' )

    { // we can use entities

        // Convert & chars that are not used in an entity

        $content = preg_replace('/&(?![#A-Za-z0-9]{2,20};)/', '&amp;', $content);

    }

    else

    {    // unicode, xml...

        // Convert & chars that are not used in an entity

        $content = preg_replace('/&(?![#A-Za-z0-9]{2,20};)/', '&#38;', $content);

 

        // Convert HTML entities to urefs:

        $content = strtr($content, $b2_htmltrans);

    }

 

    return( $content );

 

 

function make_clickable( $text, $moredelim = '&amp;' )

    $text = preg_replace(

        array( '#(^|[\s>])(https?|mailto)://([^<>{}\s]+[^.,<>{}\s])#i',

            '#(^|[\s>])aim:([^,<\s]+)#i',

            '#(^|[\s>])icq:(\d+)#i',

            '#(^|[\s>])www\.([a-z0-9\-]+)\.([a-z0-9\-.\~]+)((?:/[^<\s]*)?[^.,\s])#i',

            '#(^|[\s>])([a-z0-9\-_.]+?)@([^,<\s]+)#i', ),

        array( '$1<a href="$2://$3">$2://$3</a>',

            '$1<a href="aim:goim?screenname=$2$3'.$moredelim.'message='.rawurlencode(T_('Hello')).'">$2$3</a>',

            '$1<a href="http://wwp.icq.com/scripts/search.dll?to=$2">$2</a>',

            '$1<a href="http://www.$2.$3$4">www.$2.$3$4</a>',

            '$1<a href="mailto:$2@$3">$2@$3</a>', ),

        $text );

 

    return $text;

 

 

 

function mysql2date( $dateformatstring, $mysqlstring, $useGM = false )

    $m = $mysqlstring;

    if( empty($m) )    return false;

 

    // Get a timestamp:

    $unixtimestamp = mktime(substr($m,11,2),substr($m,14,2),substr($m,17,2),substr($m,5,2),substr($m,8,2),substr($m,0,4));

 

    return date_i18n( $dateformatstring, $unixtimestamp, $useGM );

 

 

function date_i18n( $dateformatstring, $unixtimestamp, $useGM = false )

    global $month, $month_abbrev, $weekday, $weekday_abbrev, $weekday_letter;

    global $Settings;

 

    $datemonth = date('m', $unixtimestamp);

    $dateweekday = date('w', $unixtimestamp);

 

    if( $dateformatstring == 'isoZ' )

    { // full ISO 8601 format

        $dateformatstring = 'Y-m-d\TH:i:s\Z';

    }

 

    if( $useGM )

    { // We want a Greenwich Meridian time:

        $j = gmdate($dateformatstring, $unixtimestamp - ($Settings->get('time_difference') * 3600));

    }

    else

    {    // We want default timezone time:

        $dateformatstring = ' '.$dateformatstring; // will be removed later

 

        // echo $dateformatstring, '<br />';

 

        // weekday:

        $dateformatstring = preg_replace("/([^\\\])l/", '\\1@@@\\l@@@', $dateformatstring);

        // weekday abbrev:

        $dateformatstring = preg_replace("/([^\\\])D/", '\\1@@@\\D@@@', $dateformatstring);

        // weekday letter:

        $dateformatstring = preg_replace("/([^\\\])e/", '\\1@@@e@@@', $dateformatstring);

        // month:

        $dateformatstring = preg_replace("/([^\\\])F/", '\\1@@@\\F@@@', $dateformatstring);

        // month abbrev:

        $dateformatstring = preg_replace("/([^\\\])M/", '\\1@@@\\M@@@', $dateformatstring);

 

        $dateformatstring = substr($dateformatstring, 1, strlen($dateformatstring)-1);

 

        // echo $dateformatstring, '<br />';

 

        $j = date($dateformatstring, $unixtimestamp);

 

        // weekday:

        $j = str_replace( '@@@l@@@', T_($weekday[$dateweekday]), $j);

        // weekday abbrev:

        $j = str_replace( '@@@D@@@', T_($weekday_abbrev[$dateweekday]), $j);

        // weekday letter:

        $j = str_replace( '@@@e@@@', T_($weekday_letter[$dateweekday]), $j);

        // month:

        $j = str_replace( '@@@F@@@', T_($month[$datemonth]), $j);

        // month abbrev:

        $j = str_replace( '@@@M@@@', T_($month_abbrev[$datemonth]), $j);

    }

 

    return $j;

 

    $my = substr($mysqlstring, 0, 4);

    $mm = substr($mysqlstring, 5, 2);

    $md = substr($mysqlstring, 8, 2);

    $day = mktime(0, 0, 0, $mm, $md, $my);

    $weekday = date('w', $day);

    $i = 86400;

    while( $weekday > $start_of_week )

    {

        $weekday = date('w', $day);

        $day = $day - 86400;

        $i = 0;

    }

    $week['start'] = $day + 86400 - $i;

    $week['end']   = $day + 691199;

    return( $week );

 

 

function antispambot($emailaddy, $mailto = 0) {

    $emailNOSPAMaddy = '';

    srand ((float) microtime() * 1000000);

    for ($i = 0; $i < strlen($emailaddy); $i = $i + 1) {

        $j = floor(rand(0, 1 + $mailto));

        if ($j == 0) {

            $emailNOSPAMaddy .= '&#' . ord( substr( $emailaddy, $i, 1 ) ). ';';

        } elseif ($j == 1) {

            $emailNOSPAMaddy .= substr($emailaddy, $i, 1);

        } elseif ($j == 2) {

            $emailNOSPAMaddy .= '%' . zeroise( dechex( ord( substr( $emailaddy, $i, 1 ) ) ), 2 );

        }

    }

    $emailNOSPAMaddy = str_replace('@', '&#64;', $emailNOSPAMaddy);

    return $emailNOSPAMaddy;

 

 

    #$chars = "/^([a-z0-9_]|\\-|\\.)+@(([a-z0-9_]|\\-)+\\.)+[a-z]{2,4}\$/i";

    $chars = '/^.+@[^\.].*\.[a-z]{2,}$/i';

    if(strstr($user_email, '@') && strstr($user_email, '.')) {

        return (bool)(preg_match($chars, $user_email));

    } else {

        return false;

    }

 

 

    ?>

    <html xml:lang="<?php locale_lang() ?>" lang="<?php locale_lang() ?>">

    <head>

    <script language="JavaScript">

    <!--

    alert('<?php echo str_replace( "'", "\'", $msg ) ?>');

    history.back();

    //-->

    </script>

    </head>

    <body>

    <!-- this is for non-JS browsers (actually we should never reach that code, but hey, just in case...) -->

    <?php echo $msg; ?><br />

    <a href="<?php echo $_SERVER["HTTP_REFERER"]; ?>"><?php echo T_('go back') ?></a>

    </body>

    </html>

    <?php

    exit;

 

 

    ?>

    <script language="JavaScript">

    <!--

    if (!confirm("<?php echo $msg ?>")) {

    history.back();

    }

    //-->

    </script>

    <?php

 

 

function redirect_js($url,$title="...") {

    ?>

    <script language="JavaScript">

    <!--

    function redirect() {

    window.location = "<?php echo $url; ?>";

    }

    setTimeout("redirect();", 100);

    //-->

    </script>

    <p><?php echo T_('Redirecting you to:') ?> <strong><?php echo $title; ?></strong><br />

    <br />

    <?php printf( T_('If nothing happens, click <a %s>here</a>.'), ' href="'.$url.'"' ); ?></p>

    <?php

    exit();

 

 

 

        global $timestart;

        $mtime = microtime();

        $mtime = explode(" ",$mtime);

        $mtime = $mtime[1] + $mtime[0];

        $timestart = $mtime;

        return true;

    }

 

function timer_stop($display=0,$precision=3) { //if called like timer_stop(1), will echo $timetotal

        global $timestart,$timeend;

        $mtime = microtime();

        $mtime = explode(" ",$mtime);

        $mtime = $mtime[1] + $mtime[0];

        $timeend = $mtime;

        $timetotal = $timeend-$timestart;

        if ($display)

            echo number_format($timetotal,$precision);

        return($timetotal);

    }

 

 

    global $post_default_title;

    if (preg_match('/<title>(.+?)<\/title>/is', $content, $matchtitle))

    {

        $post_title = $matchtitle[1];

    }

    else

    {

        $post_title = $post_default_title;

    }

    return($post_title);

 

    if (preg_match('/<category>([0-9]+?)<\/category>/is', $content, $matchcat))

    {

        return $matchcat[1];

    }

 

    return false;

 

    $content = preg_replace('/<title>(.*?)<\/title>/si', '', $content);

    $content = preg_replace('/<category>(.*?)<\/category>/si', '', $content);

    $content = trim($content);

    return($content);

 

 

function xmlrpc_displayresult( $result, $log = '', $display = true )

    if( ! $result )

    {

        if( $display ) echo T_('No response!'),"<br />\n";

        return false;

    }

    elseif( $result->faultCode() )

    {    // We got a remote error:

        if( $display ) echo T_('Remote error'), ': ', $result->faultString(), ' (', $result->faultCode(), ")<br />\n";

        debug_fwrite($log, $result->faultCode().' -- '.$result->faultString());

        return false;

    }

 

    // We'll display the response:

    $val = $result->value();

    $value = xmlrpc_decode_recurse($result->value());

    if (is_array($value))

    {

        $value_arr = '';

        foreach($value as $blah)

        {

            $value_arr .= ' ['.$blah.'] ';

        }

        if( $display ) echo T_('Response'), ': ', $value_arr, "<br />\n";

        debug_fwrite($log, $value_arr);

    }

    else

    {

        if( $display ) echo T_('Response'), ': ', $value ,"<br />\n";

        debug_fwrite($log, $value);

    }

 

    return true;

 

 

    global $debug;

    if ($debug == 1 && ( !empty($filename) ) )

    {

        $fp = fopen($filename, $mode);

        return $fp;

    } else {

        return false;

    }

 

    global $debug;

    if( $debug && $fp )

    {

        fwrite($fp, $string);

    }

 

    global $debug;

    if( $debug && $fp )

    {

        fclose($fp);

    }

 

 

 

 

 

    $tagstack = array();

    $stacksize = 0;

    $tagqueue = '';

    $newtext = '';

 

    # b2 bug fix for comments - in case you REALLY meant to type '< !--'

    $text = str_replace('< !--', '<    !--', $text);

 

    # b2 bug fix for LOVE <3 (and other situations with '<' before a number)

    $text = preg_replace('#<([0-9]{1})#', '&lt;$1', $text);

 

    while( preg_match("/<(\/?\w*)\s*([^>]*)>/", $text, $regex) )

    {

        $newtext = $newtext . $tagqueue;

 

        $i = strpos($text,$regex[0]);

        $l = strlen($tagqueue) + strlen($regex[0]);

 

        // clear the shifter

        $tagqueue = '';

 

        // Pop or Push

        if( substr($regex[1],0,1) == '/' )

        { // End Tag

            $tag = strtolower(substr($regex[1],1));

 

            // if too many closing tags

            if($stacksize <= 0) {

                $tag = '';

                //or close to be safe $tag = '/' . $tag;

            }

            // if stacktop value = tag close value then pop

            else if ($tagstack[$stacksize - 1] == $tag) { // found closing tag

                $tag = '</' . $tag . '>'; // Close Tag

                // Pop

                array_pop ($tagstack);

                $stacksize--;

            } else { // closing tag not at top, search for it

                for ($j=$stacksize-1;$j>=0;$j--) {

                    if ($tagstack[$j] == $tag) {

                    // add tag to tagqueue

                        for ($k=$stacksize-1;$k>=$j;$k--){

                            $tagqueue .= '</' . array_pop ($tagstack) . '>';

                            $stacksize--;

                        }

                        break;

                    }

                }

                $tag = '';

            }

        }

        else

        { // Begin Tag

            $tag = strtolower($regex[1]);

 

            // Tag Cleaning

 

            // Push if not img or br or hr

            if($tag != 'br' && $tag != 'img' && $tag != 'hr') {

                $stacksize = array_push ($tagstack, $tag);

            }

 

            // Attributes

            // $attributes = $regex[2];

            $attributes = $regex[2];

            if($attributes) {

                $attributes = ' '.$attributes;

            }

 

            $tag = '<'.$tag.$attributes.'>';

        }

 

        $newtext .= substr($text,0,$i) . $tag;

        $text = substr($text,$i+$l);

    }

 

    // Clear Tag Queue

    $newtext = $newtext . $tagqueue;

 

    // Add Remaining text

    $newtext .= $text;

 

    // Empty Stack

    while($x = array_pop($tagstack)) {

        $newtext = $newtext . '</' . $x . '>'; // Add remaining tags to close

    }

 

    # b2 fix for the bug with HTML comments

    $newtext = str_replace( '< !--', '<'.'!--', $newtext ); // the concatenation is needed to work around some strange parse error in PHP 4.3.1

    $newtext = str_replace( '<    !--', '< !--', $newtext );

 

    return $newtext;

 

 

    if( get_magic_quotes_gpc() )

    {    // That stupid PHP behaviour consisting of adding slashes everywhere is unfortunately on

        if( is_array( $mixed ) )

        {

            foreach($mixed as $k => $v)

            {

                $mixed[$k] = remove_magic_quotes( $v );

            }

        }

        else

        {

            // echo 'Removing slashes ';

            $mixed = stripslashes( $mixed );

        }

    }

    return $mixed;

 

 

function param(    $var, $type = '',    $default = '', $memorize = false, $override = false, $forceset = true )

    global $$var;

    global $global_param_list;

 

    // Check if already set

    // WARNING: when PHP register globals is ON, COOKIES get priority over GET and POST with this!!!

    if( !isset( $$var ) || $override )

    {

        if( isset($_POST[$var]) )

        {

            $$var = remove_magic_quotes( $_POST[$var] );

            // echo "$var=".$$var." set by POST!<br/>";

        }

        elseif( isset($_GET["$var"]) )

        {

            $$var = remove_magic_quotes($_GET[$var]);

            // echo "$var=".$$var." set by GET!<br/>";

        }

        elseif( isset($_COOKIE[$var]))

        {

            $$var = remove_magic_quotes($_COOKIE[$var]);

            // echo "$var=".$$var." set by COOKIE!<br/>";

        }

        elseif( $default === true )

        {

            die( '<p class="error">'.sprintf( T_('Parameter %s is required!'), $var ).'</p>' );

        }

        elseif( $forceset )

        {

            $$var = $default;

            // echo "$var=".$$var." set to default<br/>";

        }

        else

        { // param not found! don't set the variable.

            // Won't be memorized nor type-forced!

            return false;

        }

    }

    else

    {    // Variable was already set but we need to remove the auto quotes

        $$var = remove_magic_quotes($$var);

 

        // echo $var, ' already set';

        /*    if($var == 'post_extracats' )

 

    }

 

    // type will be forced even if it was set before and not overriden

    if( !empty($type) )

    {    // Force the type

        // echo "forcing type!";

        switch( $type )

        {

            case 'html':

                // do nothing

                break;

 

            case 'string':

                // echo $var, '=', $$var, '<br>';

                $$var = trim( strip_tags($$var) );

                break;

 

            default:

                settype( $$var, $type );

        }

    }

 

    if( $memorize )

    {    // Memorize this parameter

        if( !isset($global_param_list) )

        { // Init list if necessary:

            $global_param_list = array();

        }

        // echo "Memorize(".count($global_param_list).") 'var' => $var, 'type' => $type, 'default' => $default <br>";

        $global_param_list[$var] = array( 'type' => $type, 'default' => $default );

    }

 

    // echo $var, '(', gettype($$var), ')=', $$var, '<br />';

    return $$var;

 

 

function regenerate_url( $ignore = '', $set = '', $pagefileurl = '' )

    global $global_param_list, $ReqPath;

 

    if( $ignore == '' )

        $ignore = array( );

    elseif( !is_array($ignore) )

        $ignore = array( $ignore );

 

    if( $set == '' )

        $set = array( );

    elseif( !is_array($set) )

        $set = array( $set );

 

    $params = array();

    if( isset($global_param_list) ) foreach( $global_param_list as $var => $thisparam )

    {

        $type = $thisparam['type'];

        $defval = $thisparam['default'];

 

        if( in_array( $var, $ignore ) )

        {    // we don't want to include that one

            continue;

        }

 

        // Special cases:

        switch( $var )

        {

            case 'catsel':

            {

                global $catsel;

                if( (! empty($catsel)) && (strpos( $cat, '-' ) === false) )

                {    // It's worthwhile retransmitting the catsels

                    foreach( $catsel as $value )

                    {

                        $params[] = 'catsel%5B%5D='.rawurlencode($value);

                    }

                }

                break;

            }

 

            case 'show_status':

            {

                global $show_status;

                if( ! empty($show_status) )

                {

                    foreach( $show_status as $value )

                    {

                        $params[] = 'show_status%5B%5D='.rawurlencode($value);

                    }

                }

                break;

            }

 

            default:

            {

                global $$var;

                $value = $$var;

                // echo "var=$var, type=$type, defval=[$defval], val=[$value] \n";

                if( (!empty($value)) && ($value != $defval) )

                { // Value exists and is not set to default value:

                    // echo "adding $var \n";

                    $params[] = $var.'='.rawurlencode($value);

                }

                // else echo "ignoring $var \n";

            }

        }

    }

 

    if( ! empty( $set ) )

    {

        $params = array_merge( $params, $set );

    }

 

    $url = empty($pagefileurl) ? $ReqPath : $pagefileurl;

 

    if( !empty( $params ) )

    {

        $url = url_add_param( $url, implode( '&amp;', $params ) );

    }

 

    return $url;

 

 

function get_path( $which='' )

    global $core_subdir, $skins_subdir, $basepath;

 

    switch( $which )

    {

        case 'skins':

            return $basepath.'/'.$skins_subdir;

 

    }

 

    return $basepath;

 

    if( strpos( $string, "'" ) !== 0 )

    {    // no quote at position 0

        $string = "'".$string."'";

    }

 

 

    global $debug;

 

    if( empty($url) )

    {    // Empty URL, no problem

        return false;

    }

 

    if( ! preg_match('¤^                                                        # start

    {    // Cannot vaidate URL structure

        return T_('Invalid URL');

    }

 

    $scheme = strtolower($matches[1]);

    if(!in_array( $scheme, $allowed_uri_scheme ))

    {    // Scheme not allowed

        return T_('URI scheme not allowed');

    }

 

    // Search for blocked URLs:

    if( $block = antispam_check($url) )

    {

        if( $debug ) return 'Url refused. Debug info: blacklisted word: ['.$block.']';

        return T_('URL not allowed');

    }

 

    return false;        // OK

 

 

function pre_dump($dump, $title = '')

    echo "\n".'<pre>';

    if( $title !== '' )

    {

        echo $title. ': <br />';

    }

    var_dump($dump);

    echo '</pre>'."\n";

 

 

$debug_messages = array();

    global $debug_messages;

 

    $debug_messages[] = $message;

 

function debug_info( $force = false )

    global $debug;

    global $querycount;

    global $debug_messages;

    global $DB;

    global $obhandler_debug;

    global $Timer;

 

    if( $debug || $force )

    {

        echo '<div class="debug"><h2>Debug info</h2>';

 

        if( !$obhandler_debug )

        { // don't display changing time when we want to test obhandler

            $time_page = $Timer->get_duration( 'main' );

            $time_queries = $Timer->get_duration( 'sql_queries' );

            $percent_queries = $time_page > 0 ? number_format( 100/$time_page * $time_queries, 2 ) : 0;

            echo 'Page processing time: '.$time_page.' seconds.<br/>';

            echo 'SQL processing time: '.$time_queries.' seconds, '.$percent_queries.'%.<br/>';

        }

 

        if( count( $debug_messages ) )

        {

            echo '<h3>Debug messages</h3><ul>';

            foreach( $debug_messages as $message )

            {

                echo '<li>', format_to_output( $message, 'htmlbody' ), '</li>';

            }

            echo '</ul>';

        }

 

        echo '<h3>DB</h3>';

 

        echo 'Old style queries: ', $querycount, '<br />';

        echo 'DB queries: ', $DB->num_queries, '<br />';

 

        $DB->dump_queries();

 

        echo '</div>';

    }

 

    global $lastmodified, $use_gzipcompression, $use_etags;

 

    // we're sending out by default

    $sendout = true;

 

    if( !isset( $lastmodified ) )

    { // default of lastmodified is now

        $lastmodified = time();

    }

 

 

    // strip each line

    $output = explode("\n", $output);

    $out = '';

    foreach ($output as $v)

        $out .= trim($v) . "\n";

 

    if( $use_etags )

    {    // Generating ETAG

 

        // prefix with PUB or AUT.

        if( is_logged_in() )

            $ETag = '"AUT';    // A private page

        else $ETag = '"PUB'; // and public one

 

        $ETag .= md5( $out ).'"';

        header( 'ETag: '.$ETag );

 

        // decide to send out or not

        if( isset($_SERVER['HTTP_IF_NONE_MATCH'])

                && stripslashes($_SERVER['HTTP_IF_NONE_MATCH']) === $ETag )

        { // check ETag

            $sendout = false;

        }

    }

 

    if( !$sendout )

    {  // send 304 and die

        header( 'Content-Length: 0' );

        header( $_SERVER['SERVER_PROTOCOL'] . ' 304 Not Modified' );

        #log_hit();  // log this somehow?

        die;

    };

 

 

    // Send Last-Modified -----------------

    // We should perhaps make this the central point for this.

    // Also handle Cache-Control and Pragma here (with global vars).

 

    // header( 'Last-Modified: ' . gmdate('D, d M Y H:i:s \G\M\T', $lastmodified) );

 

 

    // GZIP encoding

    if( $use_gzipcompression

            && isset($_SERVER['HTTP_ACCEPT_ENCODING'])

            && strstr($_SERVER['HTTP_ACCEPT_ENCODING'], 'gzip') )

    {

        $out = gzencode($out);

        header( 'Content-Encoding: gzip' );

    }

 

 

    header( 'Content-Length: '. strlen($out) );

    return $out;

 

 

function url_add_param( $url, $param, $moredelim = '&amp;' )

    if( empty($param) )

    {

        return $url;

    }

 

    if( strpos( $url, '?' ) !== false )

    {    // There are already params in the URL

        return $url.$moredelim.$param;

    }

 

    // These are the first params

    return $url.'?'.$param;

 

 

    $parts = explode( '?', $url );

    if( isset($parts[1]) )