<?php
/* *** ** * fastIce Framework.
** *
*
    fastIce alpha 0.5.3 � 2010~2011 noferi Micka�l/m2m - noferov@gmail.com - Some Rights Reserved.

    Except where otherwise noted, this work is licensed under a Creative Commons Attribution 3.0 License, CC-by-nc-sa
    terms of licence CC-by-nc-sa are readable at : http://creativecommons.org/licenses/by-nc-sa/3.0/
*
** *
* ** *** */

// global config .......................................

define ('template','template');

define('redisServer','127.0.0.1');
define('redisPrefix','fastice');

define('site_url','/');
define('site_full_url','http:yoursite.com/');
define('mail_domain','yoursite.com');

define('defaultTitle','the default title');
define('defaultKeywords','my, keywords');
define('defaultDescription','a nice description');
define('defaultMeta','');

define('defaultLangage','en');
setlocale (LC_ALL, 'fr_FR.utf8','fra');

ini_set('display_errors', 1);

/* ********************* **/

define ('noFollowKeyWord','[$$]');

global $nofollow,$nodesigncache,$norendercache,$renderInclude,$redis,$global_current_file,$fnc,$designPath,$commonDesignPath,$currentDesign,$currentLangage,$urlpath;
$redis = new Redis(); if(!$redis->connect(redisServer)) die('cannot rape the database ...');

if(isset($_GET['deleteCache']))
{   $cache = $redis->keys(redisPrefix.':designCache:*');
    foreach($cache as $c) $redis->delete($c);
}

function setInfo($langage,$upath)
{   global $currentLangage,$canonicalurl,$urlpath;$currentLangage=$langage;$urlpath=$upath;
    if($langage!=defaultLangage)
    {   $canonicalurl=site_full_url.$langage.'/';
        if($upath != '') $canonicalurl.=$upath.'/';
    }
    else
    { $canonicalurl=site_full_url;
      if($upath != '') $canonicalurl.=$upath.'/';
    }
}

function getlang(){global $currentLangage;return $currentLangage;}
function getUrlPath(){global $urlpath;return $urlpath;}

define ('site_full_path',dirname(__FILE__));
define ('site_path',site_full_path.'/files');
define ('common_path','common');
define ('module_path','plugins');
define ('design_path','constants.ini');

$nofollow=0;$nodesigncache=0;$norendercache=0;$renderInclude=array();$global_current_file='';$fnc=array();$designPath='';$commonDesignPath='';
/* additionnal keywords for render */
function addToRender($word,$txt) { global $renderInclude,$currentDesign; $renderInclude[$word] .= $txt; setDesignCache($currentDesign.'/'.$word,$txt); }
function setRender($word,$txt) { global $renderInclude,$currentDesign; $renderInclude[$word] = $txt; setDesignCache($currentDesign.'/'.$word,$txt); }
function extendRenderWord($word) { if(!isset($renderWords[$word])) array_push($renderWords,$word); }
global $renderWords; $renderWords = array('head','js','jquery','title','meta','style','keywords','description');

function addToHead($t){addToRender('head',$t);}function setHead($t){setRender('head',$t);}$renderInclude['head']='';function addToJs($t){addToRender('js',$t);}function setJs($t){setRender('js',$t);}$renderInclude['js']='';function addToJquery($t){addToRender('jquery',$t);}function setJquery($t){setRender('jquery',$t);}$renderInclude['jquery']='';function addToTitle($t){addToRender('title',$t);}function setTitle($t){setRender('title',$t);}$renderInclude['title']='';function addToMeta($t){addToRender('meta',$t);}function setMeta($t){setRender('meta',$t);}$renderInclude['meta']='';function addToStyle($t){addToRender('style',$t);}function setStyle($t){setRender('style',$t);}$renderInclude['style']='';function addToKeywords($t){addToRender('keywords',$t);}function setKeywords($t){setRender('keywords',$t);}$renderInclude['keywords']='';function addToDescription($t){addToRender('description',$t);}function setDescription($t){setRender('description',$t);}$renderInclude['description']='';
//foreach($renderWords as $word){ print('function addTo'.ucfirst($word).'($t){addToRender(\''.$word.'\',$t);}function set'.ucfirst($word).'($t){setRender(\''.$word.'\',$t);}$renderInclude[\''.$word.'\']=\'\';'); } die();

