<?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] )));
}

?>