FINAL CLASS FRUFFL_ExceptionCore EXTENDS FRUFFL_Exception{}

       

        FINAL CLASS FRUFFL_Core extends FRUFFL_InstancieOpziener

        {      

               

                public static function init(FRUFFL_BootConstructeur $FRUFFL_BootConstructeur)

                {

                        return self::instance(__CLASS__);

                }

                       

                public function run(FRUFFL_BootConstructeur $FRUFFL_BootConstructeur)

                {

                        try

                        {

                                if(!FRUFFL::registryExists('FRUFFL_EXECUTED_FRUFFL_Store'))

                                        throw new FRUFFL_ExceptionDispatcher

                                                ('Unable to init Dispatcher. FRUFFL_Store not executed.');

                                               

                                if(!FRUFFL::registryExists('FRUFFL_EXECUTED_FRUFFL_Instellingen'))

                                        throw new FRUFFL_ExceptionDispatcher

                                                ('Unable to init Dispatcher. FRUFFL_Instellingen not executed.');

                        }

                        catch(FRUFFL_Exception $e){FRUFFL_Exception::w($e);}

                       

                        $this->activate(__CLASS__);

                        $this->execute();

                        return $this;

                }

                       

                protected function execute()

                {

                        try

                        {

                                if

                                (

                                        !$this->phpTest

                                        (

                                                FRUFFL::registryGet('FRUFFL_PHP_MIN_VERSION'),

                                                FRUFFL::registryGet('FRUFFL_PHP_MAX_VERSION')

                                        )

                                )

                                        throw new FRUFFL_ExceptionCore

                                                ('Invalid PHP-Version.');

                       

                                if(!$this->requestTest())

                                        throw new FRUFFL_ExceptionCore

                                                ('haxx != rulez.');

                                       

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_ENVIRONMENT_REMOTE_IP',

                                        $_SERVER['REMOTE_ADDR']

                                );

                               

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_ENVIRONMENT',

                                        (

                                                FRUFFL::registryGet('FRUFFL_ENVIRONMENT_DEVELOPMENT_IP') == $_SERVER['REMOTE_ADDR']

                                                        ? 'DEVELOPMENT'

                                                        : 'PRODUCTION'

                                        )

                                );

                               

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_ROUTING_TABLE',

                                        array()

                                );

                               

                               

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_ENVIRONMENT_URI',

                                        $this->getUri()

                                );

                                                       

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_ENVIRONMENT_URIBASE',

                                        $this->getBase

                                        (

                                                FRUFFL::registryGet('FRUFFL_ENVIRONMENT_URI'),

                                                FRUFFL::registryGet('FRUFFL_ENVIRONMENT_REWRITE_BASE_'.FRUFFL::registryGet('FRUFFL_ENVIRONMENT'))

                                        )

                                );

                               

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_ENVIRONMENT_URIPATH',

                                        $this->getPath

                                        (

                                                FRUFFL::registryGet('FRUFFL_ENVIRONMENT_URI'),

                                                FRUFFL::registryGet('FRUFFL_ENVIRONMENT_URIBASE')

                                        )

                                );

                               

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_COOKIE_GLOBAL_PREFIX',

                                        'FRUFFL_COOKIE_'

                                                .'_'

                                                .sha1

                                                (

                                                        $_SERVER['SERVER_NAME']

                                                                .$_SERVER['SERVER_PORT']

                                                                .FRUFFL::registryGet('FRUFFL_ENVIRONMENT_URIBASE')

                                                )

                                                .'_'

                                );

                               

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_COOKIE_LOCAL_PREFIX',  

                                        'FRUFFL_COOKIE_'

                                                .'_'

                                                .sha1

                                                (

                                                        $_SERVER['SERVER_NAME']

                                                                .$_SERVER['SERVER_PORT']

                                                                .FRUFFL::registryGet('FRUFFL_ENVIRONMENT_URIBASE')

                                                                .FRUFFL::registryGet('FRUFFL_ENVIRONMENT_URIPATH')

                                                )

                                                .'_'

                                );

                               

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_SESSION_NAME',

                                        'FRUFFL_SESSION_'

                                                .'_'

                                                .sha1

                                                (

                                                        $_SERVER['SERVER_NAME']

                                                                .$_SERVER['SERVER_PORT']

                                                                .FRUFFL::registryGet('FRUFFL_ENVIRONMENT_URIBASE')

                                                )

                                                .'_'

                                );

                               

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_REQUEST_EXTRACTED_GET',

                                        $this->cleanup_incoming

                                        (

                                                $this->parse_incoming($_GET),

                                                FRUFFL::registryGet('FRUFFL_REQUEST_CLEANVARS_GET'),

                                                FRUFFL::registryGet('FRUFFL_REQUEST_CLEANVARS_GET_IGNORE'),

                                                FRUFFL::registryGet('FRUFFL_REQUEST_CLEANVARS_GET_UNSET_UNREGISTERED')

                                        )

                                );                                     

                               

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_REQUEST_EXTRACTED_POST',

                                        $this->cleanup_incoming

                                        (

                                                $this->parse_incoming($_POST),

                                                FRUFFL::registryGet('FRUFFL_REQUEST_CLEANVARS_POST'),

                                                FRUFFL::registryGet('FRUFFL_REQUEST_CLEANVARS_POST_IGNORE'),

                                                FRUFFL::registryGet('FRUFFL_REQUEST_CLEANVARS_POST_UNSET_UNREGISTERED')

                                        )

                                );

                               

                                $tmp_cookie = $this->parse_incoming($_COOKIE);

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_REQUEST_EXTRACTED_COOKIE_GLOBAL',

                                        $this->parse_incoming_cookie($tmp_cookie, FRUFFL::registryGet('FRUFFL_COOKIE_GLOBAL_PREFIX'))

                                );

                                FRUFFL::registryAdd

                                (

                                        'FRUFFL_REQUEST_EXTRACTED_COOKIE_LOCAL',

                                        $this->parse_incoming_cookie($tmp_cookie, FRUFFL::registryGet('FRUFFL_COOKIE_LOCAL_PREFIX'))

                                );

                                unset($tmp_cookie);

                               

                               

                                set_magic_quotes_runtime(0);

                                $this->ini

                                (

                                        array_merge

                                        (

                                                FRUFFL::registryGet('FRUFFL_PHP_INI'),

                                                array(

                                                        // auto-overwrites

                                                        'session.name' => FRUFFL::registryGet('FRUFFL_SESSION_NAME'),

                                                        'session.cookie_path' => FRUFFL::registryGet('FRUFFL_ENVIRONMENT_URIBASE'),

                                                        'magic_quotes_gpc' => 0,

                                                        'magic_quotes_runtime' => 0,

                                                        'magic_quotes_sybase' => 0,

                                                        'register_globals' => 'off'

                                                )

                                        )

                                );

                               

                                session_start();

                               

                                if(isset($_COOKIE[FRUFFL::registryGet('FRUFFL_SESSION_NAME')]))

                                {

                                        FRUFFL::registryAdd

                                        (

                                                'FRUFFL_SESSION_ID',

                                                $_COOKIE[FRUFFL::registryGet('FRUFFL_SESSION_NAME')]

                                        );

                                        FRUFFL::registryAdd

                                        (

                                                'FRUFFL_SESSION_COOKIE',

                                                true

                                        );

                                }

                                else

                                {                              

                                        FRUFFL::registryAdd

                                        (

                                                'FRUFFL_SESSION_ID',

                                                NULL

                                        );

                                        FRUFFL::registryAdd

                                        (

                                                'FRUFFL_SESSION_COOKIE',

                                                false

                                        );

                                }

                               

                                // forward to valid uri

                                if

                                (

                                        $valide_uri = $this->get_cleanup

                                        (

                                                FRUFFL::registryGet('FRUFFL_ENVIRONMENT_URIPATH'),

                                                FRUFFL::registryGet('FRUFFL_ENVIRONMENT_URI'),

                                                FRUFFL::registryGet('FRUFFL_ENVIRONMENT_URIBASE'),

                                                FRUFFL::registryGet('FRUFFL_REQUEST_EXTRACTED_GET')

                                        )

                                )

                                {

                                        FRUFFL::registryAdd

                                        (

                                                'FRUFFL_HEADER_FORWARDTO',

                                                $valide_uri

                                        );

                                }

                                else

                                {

                                        // dump post-vars from session

                                }

                        }

                        catch(FRUFFL_Exception $e){FRUFFL_Exception::w($e);}

                       

                }

               

                private function get_cleanup($env_path, $env_uri, $env_base, array $clean_query)

                {

 

                        // repair broken uri-parts

                        // mod_rewrite: last arg can't be a php-file

                        // !mod_rewrite: last arg can't be a php-file; first arg must be index.php

                        // create query-string from cleaned get-vars

                       

                       

                        // kill query-string to compare it with path

                        $uri = $env_uri;

                        if(false !== ($i = strpos($uri, '?')))

                                $uri = substr($env_uri, 0, ($i));                      

                        $uri = rtrim($uri, '/');                       

                        $valide_uri = $uri;

                       

                       

                        $qry = '';     

                        if(!empty($clean_query))

                        {                              

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

                                {

                                        if(is_array($v))

                                        {

                                                $str .= empty($str) ? '' : '&';

                                                $str .= $k.'='.implode('|', $clean_query[$k]);

                                        }

                                       

                                        if(is_scalar($v) && $v !== NULL)

                                        {

                                                $str .= empty($str) ? '' : '&';

                                                $str .= $k.'='.$v;

                                        }

                                       

                                        if($v === NULL)

                                        {

                                                $str .= empty($str) ? '' : '&';

                                                $str .= $k;

                                        }

                                }                      

                                       

                                $qry = '?'.$qry.$str;

                        }

                       

                       

                        // base ends never with '.php' if mod_rewrite is enabled: kill *.php

                        if(substr(strtolower(pathinfo($env_base, PATHINFO_EXTENSION)), -3) != 'php')

                        {

                                       

                                if(substr(strtolower(pathinfo($uri, PATHINFO_EXTENSION)), -3) == 'php')

                                        $valide_uri = str_replace('/'.substr($uri, (strlen(strtolower(pathinfo($uri, PATHINFO_FILENAME)).'.php') * -1)), NULL, $uri);

                        }

                        // mod_rewrite is disabled: kill all *.php-named args (ignore the location '{install_dir}/index.php')

                        else

                        {

 

                                // if current loacation is "{install_dir}/" forward to {install_dir}/index.php[/?qry]

                                if($env_path == $uri)

                                        $valide_uri =  $env_base;

                               

                                // if path = '/' your current location is {install_dir}/index.php

                                if($env_path != '/')

                                        // the last part in path can't be an php-file-name

                                        if(substr(strtolower(pathinfo($uri, PATHINFO_EXTENSION)), -3) == 'php')

                                        {

                                                // the base ({install_dir}/index.php)

                                                // + path without the last part

                                                //

                                                // {install_dir}/index.php/test.php, {install_dir}/index.php/site/test.php...

                                                // kill test.php and forward to the next parent

                                                if($uri != $env_base)

                                                        $valide_uri = str_replace('/'.substr($uri, (strlen(strtolower(pathinfo($uri, PATHINFO_FILENAME)).'.php') * -1)), NULL, $uri);

                                        }

                        }

                       

                        if(preg_match('#(.*)?.php#', $env_uri))

                        {

                        }

                       

                       

                        $valide_uri = $valide_uri.'/'.$qry;

                        if($_SERVER['REQUEST_URI'] != $valide_uri)

                                return $valide_uri;

                       

                        return false;                  

                }

               

                private function phpTest($min = '5', $max = '6')

                {

                        if(version_compare(PHP_VERSION, $min, '>=') && version_compare(PHP_VERSION, $max, "<"))

                                return true;

                        return false;

                }

               

                public function requestTest()

                {

                        foreach(array("_COOKIE", "_ENV", "_FILES", "_GET", "GLOBALS", "_POST", "_SERVER") as $var)

                                if(isset($_REQUEST[$var]) || isset($_FILES[$var]))

                                        return false;

                        return true;

                }

               

                private function ini(array $array)

                {

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

                        {

                                if(is_array($v))

                                        implode('.', $v);

                                       

                                if(is_scalar($v))

                                        ini_set($k, $v);

                        }

                }

               

                private function parse_incoming(array $array)

                {

               

                        $input = array();

                                               

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

                        {

                                if(get_magic_quotes_gpc())

                                        $input[$k] = stripslashes($array[$k]);

                               

                                global $$k;

                                unset($$k);                            

                                unset($GLOBALS[$k]);

                               

                                // Double unset to circumvent the

                                // zend_hash_del_key_or_index hole in PHP <4.4.3 and <5.1.4 (by Tikitiki)

                                unset($$k);

                                unset($GLOBALS[$k]);

                        }

                       

                        return $input;

                }

               

                public function parse_incoming_cookie(array $array, $prefix)

                {

               

                        $l = strlen($prefix);

                       

                        $input = array();

                       

                        foreach($array as $key => $val)

                        {

                                $p = substr($key, 0, $l);

                                $k = str_replace($prefix, NULL, $key);

                                if($p == $prefix)

                                        $input[$k] = $val;

                        }

                       

                        return $input;

                }

               

                public function cleanup_incoming(array $vars, array $clean_vars, array $ignore_vars = array(), $unset_on_unregistered = TRUE)

                {

               

                        $temp = array();

               

                        foreach($clean_vars as $t => $k)

                        {

                                foreach($k as $v)

                                {

                               

                                        if(isset($vars[$v]))

                                                $temp[$v] = $vars[$v];

                                       

                                        if(in_array($v, $ignore_vars))

                                                continue;

                                               

                                        switch($t)

                                        {

                                                case 'url':

                                                                // usefull for redirects: rawencode the given url

                                                                // and add the http://-prefix

                                                                if(isset($temp[$v]))

                                                                {

                                                                        if((substr($temp[$v], 0, 7)  != 'http://') && (substr($temp[$v], 0, 8)  != 'https://'))

                                                                                $temp[$v] = 'http://'.$temp[$v];

                                                                        $temp[$v] = rawurlencode($temp[$v]);

                                                                }

                                                        break;

                                                case 'path':

                                                                // determine all crapy slashes and dot-slash-mixes from a path-var

                                                                // and convert it into a clean '/dir/dir/n/'-path

                                                                if(isset($temp[$v]))

                                                                {

                                                                        $temp[$v] = str_replace(array(chr(0x5C),chr(0x2F).chr(0x2E).chr(0x2E).chr(0x2F),

                                                                                                chr(0x2E).chr(0x2E).chr(0x2F),chr(0x2F).chr(0x2E).

                                                                                                chr(0x2E),chr(0x2F).chr(0x2E),chr(0x2E).chr(0x2F),

                                                                                                chr(0x2A)), chr(0x2F), $temp[$v]);

                                                                        $temp[$v] = ereg_replace(chr(0x28).chr(0x2F).chr(0x2B).chr(0x29), chr(0x2F), $temp[$v]);

                                                                        $temp[$v] = (substr($temp[$v], 0, 1)  != chr(0x2F)) ? chr(0x2F).$temp[$v] : $temp[$v];

                                                                        $temp[$v] = (substr($temp[$v], -1, 1) == chr(0x2F)) ? substr($temp[$v],0,strlen($temp[$v])-1) : $temp[$v];

                                                                        $temp[$v] = implode(chr(0x2F), array_map("rawurlencode", (explode(chr(0x2F), $temp[$v]))));

                                                                }

                                                        break;

                                                case 'numeric':

                                                                // numeric-test only

                                                                if(isset($temp[$v]))

                                                                        if(is_numeric($temp[$v]))

                                                                                $temp[$v] = $temp[$v];

                                                        break;

                                                case 'integer':

                                                                // convert all keys in this case into an integer

                                                                if(isset($temp[$v]))

                                                                        $temp[$v] = intval($temp[$v]);

                                                        break;

                                                case 'integer_array':

                                                                // same as 'integer'...

                                                                // an integer-group is separated by pipe i. e. '89|654|1|5|1|sc|7'

                                                                // this case sort the values by size and kill doublets;

                                                                // the result is an array(0,1,5,7,89,654)

                                                                if(isset($temp[$v]))

                                                                {

                                                                        $temp[$v] = @array_unique

                                                                        (

                                                                                @array_map

                                                                                (

                                                                                        'abs',

                                                                                        @array_map

                                                                                        (

                                                                                                'intval',

                                                                                                @explode

                                                                                                (

                                                                                                        '|',

                                                                                                        $temp[$v]

                                                                                                )

                                                                                        )

                                                                                )

                                                                        );

                                                                        @sort($temp[$v]);

                                                                }

                                                        break;

                                                case 'float':

                                                                // convert all keys in this case into an integer

                                                                if(isset($temp[$v]))

                                                                        $temp[$v] = floatval($temp[$v]);

                                                        break;

                                                case 'float_array':

                                                                // same a integer-array for float-vars

                                                                if(isset($temp[$v]))

                                                                {

                                                                        $temp[$v] = @array_unique

                                                                        (

                                                                                @array_map

                                                                                (

                                                                                        'abs',

                                                                                        @array_map

                                                                                        (

                                                                                                'floatval',

                                                                                                @explode

                                                                                                (

                                                                                                        '|',

                                                                                                        $temp[$v]

                                                                                                )

                                                                                        )

                                                                                )

                                                                        );

                                                                        @sort($temp[$v]);

                                                                }

                                                        break;

                                                case 'null':

                                                                // those are keys without values. given values will be  killed

                                                                if(isset($temp[$v]))

                                                                        $temp[$v] = NULL;

                                                        break;

                                                case 'bool':

                                                                // allowes only 0 or 1

                                                                if(isset($temp[$v]))

                                                                        $temp[$v] = (intval($temp[$v]) !== 1) ? 0 : 1;

                                                        break;

                                                case 'hex':

                                                                // set all unallowed chars as 0

                                                                if(isset($temp[$v]))

                                                                        $temp[$v] = preg_replace('/[^a-fA-F0-9]/', dechex(0), $temp[$v]);

                                                        break;

                                        }

                                }

                        }

                       

                       

                        if($unset_on_unregistered)

                        {

                                ksort($temp);

                                return $temp;

                        }

                                       

                        $vars = array_merge($temp, $vars);

                       

                        ksort($vars);                  

                        return $vars;

 

                }

               

                private function getProtocol()

                {

                        return ((is($https = $_SERVER['HTTPS']) && $https == 'on') ? 'https' : 'http');

                }

               

                private function getUri($uri = NULL)

                {

                               

                        if($uri === NULL)

                        {

                                if

                                (

                                        isset($_SERVER['HTTP_X_REWRITE_URL'])

                                )

                                {

                                        return rtrim($_SERVER['HTTP_X_REWRITE_URL'], '/');

                                }

                                else

                                if

                                (

                                        isset($_SERVER['IIS_WasUrlRewritten']) && $_SERVER['IIS_WasUrlRewritten'] == '1'

                                        &&

                                        isset($_SERVER['UNENCODED_URL']) && !empty($_SERVER['UNENCODED_URL'])

                                )

                                {

                                        return rtrim($_SERVER['UNENCODED_URL'], '/');

                                }

                                else

                                if

                                (

                                        isset($_SERVER['REQUEST_URI'])

                                )

                                {

                                        $uri = $_SERVER['REQUEST_URI'];

                                       

                                        $url = ($protocol = $this->getProtocol()).'://'.

                                        (

                                                (

                                                        is($server = $_SERVER['HTTP_HOST'])

                                                        &&

                                                        !empty($server)

                                                )

                                                ? $server

                                                : $protocol.

                                                        (

                                                                (

                                                                        ($protocol == 'http' && $port = $_SERVER['SERVER_PORT']) == 80

                                                                        ||

                                                                        ($protocol == 'https' && $port = 443)

                                                                )

                                                                ? $_SERVER['SERVER_NAME']

                                                                : $_SERVER['SERVER_NAME'].':'.$_SERVER_['SERVER_PORT']

                                                        )

                                        );

                                       

                                        if (strpos($uri, $url) === 0)

                                            $uri = substr($uri, strlen($url));

                                           

                                        return rtrim($uri, '/');

                                       

                                }

                                else

                                if

                                (

                                        isset($_SERVER['ORIG_PATH_INFO'])

                                )

                                {

                                        $uri = $_SERVER['ORIG_PATH_INFO'];

                                       

                                        if(!empty($_SERVER['QUERY_STRING']))

                                                $uri .= '?'.$_SERVER['QUERY_STRING'];

                                               

                                }

                                else

                                {

                                        return rtrim($uri, '/');

                                }                              

                               

                        }

                       

                        return rtrim($uri, '/');

                }

               

                private function getBase($uri, $base = NULL)

                {

                        if((null !== $base) && !is_string($base))

                                return;

                       

                        if($base === NULL)

                        {

                                 $filename = (isset($_SERVER['SCRIPT_FILENAME'])) ? basename($_SERVER['SCRIPT_FILENAME']) : '';

                       

                                if((isset($_SERVER['SCRIPT_NAME']) && basename($_SERVER['SCRIPT_NAME']) === $filename))

                                {

                                        $base = $_SERVER['SCRIPT_NAME'];

                                }

                                else

                                if(isset($_SERVER['PHP_SELF']) && basename($_SERVER['PHP_SELF']) === $filename)

                                {

                                         $base = $_SERVER['PHP_SELF'];

                                }

                                else

                                if(isset($_SERVER['ORIG_SCRIPT_NAME']) && basename($_SERVER['ORIG_SCRIPT_NAME']) === $filename)

                                {

                                         $base = $_SERVER['ORIG_SCRIPT_NAME'];

                                }

                                else

                                {

                                        $self    = isset($_SERVER['PHP_SELF']) ? $_SERVER['PHP_SELF'] : '';

                                        $file    = isset($_SERVER['SCRIPT_FILENAME']) ? $_SERVER['SCRIPT_FILENAME'] : '';

                                        $dirs    = array_reverse(explode('/', trim($file, '/')));

                                        $base    = '';

                                        $i       = 0;

                                        $l       = count($dirs);

                                       

                                        do

                                        {

                                                $base    = '/'.$dirs[$i].$base;

                                                ++$i;

                                        }

                                        while (($l > $i) && (false !== ($c = strpos($self, $base))) && (0 != $c));

                                }

                               

                                if(0 === strpos($uri, $base))

                                        return $base;

                                       

                                       

                                if(0 === strpos($uri, dirname($base)))

                                        return rtrim(dirname($base), '/');

                               

                                $basename = basename($base);

                                if(empty($basename) || !strpos($uri, $basename))

                                        return '';

                                       

                                if ((strlen($uri) >= strlen($base)) && ((false !== ($i = strpos($uri, $base))) && ($i !== 0)))

                                        $base = substr($uri, 0, $i + strlen($base));

                                       

                        }

                       

                        return rtrim($base, '/');

                       

                }

               

                private function getPath($uri = NULL, $base = NULL)

                {      

                        if((null !== $uri) && !is_string($uri))

                                return;

                               

                        if((null !== $base) && !is_string($base))

                                return;

                               

                        if($base == '/' || $base == '\')

                        if (false !== ($i = strpos($uri, '?')))