function renderPage($url,$page)
{   global $renderInclude, $design_cache, $canonicalurl,$currentLangage;
    if(empty($renderInclude['title'])) $renderInclude['title'] = $design_cache['ini:title'];
    if(empty($renderInclude['keywords'])) $renderInclude['keywords'] = $design_cache['ini:keywords'];
    if(empty($renderInclude['description'])) $renderInclude['description'] = $design_cache['ini:description'];
    if(empty($renderInclude['meta'])) $renderInclude['meta'] = $design_cache['ini:meta'];
    $renderInclude['meta'] .= '<link rel="canonical" href="'.$canonicalurl.$url.'" /><meta name="generator" content="fastIce" />';
    return str_replace(array('[head]','[js]','[jquery]','[meta]','[style]','[keywords]','[description]','[title]','[url]','[lang]'),array($renderInclude['head'],$renderInclude['js'],$renderInclude['jquery'],$renderInclude['meta'],$renderInclude['style'],$renderInclude['keywords'],$renderInclude['description'],$renderInclude['title'],site_url,$currentLangage),$page);
}

function get_include_contents($filename)
{   if(is_file($filename))
    {   ob_start(); include ($filename); $contents = ob_get_contents(); ob_end_clean(); return $contents;
    } return false;
}

function showPage($key,$seed=1)
{   global $fnc,$global_current_file,$need_fix_name,$designPath,$commonDesignPath,$redis;

    if($seed){ $designPath=$key; $commonDesignPath=''; }

    $dpath = $designPath; $cdpath = $commonDesignPath;

    $out = '';
    if($seed)
    {   global $seedPath,$seedKey,$design_cache,$currentLangage,$urlpath; $seedPath=$urlpath.'/'.$key; $seedKey=$key;

        $design_cache = $redis->hgetall(redisPrefix.':designCache:'.$currentLangage.':'.$seedPath);

        if(!isset($design_cache['ini:loaded'])) // redis page info not set
        {   //print '<br>loading ini';
            $page_opt = array('loaded'=>1);
            $path = template.'/'.$key.'/'.$key.'.ini';
            if(is_file($path)) $page_opt = array_merge(parse_ini_file($path),$page_opt);
            $outarray = array(); foreach($page_opt as $name=>$value) $outarray['ini:'.$name] = $value;
            $design_cache = array_merge($design_cache,$outarray);
            $redis->hMset(redisPrefix.':designCache:'.$currentLangage.':'.$seedPath,$outarray);
        }

        if(!isset($design_cache['ini:skeleton'])) $design_cache['ini:skeleton'] = 'normal';
        if(!isset($design_cache['ini:title'])) $design_cache['ini:title'] = defaultTitle;
        if(!isset($design_cache['ini:keywords'])) $design_cache['ini:keywords'] = defaultKeywords;
        if(!isset($design_cache['ini:description'])) $design_cache['ini:description'] = defaultDescription;
        if(!isset($design_cache['ini:meta'])) $design_cache['ini:meta'] = defaultMeta;

        if(!isset($design_cache['ini:sk']))
        {   //print '<br>loading skeleton';
            $path = template.'/'.common_path.'/skeleton/'.$design_cache['ini:skeleton'].'.html';
            if(is_file($path))
            {   $out = file_get_contents($path); $redis->hset(redisPrefix.':designCache:'.$currentLangage.':'.$seedKey,'ini:sk',$out);
            } else $out = '<h3>page skeleton not found !</h3><br><b>'.$path.'</b>';
        } else $out = $design_cache['ini:sk'];

    } else {
        $global_current_file = $key;
        $out = getDesign($key);
        $designPath .= '/'.$key; $commonDesignPath .= '/'.$key;
    }

    global $renderInclude;
    // global $renderWords,$renderInclude; foreach($renderWords as $w) print '$d=getDesignCache(\''.$w.'\');if($d!==false){if(!isset($renderInclude[\''.$w.'\']))$renderInclude[\''.$w.'\']=$d;else $renderInclude[\''.$w.'\'].=$d;}';die();
    $d=getDesignCache('head');if($d!==false){if(!isset($renderInclude['head']))$renderInclude['head']=$d;else $renderInclude['head'].=$d;}$d=getDesignCache('js');if($d!==false){if(!isset($renderInclude['js']))$renderInclude['js']=$d;else $renderInclude['js'].=$d;}$d=getDesignCache('jquery');if($d!==false){if(!isset($renderInclude['jquery']))$renderInclude['jquery']=$d;else $renderInclude['jquery'].=$d;}$d=getDesignCache('title');if($d!==false){if(!isset($renderInclude['title']))$renderInclude['title']=$d;else $renderInclude['title'].=$d;}$d=getDesignCache('meta');if($d!==false){if(!isset($renderInclude['meta']))$renderInclude['meta']=$d;else $renderInclude['meta'].=$d;}$d=getDesignCache('style');if($d!==false){if(!isset($renderInclude['style']))$renderInclude['style']=$d;else $renderInclude['style'].=$d;}$d=getDesignCache('keywords');if($d!==false){if(!isset($renderInclude['keywords']))$renderInclude['keywords']=$d;else $renderInclude['keywords'].=$d;}$d=getDesignCache('description');if($d!==false){if(!isset($renderInclude['description']))$renderInclude['description']=$d;else $renderInclude['description'].=$d;}

    //if($out && $out!='') $out = preg_replace_callback(includePattern,'showPage',$out); else $out = '';
    if($out && $out!='')
    {   $offset=0;
        for(;;)
        {   $start = strpos($out,'�',$offset);
            if($start === false) break;
            $off = $start+2;
            $end = strpos($out,'�',$off);
            if($end === false) break;
            $size = $end-$off;
            $word = substr($out,$off,$size);
            $out = substr_replace($out,showPage($word,0),$start,$size+4);
            $offset = $start;
        }
    } else $out = '';

    if($seed && $need_fix_name) $out = str_replace(noFollowKeyWord,'�', $out);
    $designPath = $dpath; $commonDesignPath = $cdpath;

    return $out;
}

function getArgs($string,$word,$separator)
{   $wordSize = strlen($word);
    if(substr($string,0,$wordSize) == $word)
    {   $args = substr($string,$wordSize);
        $args = explode($separator,$args);
        array_unshift($args,count($args));
        return $args;
    }   return array(0);
}

global $design_cache;
function noDesignCache(){global $nodesigncache;$nodesigncache=1;}
function setDesignCache($design,$content)
{   global $nodesigncache,$seedPath,$designPath,$currentLangage,$redis;
    if(!$nodesigncache)
        $redis->hset(redisPrefix.':designCache:'.$currentLangage.':'.$seedPath,$designPath.'/'.$design,$content);
}

function getDesignCache($design)
{   global $design_cache,$designPath,$redis;
    $k = $designPath.'/'.$design; if(isset($design_cache[$k])) return $design_cache[$k];
    return false;
}

function getDesign($design)
{   if($design == '') return ''; $d = getDesignCache($design); if($d !== false) return $d;
    global $nofollow,$last_design,$need_fix_name,$redis,$nodesigncache,$currentDesign; $nodesigncache=0; $currentDesign=$design;
    if($design == 'nofolow'){ $nofollow=1; $need_fix_name=1; return ''; }
    if($design == 'folow'){   $nofollow=0; return ''; }
    if($nofollow) { return noFollowKeyWord.$design.noFollowKeyWord; }
    global $designPath,$commonDesignPath,$currentLangage;

    if(false === strstr($design,'|'))
    {
        // search design in the template folder, absolute path with lang prefix
        $path = template.'/'.$designPath.'/'.$currentLangage.'.'.$design.'.php'; // template folder
        if(file_exists($path)) { $d=get_include_contents($path);if($d!==false){setDesignCache($design,$d);return $d;}}

        // search design in the template folder, absolute path
        $path = template.'/'.$designPath.'/'.$design.'.php'; // template folder
        if(file_exists($path)) { $d=get_include_contents($path);if($d!==false){setDesignCache($design,$d);return $d;}}

        // search design in the common template folder, absolute path with lang prefix
        $path = template.'/'.common_path.$commonDesignPath.'/'.$currentLangage.'.'.$design.'.php';
        if(file_exists($path)) { $d=get_include_contents($path);if($d!==false){setDesignCache($design,$d);return $d;}}

        // search design in the common template folder, absolute path
        $path = template.'/'.common_path.$commonDesignPath.'/'.$design.'.php';
        if(file_exists($path)) { $d=get_include_contents($path);if($d!==false){setDesignCache($design,$d);return $d;}}

        // search design in the common folder, absolute path with lang prefix
        $path = common_path.$commonDesignPath.'/'.$currentLangage.'.'.$design.'.php';
        if(file_exists($path)) { $d=get_include_contents($path);if($d!==false){setDesignCache($design,$d);return $d;}}

        // search design in the common folder, absolute path
        $path = common_path.$commonDesignPath.'/'.$design.'.php';
        if(file_exists($path)) { $d=get_include_contents($path);if($d!==false){setDesignCache($design,$d);return $d;}}

        // search design in the common template folder, just file, no path, lang prefix
        $path = template.'/'.common_path.'/'.$currentLangage.'.'.$design.'.php';
        if(file_exists($path)) { $d=get_include_contents($path);if($d!==false){setDesignCache($design,$d);return $d;}}

        // search design in the common template folder, just file, no path
        $path = template.'/'.common_path.'/'.$design.'.php';
        if(file_exists($path)) { $d=get_include_contents($path);if($d!==false){setDesignCache($design,$d);return $d;}}

        // search design in the common folder, just file, no path, lang prefix
        $path = common_path.'/'.$currentLangage.'.'.$design.'.php';
        if(file_exists($path)) { $d=get_include_contents($path);if($d!==false){setDesignCache($design,$d);return $d;}}

        // search design in the common folder, just file, no path
        $path = common_path.'/'.$design.'.php';
        if(file_exists($path)) { $d=get_include_contents($path);if($d!==false){setDesignCache($design,$d);return $d;}}

        // search design in constant files
        global $global_constants,$seedPath,$seedKey;
        if(!isset($global_constants))
        {   //$global_constants = $redis->hgetall(redisPrefix.':designCache:'.$currentLangage.':'.$seedPath.':constant');
            //if(empty($global_constants))
            {   $global_constants = array();
                //print '<br>loading constants';
                // common constants
                $path = template.'/'.common_path.'/'.design_path;
                if(is_file($path)) $constants = parse_ini_file($path,true);

                //print '<pre>';print_r($constants);print '</pre>';

                // page specific constants
                $path = template.'/'.$seedKey.'/'.design_path;
                if(is_file($path)) $constants = array_merge_recursive($constants,parse_ini_file($path,true));
                if(isset($constants))
                {   //print '<pre>';print_r($constants);print '</pre>';
                    foreach($constants as $name=>$sub)
                    {   if($name == $currentLangage || $name == 'common')
                            foreach($sub as $cnt=>$val) $global_constants[$cnt] = $val;
                    }
                }
                //$redis->hmset(redisPrefix.':designCache:'.$currentLangage.':'.$seedPath.':constant',$global_constants);
                //print '<pre>';print_r($global_constants);print '</pre>';
            }
        }
        if(isset($global_constants[$design])){$d=$global_constants[$design];setDesignCache($design,$d);return $d;}
    }
    else
    {   $mdl = explode('|',$design);
        if(isset($mdl[0]))
        {   $mdl = $mdl[0];
            $mdlargs = getArgs($design,$mdl.'|','|');
            if($mdlargs[0] > 0)
            {   $fn = 'fn_'.$mdl;
                ob_start();
                if(function_exists($fn)) $fn($mdlargs);
                else    {   $path = module_path.'/'.$mdl.'/'.$mdl.'.php';
                        if(is_file($path))
                        {   //print '<b> load module '.$mdl.' </b>';
                            include($path); $fn($mdlargs);
                        }// else { print '<br>module not found or invalid : <b>'.$mdl.'</b><br>args : '; print_r($mdlargs); }
                    }
                $out = ob_get_contents(); ob_end_clean();
                setDesignCache($design,$out); return $out;
            }
        }
    }

    return '<span style="color:red;">'.$design.' not found!</span>';
}

function fillDesign($data, $design, $callback=false)
{   $design = getDesign($design);
    $keywords = array();

    $offset=0; // search all keywords in the design
    for(;;)
    {   $start = strpos($design,'$',$offset);
        if($start === false) break;
        $off = $start+1;
        $end = strpos($design,'$',$off);
        if($end === false) break;
        $size = $end-$off;
        $word = substr($design,$off,$size);
        $keywords[] = $word;
        $offset = $end+1;
    }//print '<pre>';print_r($keywords);print '</pre>';

    $out = '';
    if($callback !== false)
    {   $n=0;
        if(is_array($callback))
        {   foreach($data as $dta)
            {   $d = $design;
                foreach($keywords as $word)
                {   if(isset($callback[$word])) // specific word callback exist !
                    { if(isset($dta[$word])) $d = str_replace('$'.$word.'$', $callback[$word]($dta[$word],$n), $d); // data contain this word, callback receive the word
                      else $d = str_replace('$'.$word.'$', $callback[$word]($dta,$n), $d); // data not get the word, callback receive all the data
                    } else $d = str_replace('$'.$word.'$','', $d); // else, fill blank
                }
                $out .= $d; $n++;
            }
        }
          else
        {   // callback is a generic function, who get word and complete data
            foreach($data as $dta)
            {   $d = $design;
                foreach($keywords as $word) $d = str_replace('$'.$word.'$', $callback($word,$dta,$n++), $d);
                $out .= $d;
            }
        }
    }
      else
    {   foreach($data as $dta)
        {   $d = $design;
            foreach($keywords as $word => $size)
            {   // no callback, just replace specific word with data, or fill blank if word data not set
                if(isset($dta[$word])) $d = str_replace('$'.$word.'$', $dta[$word]); else $d = str_replace('$'.$word.'$','', $d);
            }
            $out .= $d;
        }
    }
    return $out;
}

function lredisHashFill($listkey, $design, $callback=false, $kprefix='', $ksuffix='', $start=0, $end=-1, &$size=0)
{   global $redis;
    list($keys,$size) = $redis->multi(Redis::PIPELINE)->lRange($listkey,$start,$end)->lSize($listkey)->exec();
    $redis->multi(Redis::PIPELINE); foreach($keys as $k) $redis->hgetall($kprefix.$k.$ksuffix); $data = $redis->exec();
    //print '<pre>';print_r($data);print '</pre>';
    return fillDesign($data,$design,$callback);
}

function sredisHashFill($setkey, $design, $callback=false, $kprefix='', $ksuffix='')
{   global $redis; $keys = $redis->smembers($setkey); $redis->multi(Redis::PIPELINE); foreach($keys as $k) $redis->hgetall($kprefix.$k.$ksuffix); $data = $redis->exec();
    //print '<pre>';print_r($data);print '</pre>';
    return fillDesign($data,$design,$callback);
}

function redisHashFill($hashkey, $design, $callback=false)
{   global $redis;
    return fillDesign(array($redis->hgetall($hashkey)), $design, $callback);
}

function isUserPrivilege($prv)
{ return ( isset($_SESSION['user']) && (( isset($_SESSION['user']['right:all']) && !isset($_SESSION['user']['right:'.$prv]) ) || ( isset($_SESSION['user']['right:'.$prv]) &&  $_SESSION['user']['right:'.$prv] )));
}

?>