2b5f543d76f2b4a627ff718f6cdab62dbd025d79
[pear] / HTML / FlexyFramework.php
1 <?php
2 /* vim: set expandtab tabstop=4 shiftwidth=4: */
3 // +----------------------------------------------------------------------+
4 // | PHP Version 4                                                        |
5 // +----------------------------------------------------------------------+
6 // | Copyright (c) 1997-2002 The PHP Group                                |
7 // +----------------------------------------------------------------------+
8 // | This source file is subject to version 2.02 of the PHP license,      |
9 // | that is bundled with this package in the file LICENSE, and is        |
10 // | available at through the world-wide-web at                           |
11 // | http://www.php.net/license/2_02.txt.                                 |
12 // | If you did not receive a copy of the PHP license and are unable to   |
13 // | obtain it through the world-wide-web, please send a note to          |
14 // | license@php.net so we can mail you a copy immediately.               |
15 // +----------------------------------------------------------------------+
16 // | Authors:  Alan Knowles <alan@akbkhome.com>                           |
17 // +----------------------------------------------------------------------+
18 //
19 // $Id: FlexyFramework.php,v 1.8 2003/02/22 01:52:50 alan Exp $
20 //
21 //  Description
22 //  A Page (URL) to Object Mapper
23 //  Cleaned up version.. - for use on new projects -- not BC!! beware!!!
24
25
26 //-----------------------------------------------------------
27 // Debian APACHE - some idiot disabled AcceptPathInfo - it needs adding back.
28 //-----------------------------------------------------------
29
30  
31  
32 // Initialize Static Options
33 require_once 'PEAR.php';
34 require_once 'HTML/FlexyFramework/Page.php';  
35 require_once 'HTML/FlexyFramework/Error.php';
36 // better done here..
37 require_once 'DB/DataObject.php';
38
39 // To be removed ?? or made optional or something..
40  
41
42 // remove E_ANAL  
43  
44 error_reporting(E_ALL & ~E_STRICT );
45 //ini_set('display_errors','off');
46 //ini_set('log_errors','off');
47
48 //PEAR::setErrorHandling(PEAR_ERROR_TRIGGER, E_USER_ERROR);
49
50
51
52
53 /**
54 * The URL to Object Mapper
55 *
56 * Usage:
57 * Create a index.php and add these lines.
58 *  
59 * ini_set("include_path", "/path/to/application"); 
60 * require_once 'HTML/FlexyFramework.php';
61 * HTML_FlexyFramework::factory(array("dir"=>"/where/my/config/dir/is");
62 *
63 *
64 * the path could include pear's path, if you dont install all the pear 
65 * packages into the development directory.
66 *
67 * It attempts to load a the config file from the includepath, 
68 * looks for ConfigData/default.ini
69 * or ConfigData/{hostname}.ini
70 * if your file is called staging.php rather than index.php 
71 * it will try staging.ini
72 *
73 */
74  
75 class HTML_FlexyFramework {
76     
77     /**
78      * Confirgurable items..
79      * If we set them to 'true', they must be set, otherwise they are optional.
80      */
81     var $project; // base class name
82     var $database; // set to true even if nodatabase=true
83     
84     // optional
85     var $debug = false;
86     var $enable = false; // modules
87     var $disable = false; // modules or permissions
88     var $appName = false;
89     var $appNameShort = false; // appname (which has templates)
90     var $version = false; // give it a version name. (appended to compile dir)
91     var $nodatabase = false; // set to true to block db config and testing.
92     var $fatalAction = false; // page to redirct to on failure. (eg. databse down etc.)
93     var $charset = false; // default UTF8
94     var $dataObjectsCache = true;  // use dataobjects ini cache.. - let's try this as the default behaviour...
95     var $dataObjectsCacheExpires = 72000; // 20 hours..
96     var $languages = false; // language settings -- see _handlelanguage
97     var $projectExtends = false; // if this is an array, it's a fallback of 'Projects' that can be called
98     
99
100     
101     // derived.
102     var $cli = false; // from cli 
103     var $run = false; // from cli
104     var $enableArray = false; // from enable.
105     var $classPrefix = false; // from prject.
106     var $baseDir = false ; // (directory+project)
107     var $rootDir = false ; // (directory that index.php is in!)
108     
109     var $baseURL = false;
110     var $rootURL = false ; // basename($baseURL)
111     
112     var $page = false; // active page..
113     var $timer = false; // the debug timer
114     var $calls = false; // the number of calls made to run!
115     var $start = false; // the start tiem.
116     
117     var $baseRequest = '';
118     var $ext; // the striped extention.
119     
120     var $dataObjectsOriginalIni = ''; // 1 houre..
121     
122     // used to be $_GLOBALS[__CLASS__]
123     
124     static $singleton; 
125     
126     
127     /**
128      * 
129      * Constructor - with assoc. array of props as option
130      * called by index.php usually, and runs the app code,
131      *
132      * uses 'universal construcor' format, so the argument relates directly to properties of this object.
133      * 
134      */
135     
136     
137     function __construct($config)
138     {
139         if (isset(self::$singleton)) {
140             trigger_error("FlexyFramework Construct called twice!", E_ERROR);
141         }
142         
143         self::$singleton = $this;
144         
145         $this->calls = 0;
146
147         $m = explode(' ',microtime());
148         $this->start = $m[0] + $m[1];
149         
150         $config = $this->loadModuleConfig($config);
151         
152         foreach($config as $k=>$v) {
153             $this->$k = $v;
154         }
155         $this->_parseConfig();
156
157         // echo '<PRE>'; print_r($this);exit;
158         if ($this->cli) {
159             $args = $_SERVER['argv'];
160             array_shift($args );
161             array_shift($args );
162             $this->_run($this->run,false,$args);
163             return;
164         }
165
166         // handle apache mod_rewrite..
167         // it looks like this might not work anymore..
168         
169         /*
170          *
171 <IfModule mod_rewrite.c>
172 RewriteEngine On
173 RewriteBase /
174 RewriteRule ^/web.hpasite/index\.local.php$ - [L]
175 RewriteCond %{REQUEST_FILENAME} !-f
176 RewriteCond %{REQUEST_FILENAME} !-d
177 RewriteRule ^(.+)$ /web.hpasite/index.local.php [L,NC,E=URL:$1]
178 </IfModule>
179 */ 
180         
181         if (!empty($_SERVER['REDIRECT_STATUS'])  && !empty($_SERVER['REDIRECT_URL'])) {
182           // phpinfo();exit;
183             $sn = $_SERVER['SCRIPT_NAME'];
184             $sublen = strlen(substr($sn , 0,  strlen($sn) - strlen(basename($sn)) -1));
185             //var_dump(array($sn,$subdir,basename($sn)));exit;
186           
187             //var_dump($_SERVER['SCRIPT_NAME'] . substr($_SERVER['REDIRECT_URL'],$sublen));
188             $this->_run($_SERVER['SCRIPT_NAME'] .  substr($_SERVER['REDIRECT_URL'], $sublen),false);
189             return ;
190         }
191         // eg... /web.hpasite/index.local.php/Projects
192          $this->_run($_SERVER['REQUEST_URI'],false);
193             
194         
195     }
196     /**
197      * This is the standard way to get information about the application settings.
198      * $ff = HTML_FlexyFramework::get();
199      * if ($ff->SomeVar[...])....
200      *
201      */
202     static function get()
203     {
204         return self::$singleton;
205     }
206     /*
207      * looks for files in the path and load up the default values for config?
208      */
209     function loadModuleConfig($cfg)
210     {
211          
212         $proj = $cfg['project'];
213         $rootDir = realpath(dirname($_SERVER["SCRIPT_FILENAME"]));
214         
215         $cls = $proj.'_Config';
216          if (file_exists($rootDir . '/'.str_replace('_','/', $cls). '.php')) {
217             require_once str_replace('_','/', $cls). '.php';
218             $c = new $cls();
219             if (method_exists($c,'init')) {
220                 $cfg = $c->init($this,$cfg);
221             }
222         }
223         if (empty($cfg['enable'])) {
224             return $cfg;
225         }
226         foreach(explode(',',$cfg['enable']) as $m) {
227             $cls = $proj.'_'. $m . '_Config';
228
229             if (!file_exists($rootDir . '/'.str_replace('_','/', $cls). '.php')) {
230                 continue;
231             }
232             require_once str_replace('_','/', $cls). '.php';
233             $c = new $cls();
234             if (method_exists($c,'init')) {
235                 $cfg = $c->init($this,$cfg);
236             }
237         }
238         return $cfg;
239     }
240     
241   
242     /**
243      * parse the configuration set by the constructor.
244      * 
245      *
246      */
247   
248     function _parseConfig()
249     {
250         
251         // make sure required values are set.. (anything that is not defaulted to false..)
252         foreach(get_class_vars(__CLASS__) as $k =>$v) {
253             if ($v === false && !isset($this->$k)) {
254                 die("$k is not set");
255             }
256         }
257         
258         
259         // enable modules.
260         if (!empty($this->enable)) {
261             $this->enableArray = explode(',', $this->enable);
262             
263             if (!in_array('Core',$this->enableArray ) &&
264                 !in_array('Core', explode(',', $this->disable ? $this->disable : '')))
265             {
266                 $this->enable = 'Core,'. $this->enable ;
267                 $this->enableArray = explode(',', $this->enable);
268             }
269         }
270         // are we running cli?
271         $this->cli = php_sapi_name() == 'cli'; 
272         
273         // will these work ok with cli?
274         $bits = explode(basename($_SERVER["SCRIPT_FILENAME"]), $_SERVER["SCRIPT_NAME"]);
275         if (!$this->cli) {
276             $bits[0] = str_replace('%2F','/',urlencode($bits[0]));
277             $this->baseURL = $bits[0] . basename($_SERVER["SCRIPT_FILENAME"]);
278             // however this is not correct if we are using rewrite..
279             if (!empty($_SERVER['REDIRECT_STATUS'])  && !empty($_SERVER['REDIRECT_URL'])) {
280                 $this->baseURL = substr($bits[0],0,-1); // without the trailing '/' ??
281                 $this->rootURL = $bits[0] == '/' ? '' : $bits[0];
282                 //$this->baseURL = $this->baseURL == '' ? '/' : $this->baseURL;
283                 
284             }
285             //phpinfo();exit;
286             // is this bit used??
287             //if (empty($_SERVER['SCRIPT_NAME'])) {
288                 
289             //    $this->baseURL = ''; // ??? this is if we replace top level...
290             //}
291         }
292         // if cli - you have to have set baseURL...
293         
294         
295         $this->rootDir = realpath(dirname($_SERVER["SCRIPT_FILENAME"]));
296         $this->baseDir = $this->rootDir .'/'. $this->project;
297         if (empty($this->rootURL)) {
298             $this->rootURL = dirname($this->baseURL); 
299             $this->rootURL = ($this->rootURL == '/') ? '' : $this->rootURL;
300         }
301          
302       
303         //var_dump($this->baseURL);
304         
305         if (!isset($this->database) && isset($this->DB_DataObject['database'])) {
306             $this->database = $this->DB_DataObject['database'];
307         }
308         
309          $this->classPrefix   = str_replace('/', '_', $this->project) . '_';
310          // list the available options..
311         if ($this->cli && empty($_SERVER['argv'][1])) {
312             require_once 'HTML/FlexyFramework/Cli.php';
313             $fcli = new HTML_FlexyFramework_Cli($this);
314             $fcli->cliHelp();
315             exit;
316         }
317         
318         
319         // see if it's a framework assignment.
320         $ishelp = false;
321         if ($this->cli) {
322             require_once 'HTML/FlexyFramework/Cli.php';
323             $fcli = new HTML_FlexyFramework_Cli($this);
324             $res = $fcli->parseDefaultOpts();
325             if ($res === true) {
326                 $ishelp = true;
327             }
328              
329         }
330         
331         
332         $this->run = $this->cli ? $_SERVER['argv'][1] : false;
333      
334         
335         $this->_parseConfigDataObjects();
336         if ($this->dataObjectsCache && !$this->nodatabase) {
337             $this->_configDataObjectsCache();
338         }
339         
340         $this->_parseConfigTemplate();
341         $this->_parseConfigMail();
342  
343         //echo '<PRE>';print_r($this);exit;
344         
345         $this->_exposeToPear();
346                 
347
348         $this->_validateEnv();
349         
350         if ($ishelp) {
351             return;
352         }
353
354         $this->_validateDatabase();
355
356         $this->_validateTemplate();
357         
358     }
359     /**
360      *
361      *
362      *'languages' => array(
363             'param' => '_lang',
364             'avail' => array('en','zh_HK', 'zh_CN'),
365             'default' => 'en',
366             'cookie' => 'TalentPricing_lang',
367             'localemap' => array(
368                 'en' => 'en_US.utf8',
369                 'zh_HK' => 'zh_TW.utf8',
370                 'zh_CN' => 'zh_CN.utf8',
371             )
372         ),
373     */
374     
375     function _handleLanguages($request)
376     {
377         if (
378             empty($this->languages) ||
379             (
380                     !isset($this->languages['cookie']) && !isset($this->languages['default'])
381             )
382         ) {
383             return;
384         }
385         
386         $cfg = $this->languages;
387         
388         $default = $cfg['default'];
389         
390         if(!empty($_SERVER["HTTP_ACCEPT_LANGUAGE"])){
391             
392             $brower_langs = explode(",", $_SERVER["HTTP_ACCEPT_LANGUAGE"]);
393             
394             foreach ($brower_langs as $bl) {
395                 $l = preg_replace('/;(.*)/', '', $bl);
396                 
397                 $l = str_replace('-', '_', $l);
398                 
399                 if(!in_array($l, $cfg['avail'])){
400                     continue;
401                 }
402                 
403                 $default = $l;
404                 break;
405             }
406         }
407            
408         $lang = isset($_COOKIE[$cfg['cookie']]) ?  $_COOKIE[$cfg['cookie']] : $default;
409
410         // handle languages in request..
411         $bits = explode('/', $request);
412         $redirect_to = false;
413         if (count($bits) && in_array($bits[0],$cfg['avail'])) {
414             // redirect..
415             $lang = array_shift($bits);
416             $redirect_to = implode('/', $bits);
417         }
418         
419          
420         
421         if (isset($_REQUEST[$cfg['param']])) {
422             $lang = $_REQUEST[$cfg['param']];
423         }
424     
425         if (!in_array($lang, $cfg['avail'])) {
426             $lang = $cfg['default'];
427         }
428         if (isset($cfg['localemap'][$lang])) {
429             setlocale(LC_ALL, $cfg['localemap'][$lang]);
430         }
431         setcookie($cfg['cookie'], $lang, 0, '/');
432         
433         $this->locale = $lang;
434         
435         if (!empty($this->HTML_Template_Flexy)) {
436             $this->HTML_Template_Flexy['locale'] = $lang;   //set a language for template engine
437         }
438         if ($redirect_to !== false) {
439             header('Location: ' . $this->rootURL . '/'.$redirect_to );
440             exit;
441          
442         }
443     }
444     
445     function parseDefaultLanguage($http_accept, $deflang = "en") 
446     {
447         if(isset($http_accept) && strlen($http_accept) > 1)  {
448            # Split possible languages into array
449            $x = explode(",",$http_accept);
450            
451            foreach ($x as $val) {
452               #check for q-value and create associative array. No q-value means 1 by rule
453               if(preg_match("/(.*);q=([0-1]{0,1}.\d{0,4})/i",$val,$matches))
454                  $lang[$matches[1]] = (float)$matches[2];
455               else
456                  $lang[$val] = 1.0;
457            }
458            
459            #return default language (highest q-value)
460            $qval = 0.0;
461            foreach ($lang as $key => $value) {
462               if ($value > $qval) {
463                  $qval = (float)$value;
464                  $deflang = $key;
465               }
466            }
467         }
468         return strtolower($deflang);
469      }
470     
471     /**
472      * overlay array properties..
473      */
474     
475     function applyIf($prop, $ar)
476     {
477         if (!isset($this->$prop)) {
478             $this->$prop = $ar;
479             return;
480         }
481         // add only things that where not set!!!.
482         $this->$prop = array_merge($ar,$this->$prop);
483         
484         return;
485         //foreach($ar as $k=>$v) {
486         //    if (!isset($this->$prop->$k)) {
487          //       $this->$prop->$k = $v;
488           //  }
489        // }
490     }
491     
492     /**
493      * DataObject cache 
494      * - if turned on (dataObjectsCache = true) then 
495      *  a) ini file points to a parsed version of the structure.
496      *  b) links.ini is a merged version of the configured link files.
497      * 
498      * This only will force a generation if no file exists at all.. - after that it has to be called manually 
499      * from the core page.. - which uses the Expires time to determine if regeneration is needed..
500      * 
501      * 
502      */
503     
504     function _configDataObjectsCache()
505     {
506         // cli works under different users... it may cause problems..
507         $this->debug(__METHOD__);
508         if (function_exists('posix_getpwuid')) {
509             $uinfo = posix_getpwuid( posix_getuid () ); 
510             $user = $uinfo['name'];
511         } else {
512             $user = getenv('USERNAME'); // windows.
513         }
514         
515         
516
517         $iniCache = ini_get('session.save_path') .'/' . 
518                'dbcfg-' . $user . '/'. str_replace('/', '_', $this->project) ;
519         
520         
521         if ($this->appNameShort) {
522             $iniCache .= '_' . $this->appNameShort;
523         }
524         if ($this->version) {
525             $iniCache .= '.' . $this->version;
526         }
527         if ($this->database === false) {
528             return;
529         }
530         
531         $dburl = parse_url($this->database);
532         if (!empty($dburl['path'])) {
533             $iniCache .= '-'.ltrim($dburl['path'],'/');
534         }
535         
536         $iniCache .= '.ini';
537         $this->debug(__METHOD__ . " : ini cache : $iniCache");
538         
539         $dburl = parse_url($this->database);
540         $dbini = 'ini_'. basename($dburl['path']);
541         $this->debug(__METHOD__ . " : ini file : $dbini");
542         //override ini setting... - store original..
543         if (isset($this->DB_DataObject[$dbini])) {
544             $this->dataObjectsOriginalIni = $this->DB_DataObject[$dbini];
545             ///print_r($this->DB_DataObject);exit;
546         }
547         // 
548         
549         
550         
551         $this->DB_DataObject[$dbini] =   $iniCache;
552         // we now have the configuration file name..
553         
554         
555         if (!file_exists($iniCache) || empty( $this->dataObjectsCacheExpires)) {
556             $this->debug(__METHOD__ . ':calling generate do cache');
557             $this->generateDataobjectsCache(true);
558             return;
559         }
560      
561         
562         
563     }
564     /**
565      *  _generateDataobjectsCache:
566      * 
567      * create xxx.ini and xxx.links.ini 
568      * 
569      * @arg force (boolean) force generation - default false;
570      * 
571      */
572      
573     function generateDataobjectsCache($force = false)
574     {
575         //$this->debug('generateDataobjectsCache: force=' . ($force ? 'yes' : 'no'));
576         if (!$this->dataObjectsCache) { // does not use dataObjects Caching..
577             $this->debug('generateDataobjectsCache: dataObjectsCache - empty');
578             return;
579         }
580         
581         $dburl = parse_url($this->database);
582         $dbini = 'ini_'. basename($dburl['path']);
583         
584         
585         $iniCache = $this->DB_DataObject[$dbini];
586         $this->debug('generateDataobjectsCache:' .dirname($iniCache).'/*.ini');
587         if ($force && file_exists($iniCache)) {
588             
589             $files = glob(dirname($iniCache).'/*.ini');
590             foreach($files as $f) {
591                 unlink($f);
592             }
593             clearstatcache();
594         }
595         $this->debug('generateDataobjectsCache: DONE ini delete');
596         
597         $iniCacheTmp = $iniCache . '.tmp' .md5(rand());  // random to stop two processes using the same file.
598         // has it expired..
599         $force = ($force ? $force : !file_exists($iniCache)) || !$this->dataObjectsCacheExpires;
600         // $this->debug('generateDataobjectsCache: after check : force=' . ($force ? 'yes' : 'no'));
601          // not force or not expired, do not bother..
602         if (!$force) {
603             if ((filemtime($iniCache) + $this->dataObjectsCacheExpires) >time()) {
604                 return;
605             }
606         }
607         
608         
609         
610          //echo "GENERATE?";
611         
612         // force quoting of column names..
613         // unless it forced off..
614         if (!isset($this->DB_DataObject['quote_identifiers_tableinfo'] )) { 
615             $this->DB_DataObject['quote_identifiers_tableinfo'] = true;
616         }
617         if (!file_exists(dirname($iniCache))) {
618             if (!mkdir(dirname($iniCache),0700, true)) {
619                 die("Failed to make cache directory : $iniCache\n");
620             }
621         }
622         
623         $this->DB_DataObject[$dbini] = $iniCacheTmp;
624         
625         $dl = DB_DataObject::DebugLevel();
626         $this->_exposeToPear(); // this will reset the debug level...
627         DB_DataObject::DebugLevel($dl);
628         
629         $this->debug('generateDataobjectsCache: running generator');
630         // DB_DataObject::debugLevel(1);      
631         require_once 'HTML/FlexyFramework/Generator.php';
632         $generator = new HTML_FlexyFramework_Generator();
633         $generator->start();
634         $this->debug('generateDataobjectsCache: done generator');
635
636         HTML_FlexyFramework_Generator::writeCache($iniCacheTmp, $iniCache); 
637         // reset the cache to the correct lcoation.
638         $this->DB_DataObject[$dbini] = $iniCache;
639         
640          
641
642         $this->_exposeToPear();
643         DB_DataObject::DebugLevel($dl);
644
645         //$GLOBALS['_DB_DATAOBJECT']['INI'][$this->database] =   parse_ini_file($iniCache, true);
646         //$GLOBALS['_DB_DATAOBJECT']['SEQUENCE']
647         // clear any dataobject cache..
648          
649         
650         //die("done");
651         
652     }
653     /**
654      * DataObject Configuration:
655      * Always in Project/DataObjects
656      * unless enableArray is available...
657      * 
658      * 
659      * 
660      */
661     function _parseConfigDataObjects()
662     {
663         if ($this->nodatabase && !$this->database) {
664             return;
665         }
666         $dburl = parse_url($this->database);
667         $dbini = 'ini_'. basename($dburl['path']);
668                 
669         $dbinis =  array(); //array(dirname(__FILE__) . '/Pman/DataObjects/pman.ini');
670         $dbreq =  array(); //array( dirname(__FILE__) . '/Pman/DataObjects/');
671         $dbcls =  array(); //array('Pman_DataObjects_');
672
673         $project = explode('/',$this->project)[0]; 
674         
675         if (!empty($this->enableArray)) {
676                 
677             $tops = array_merge( array($project), empty($this->projectExtends) ? array() : $this->projectExtends);
678             
679             foreach($tops as $td) {
680                     
681                 $bd = $this->rootDir .'/'.$td;
682                 foreach($this->enableArray as $m) {
683                     // look in Pman/MODULE/DataObjects/*
684                      if (file_exists($bd.'/'.$m.'/DataObjects')) {
685                         $dbinis[] = $bd.'/'.$m.'/DataObjects/'. strtolower($project).'.ini';
686                         $dbcls[] = $td.'_'. $m . '_DataObjects_';
687                         $dbreq[] = $bd.'/'.$m.'/DataObjects';
688                         continue;
689                     }
690                     // look in MODULE/DataObjects ?? DO WE SUPPORT THIS ANYMORE???
691                     if (file_exists($bd.'/../'.$m.'/DataObjects')) {
692                         $dbinis[] = $bd.'/../'.$m.'/DataObjects/'. strtolower($project).'.ini';
693                         $dbcls[] = $td. '_DataObjects_';
694                         $dbreq[] = $bd.'/../'.$m.'/DataObjects';
695                     }
696                         
697                         
698                       
699                 }
700             }     
701         } else {
702             
703             if (isset($this->DB_DataObject['schema_location'])) {
704                 $dbinis[] = $this->DB_DataObject['schema_location'] .'/'.basename($dburl['path']).'.ini';
705             } else {
706                 $dbinis[] = $this->baseDir.'/DataObjects/'.basename($dburl['path']).'.ini';
707             }
708             // non modular.
709             
710             $dbcls[] = $project .'_DataObjects_';
711             $dbreq[] = $this->baseDir.'/DataObjects';
712         }
713             
714         
715         $this->applyIf('DB_DataObject', array(   
716         
717             'class_location' =>  implode(PATH_SEPARATOR,$dbreq),
718             'class_prefix' =>  implode(PATH_SEPARATOR,$dbcls),
719             'database'        => $this->database,    
720             ///'require_prefix' => 
721          //   'schema_location' => dirname(__FILE__) . '/Pman/DataObjects/',
722              $dbini=> implode(PATH_SEPARATOR,$dbinis),
723          
724            //   'debug' => 5,
725         ));
726       //  print_r($this->DB_DataObject);exit;
727     }
728     /**
729      Set up thetemplate
730      * 
731      */
732     function _parseConfigTemplate()
733     {
734         
735         // compile.
736         if (function_exists('posix_getpwuid')) {
737             $uinfo = posix_getpwuid( posix_getuid () ); 
738          
739             $user = $uinfo['name'];
740         } else {
741             $user = getenv('USERNAME'); // windows.
742         }
743         
744         $compileDir = ini_get('session.save_path') .'/' . 
745             $user . '_compiled_templates_' . $this->project;
746         
747         if ($this->appNameShort) {
748             $compileDir .= '_' . $this->appNameShort;
749         }
750         if ($this->version) {
751             $compileDir .= '.' . $this->version;
752         }
753         
754         // templates. -- all this should be cached!!!
755         $src = array();
756          
757         
758         if ($this->appNameShort && !in_array('Core', explode(',', $this->disable ? $this->disable : ''))) {
759             // in app based version, template directory is in Core
760             
761             $src = array(  
762                 $this->baseDir . '/Core/templates'
763             );
764         }
765         
766         if(!empty($this->projectExtends)){
767             foreach ($this->projectExtends as $e){
768                 $add = $this->rootDir . '/' . $e .'/templates';
769                 if (!in_array($add,$src) && file_exists($add)) {
770                     $src[] = $add;
771                 }
772             }
773         }
774         
775         $src[] = $this->baseDir . '/templates';
776         
777         
778         
779         if (!empty($this->enableArray)) {
780              
781             
782             foreach($this->enableArray as $m) {
783                 $add = $this->baseDir . '/' . $m .'/templates';
784                 if (!in_array($add,$src) && file_exists($add) && $this->appNameShort != $m) {
785                     $src[] = $add;
786                 }
787                 
788             }
789             if (!empty($this->projectExtends)  )  {
790                 foreach ($this->projectExtends as $extend){
791                     foreach($this->enableArray as $m) {
792                         $add = $this->rootDir . '/' . $extend . '/' . $m .'/templates';
793                         if (!in_array($add,$src) && file_exists($add) && $this->appNameShort != $m) {
794                             $src[] = $add;
795                         }
796                     }
797                 }
798     
799             }
800         }
801          
802         
803         if ($this->appNameShort) {
804             $src[] =  $this->baseDir . '/'. $this->appNameShort. '/templates';
805         }
806         
807         // images may come from multiple places: - if we have multiple template directories.?
808         // how do we deal with this..?
809         // images/ << should always be mapped to master!
810         // for overridden appdir ones we will have to se rootURL etc.
811         
812         $url_rewrite = 'images/:'. $this->rootURL . '/'. $this->project. '/templates/images/';
813         
814         $this->applyIf('HTML_Template_Flexy', array(
815             'templateDir' => implode(PATH_SEPARATOR, $src),
816             'compileDir' => $compileDir,
817             'multiSource' => true,
818             'forceCompile' => 0,
819             'url_rewrite' => $url_rewrite,
820             'filters' => 'Php,SimpleTags', /// for non-tokenizer version?
821             'debug' => $this->debug ? 1 : 0,
822             'useTokenizer' => 1,
823              
824             
825         
826         
827         ));
828     } 
829     
830     function _parseConfigMail()
831     {
832         $this->applyIf('HTML_Template_Flexy', array(
833            'debug' => 0,
834            'driver' => 'smtp',
835            'host' => 'localhost',
836            'port' => 25,
837         ));
838     }
839     function _exposeToPear()
840     {
841         $cls = array_keys(get_class_vars(__CLASS__));
842         $base = array();
843         
844         // anything that get's set, that's not in our default properties
845         // is assumed to be an option set .
846         foreach(get_object_vars($this) as $k=>$v) {
847             if (in_array($k,$cls)) {
848                 $base[$k] = $v;
849                 continue;
850             }
851             $options = &PEAR::getStaticProperty($k,'options');
852             $options = $v;
853         }
854         $options = &PEAR::getStaticProperty('HTML_FlexyFramework','options');
855         $options = $base;
856          //   apply them..
857     }
858     
859     
860     function _validateEnv() 
861     {
862         /* have I been initialized */
863         
864         
865         if (version_compare(PHP_VERSION, '7.0.0') < 0  && get_magic_quotes_gpc() && !$this->cli) {
866             $this->fatalError(
867                 "magic quotes is enabled add the line<BR>
868                    php_value magic_quotes_gpc 0<BR>
869                    to your .htaccess file <BR>
870                    (Apache has to be configured to &quot;AllowOverride Options AuthConfig&quot; for the directory)
871                    ");
872                 
873         }
874         // set up error handling - 
875         $this->error = new HTML_FlexyFramework_Error();
876         
877         /// fudge work around bugs in PEAR::setErrorHandling(,)
878         $GLOBALS['_PEAR_default_error_mode'] = PEAR_ERROR_CALLBACK;
879         $GLOBALS['_PEAR_default_error_options'] = array($this->error,'raiseError');
880         
881         
882         
883         if ($this->debug) {
884             require_once 'Benchmark/Timer.php'; 
885             $this->timer = new BenchMark_Timer(true);
886             register_shutdown_function(function() { echo $this->timer->getOutput(); });
887         }
888
889     }
890     
891     function _validateDatabase()
892     {
893         //echo "<PRE>"; print_r($this);
894
895         if ($this->nodatabase) {
896             return;
897         }
898         $options = &PEAR::getStaticProperty('DB_DataObject','options');
899         $dd = empty($options['dont_die']) ? false : true;
900         $options['dont_die'] = true;
901         
902         // database is the only setting - we dont support mult databses?
903           
904             
905         $x = new DB_Dataobject;
906         $x->_database = $this->database;
907         if (PEAR::isError($err = $x->getDatabaseConnection())) {
908                                 
909
910             $this->fatalError("Configuration or Database Error: could not connect to Database, <BR>
911                 Please check the value given to HTML_FlexyFramework, or run with debug on!<BR>
912                  <BR> ".$err->toString());
913         }
914         $res = $err->query("SELECT @@global.read_only as ro");
915         $row = $res->fetchRow(DB_FETCHMODE_ASSOC);
916         if (!empty($row['ro']) && empty($options['skip-read-only-check'])) {
917             $this->fatalError("Database is configured to be read-only - please check database<BR> ".$err->toString());
918         }
919         // reset dont die!
920         $options['dont_die'] = $dd ;
921         
922         
923     }
924     function _validateTemplate()
925     {
926         // check that we have a writeable directory for flexy's compiled templates.
927         
928         if (empty($this->HTML_Template_Flexy['compileDir'])) {
929             return;
930         }
931         
932         if ( !file_exists($this->HTML_Template_Flexy['compileDir']))  {
933             mkdir($this->HTML_Template_Flexy['compileDir'], 0700);
934             @mkdir($this->HTML_Template_Flexy['compileDir'], 0700, true);
935             clearstatcache();
936              
937             if ( !file_exists($this->HTML_Template_Flexy['compileDir']))  {
938             
939                 $this->fatalError("Configuration Error: you specified a directory that does not exist for<BR>
940                     HTML_Template_Flexy => compileDir  {$this->HTML_Template_Flexy['compileDir']}<BR>\n"
941                 );
942             }
943         }
944         
945         if (!is_writeable($this->HTML_Template_Flexy['compileDir'])) {
946             $this->fatalError("Configuration Error: Please make sure the template cache directory is writeable<BR>
947                     eg. <BR>
948                     chmod 700 {$this->HTML_Template_Flexy['compileDir']}<BR>
949                     chgrp apache_user  {$this->HTML_Template_Flexy['compileDir']}<BR>\n"
950             );
951         }
952         //echo "<PRE>";print_R($config);
953         
954         
955          
956           
957         
958         
959     }
960   
961   
962    
963         
964     
965     
966     /**
967     * Quality Redirector
968     *
969     * Usage in a page.:
970     * HTML_FlexyFramework::run('someurl/someother',array('somearg'=>'xxx'));
971     * ...do clean up...
972     * exit; <- dont cary on!!!!
973     *
974     * You should really
975     * 
976     * @param   string           redirect to url 
977     * @param   array Args Optional      any data you want to send to the next page..
978     * 
979     *
980     * @return   false
981     * @access   public
982     * @static
983     */
984   
985     
986     static function run($request,$args=array()) 
987     {
988         self::$singleton->_run($request,true,$args);
989         return false;
990     }
991     
992     
993     /**
994     * The main execution loop
995     *
996     * recursivly self called if redirects (eg. return values from page start methods)
997     * 
998     * @param   string from $_REQUEST or redirect from it'self.
999     * @param   boolean isRedirect  = is the request a redirect 
1000     *
1001     *
1002     * @return   false || other    false indicates no page was served!
1003     * @access   public|private
1004     * @see      see also methods.....
1005     */
1006   
1007     function _run($request,$isRedirect = false,$args = array()) 
1008     {
1009         
1010         // clean the request up.
1011         $this->calls++;
1012         
1013         if ($this->calls > 5) {
1014             // to many redirections...
1015             trigger_error("FlexyFramework:: too many redirects - backtrace me!",E_USER_ERROR);
1016             exit;
1017         }
1018         
1019         $newRequest = $this->_getRequest($request,$isRedirect);
1020         
1021          
1022         // find the class/file to load
1023         list($classname,$subRequest) = $this->requestToClassName($newRequest,FALSE);
1024         
1025         
1026         $this->debug("requestToClassName return = CLASSNAME: $classname SUB REQUEST: $subRequest");
1027         
1028         // assume that this was handled by getclassname ?????
1029         if (!$classname) {
1030             return false;
1031         }
1032         
1033         // make page data/object accessable at anypoint in time using  this
1034         // not sure if this is used anymore - or even works..?
1035         $classobj = &PEAR::getStaticProperty('HTML_FlexyFramework', 'page');
1036         
1037         $classobj =  new  $classname();  // normally do not have constructors.
1038         
1039         
1040         $classobj->baseURL = $this->baseURL;
1041         $classobj->rootURL = $this->rootURL;
1042         $classobj->rootDir = $this->rootDir;
1043         $classobj->bootLoader  = $this;
1044         $classobj->request = $newRequest;
1045         $classobj->timer = &$this->timer;
1046         $classobj->cli = $this->cli;
1047         
1048         $this->page = $classobj;
1049         if ($this->cli && !$isRedirect ) { // redirect always just takes redirect args..
1050             require_once 'HTML/FlexyFramework/Cli.php';
1051             $fcli = new HTML_FlexyFramework_Cli($this);
1052             $nargs = $fcli->cliParse($classname);
1053             $args = $nargs === false ? $args : $nargs; /// replace if found.
1054             $classobj->cli_args = $nargs;
1055         }
1056         
1057         // echo '<PRE>'; print_r($this);exit;
1058         // echo "CHECK GET AUTH?";
1059
1060         if (!method_exists($classobj, 'getAuth')) {
1061         //    echo "NO GET AUTH?";
1062             $this->fatalError("class $classname does not have a getAuth Method");
1063             return false;
1064         }
1065         
1066         /* check auth on the page */
1067         if (is_string($redirect = $classobj->getAuth())) {
1068             $this->debug("GOT AUTH REDIRECT".$redirect);
1069             return $this->_run($redirect,TRUE);
1070         }
1071         // used HTML_FlexyFramework::run();
1072                  
1073
1074         if ($redirect === false) {
1075             $this->debug("GOT AUTH FALSE");    
1076             return false; /// Access deined!!! - 
1077         }
1078      
1079         // allow the page to implement caching (for the full page..)
1080         // although normally it should implement caching on the outputBody() method.
1081         
1082         if (method_exists($classobj,"getCache")) {
1083             if ($result = $classobj->getCache()) {
1084                 return $result;
1085             }
1086         }
1087                     
1088         /* allow redirect from start */
1089         if (method_exists($classobj,"start")) {
1090             if (is_string($redirect = $classobj->start($subRequest,$isRedirect,$args)))  {
1091                 $this->debug("REDIRECT $redirect <BR>");
1092                 return $this->_run($redirect,TRUE);
1093             }
1094             if ($redirect === false) {
1095                 return false;
1096             }
1097         }
1098                 
1099
1100          // used HTML_FlexyFramework::run();
1101         
1102         /* load the modules 
1103          * Modules are common page components like navigation headers etc.
1104          * that can have dynamic code.
1105          * Code has been removed now..
1106          */
1107         
1108         
1109         if ($this->timer) {
1110             $this->timer->setMarker("After $request loadModules Modules"); 
1111         }
1112         
1113         /* output it  - (our base page does not implement output for cli. */
1114         
1115         if ( method_exists($classobj,'output')) {
1116             $classobj->output(); 
1117         }
1118         
1119         
1120         if ($this->timer) {
1121             $this->timer->setMarker("After $request output"); 
1122             $this->timer->stop(); //?? really - yes...
1123            
1124             
1125         }
1126         
1127         if ($this->cli) {
1128             return true;
1129         }
1130         
1131         
1132         exit; /// die here...
1133         
1134     }
1135     
1136     /**
1137     * map the request into an object and run the page.
1138     *
1139     * The core of the work is done here.
1140     * 
1141     * 
1142     * @param   request  the request string
1143     * @param   boolean isRedirect - indicates that it should not attempt to strip the .../index.php from the request.
1144     * 
1145     * @access  private
1146     */
1147   
1148     function _getRequest($request, $isRedirect) 
1149     {
1150         
1151          
1152         if ($this->cli) {
1153             return $request;
1154         }
1155         
1156         $startRequest = $request;
1157         $ra = explode('?', $request);
1158         $request =  array_shift($ra);
1159         $this->debug("INPUT REQUEST $request<BR>");
1160         if (!$isRedirect) {
1161             // check that request forms contains baseurl????
1162             if (!empty($_SERVER['REDIRECT_STATUS'])  && !empty($_SERVER['REDIRECT_URL'])) {
1163                // phpinfo();exit;
1164                 $sn = $_SERVER['SCRIPT_NAME'];
1165                 $sublen = strlen(substr($sn , 0,  strlen($sn) - strlen(basename($sn)) -1 ));
1166                  //var_dump(array($sn,$subdir,basename($sn)));exit;
1167                 $subreq =  $_SERVER['SCRIPT_NAME'];
1168                 $request = substr($_SERVER['REDIRECT_URL'],$sublen);
1169                 
1170                  
1171             } else {
1172                   
1173              
1174                 $subreq = substr($request,0, strlen($this->baseURL));
1175                 if ($subreq != substr($this->baseURL,0,strlen($subreq))) {
1176                     $this->fatalError(
1177                         "Configuration error: Got base of $subreq which does not 
1178                             match configuration of: $this->baseURL} ");
1179                 }
1180                 $request = substr($request,strlen($this->baseURL));
1181                 
1182             }
1183             
1184              
1185         }
1186        // var_Dump(array('req'=>$request,'subreq'=>$subreq));
1187         
1188         // strip front
1189         // echo "REQUEST WAS: $request<BR>";
1190         // $request = preg_replace('/^'.preg_quote($base_url,'/').'/','',trim($request));
1191         // echo "IS NOW: $request<BR>";
1192         // strip end
1193         // strip valid html stuff
1194         //$request = preg_replace('/\/[.]+/','',$request);
1195         
1196
1197         $request = preg_replace('/^[\/]*/','',$request);
1198         $request = preg_replace('/\?.*$/','',$request);
1199         $request = preg_replace('/[\/]*$/','',$request);
1200         $this->baseRequest = $request;
1201         $request = str_replace('&','',$request); // any other invalid characters???
1202         $request = preg_replace('/\.([a-z]+)$/','',$request);
1203         $this->ext = substr($this->baseRequest , strlen($request));
1204         
1205         // REDIRECT ROO to index.php! for example..
1206         
1207         if (!$request && !$isRedirect) {
1208             if ($this->baseURL && (strlen($startRequest) < strlen($this->baseURL))) {
1209                 // needs to handle https + port
1210                 $http = ((!empty($_SERVER["HTTPS"]) && $_SERVER["HTTPS"]  == 'on')) ? 'https' : 'http';
1211                 $sp = '';
1212                 if (!empty($_SERVER['SERVER_PORT'])) {
1213                     if ((($http == 'http') && ($_SERVER['SERVER_PORT'] == 80)) || (($http == 'https') && ($_SERVER['SERVER_PORT'] == 443))) {
1214                         // standard ports..
1215                     } else {
1216                         $sp .= ':'.((int) $_SERVER['SERVER_PORT']);
1217                     }
1218                 }
1219                 $host = !empty($_SERVER["HTTP_X_FORWARDED_HOST"]) ? $_SERVER["HTTP_X_FORWARDED_HOST"] : $_SERVER["HTTP_HOST"];
1220                 header('Location: '.$http.'://'.$host .$sp . $this->baseURL);
1221  
1222                 exit;
1223             }
1224             $request = "";
1225         }
1226        // var_dump(array($startRequest,$request, $this->baseRequest));
1227         
1228         $this->debug("OUTPUT REQUEST $request<BR>");
1229         
1230         $this->_handleLanguages($request);
1231
1232         
1233         return $request;
1234     }
1235     
1236    
1237     
1238     
1239     /**
1240     * get the Class name and filename to load
1241     *
1242     * Parses the request and converts that into a File + Classname
1243     * if the class doesnt exist it will attempt to find a file below it, and
1244     * call that one with the data.
1245     * Used by the module loader to determine the location of the modules
1246     *   
1247     * @param   request  the request string
1248     * @param   boolean showError - if false, allows you to continue if the class doesnt exist.
1249     * 
1250     *
1251     * @return   array classname, filepath
1252     * @access   private
1253     * @static
1254     */
1255   
1256     function requestToClassName($request,$showError=TRUE) 
1257     {
1258        // if ($request == "error") {
1259        //     return array("HTML_FlexyFramework_Error","");
1260        // }
1261         
1262         // special classes ::
1263         if ($this->cli && in_array($request, array('DataObjects'))) {
1264             require_once 'HTML/FlexyFramework/'. $request . '.php';
1265             return array('HTML_FlexyFramework_'. $request,'');
1266         }
1267         
1268         
1269         $request_array = explode("/",$request);
1270         $original_request_array = $request_array;
1271         $sub_request_array = array();
1272         $l = count($request_array)-1;
1273         if ($l > 10) { // ?? configurable?
1274             //PEAR::raiseError("Request To Long");
1275             $this->fatalError("Request To Long - " . $request);
1276         }
1277
1278         
1279         $classname='';
1280         // tidy up request array
1281         
1282         if ($request_array) {
1283             foreach(array_keys($request_array) as $i) {
1284                 $request_array[$i] = preg_replace('/[^a-z0-9]/i','_',urldecode($request_array[$i]));
1285             }
1286         }
1287         //echo "<PRE>"; print_r($request_array);
1288         // technically each module should do a check here... similar to this..
1289         
1290         
1291         for ($i=$l;$i >-1;$i--) {
1292             $location = implode('/',$request_array) . ".php";
1293             if ($location == '.php') {
1294                 $this->debug("SKIP first path check, as request str is empty");
1295                 break;
1296             }
1297             
1298             $this->debug("baseDIR = {$this->baseDir}");
1299             
1300             $floc = "{$this->baseDir}/$location";
1301             $this->debug("CHECK LOCATION = $location");
1302             
1303             
1304             
1305             if (!empty($location) && $location != '.php' && @file_exists($floc )) {             // hide? error???
1306                 require_once $floc ;
1307                 $classname = $this->classPrefix . implode('_',$request_array);
1308                 $this->debug("FOUND FILE - SET CLASS = $classname <BR>");
1309                 break;
1310             } 
1311             
1312             // in here check the 'projectExtends' versions..?
1313             
1314             if(!empty($this->projectExtends)){
1315                 $this->debug("Trying project Extends<BR>");
1316                 $has_extend_class = false;
1317                 
1318                 foreach ($this->projectExtends as $e){
1319                     $floc = "{$this->rootDir}/{$e}/$location";
1320                     $this->debug("Trying file: $floc");
1321                     if (!empty($location) && @file_exists($floc)) {             // hide? error???
1322                         require_once $floc ;
1323                         $classname = $e . '_' . implode('_',$request_array);
1324                         $has_extend_class = true;
1325                         $this->debug("FOUND FILE - SET CLASS = $classname <BR>");
1326                         break;
1327                     } 
1328                 }
1329                 
1330                 if(!empty($has_extend_class)){
1331                     break;
1332                 }
1333                 
1334             }
1335             
1336             
1337             $this->debug("$floc  - !!FOUND NOT FILE!!");
1338             
1339             $sub_request_array[] = $original_request_array[$i];
1340             unset($request_array[$i]);
1341             unset($original_request_array[$i]);
1342         }
1343          
1344         // is this really needed here!
1345         
1346         $classname = preg_replace('/[^a-z0-9]/i','_',$classname);
1347         $this->debug("CLASSNAME is '$classname'");
1348         // got it ok.
1349         if ($classname && class_exists($classname)) {
1350             $this->debug("using $classname");
1351             //print_r($sub_request_array);
1352             return array($classname,implode('/',array_reverse($sub_request_array)));
1353         }
1354         // stop looping..
1355         if ($showError) {
1356             $this->fatalError("INVALID REQUEST: \n $request FILE:".$this->baseDir. "/{$location}  CLASS:{$classname}");
1357             
1358         } 
1359         
1360         
1361         $this->debug("Try base {$this->baseDir}.php");   
1362         // try {project name}.php
1363         // this used to be silenced @ - if this fails we are usually pretty fried..
1364         
1365         if (file_exists($this->baseDir.'.php')) {
1366             
1367             
1368             $classname = str_replace('/', '_', $this->project); //   basename($this->baseDir);
1369             
1370             $this->debug("FOUND {$this->baseDir} requring and checking class $classname");   
1371             require_once $this->baseDir.'.php';
1372             $this->debug("require success");
1373             
1374             if (!class_exists($classname)) {
1375                 $this->fatalError( "{$this->baseDir}.php did not contain class $classname");
1376             }
1377         }
1378         // got projectname.php
1379         if ($classname && class_exists($classname)) {
1380             $this->debug("using $classname");
1381             //print_r($sub_request_array);
1382              
1383             return array($classname,implode('/',array_reverse($sub_request_array)));
1384         }    
1385             
1386         
1387         $this->fatalError( "can not find {$this->baseDir}.php"); // dies..
1388               
1389      
1390     }
1391     
1392     /**
1393     * ensure Single CLi process 
1394     * usage:
1395     * HTML_FlexyFramework::ensureSingle(__FILE__, $this);
1396     * @param string filename of running class
1397     * @param object class
1398     */
1399       
1400     static function ensureSingle($sig, $class) 
1401     {
1402         //echo "check single: $sig / ". get_class($class) ."\n";
1403         $ff = HTML_FlexyFramework::get();
1404         if (function_exists('posix_getpwuid')) {
1405             $uinfo = posix_getpwuid( posix_getuid () ); 
1406             $user = $uinfo['name'];
1407         } else {
1408             $user = getenv('USERNAME'); // windows.
1409         }
1410         $fdir = ini_get('session.save_path') .'/' . 
1411                 $user . '_cli_' . $ff->project ;
1412      
1413         
1414         if (!file_exists($fdir)) {
1415             mkdir($fdir, 0777);
1416         }
1417         
1418         $lock = $fdir.'/'. md5($sig) . '.' . get_class($class);
1419         //echo "check single: lock : $lock\n";
1420         if (!file_exists($lock)) {
1421             file_put_contents($lock, getmypid());
1422             //echo "check single: lock : DOES NOT EXIST\n";
1423             return true;
1424         }
1425         $oldpid = file_get_contents($lock);
1426         if (!file_exists('/proc/' . $oldpid)) {
1427             
1428             file_put_contents($lock, getmypid());
1429           //  echo "check single: lock : PROC NOT EXIST\n";
1430             return true;
1431         }
1432         // file exists, but process might not be the same..
1433         $ea = explode('_', get_class($class));
1434         $name = array_pop($ea);
1435         $cmd = file_get_contents('/proc/' . $oldpid.'/cmdline');
1436         if (!preg_match('/php/i',$cmd) || !preg_match('/'.$name.'/i',$cmd)) {
1437             file_put_contents($lock, getmypid());
1438             //echo "check single: lock : CMDLINE !have PHP \n";
1439             return true;
1440         }
1441         die("process " . $sig . " already running\n");
1442         
1443     }
1444     /**
1445      * removes the lock for the applicaiton - use with care...
1446      *
1447      *
1448      */
1449     static function ensureSingleClear($sig, $class)
1450     {
1451         $ff = HTML_FlexyFramework::get();
1452         if (function_exists('posix_getpwuid')) {
1453             $uinfo = posix_getpwuid( posix_getuid () ); 
1454             $user = $uinfo['name'];
1455         } else {
1456             $user = getenv('USERNAME'); // windows.
1457         }
1458         $fdir = ini_get('session.save_path') .'/' . 
1459                 $user . '_cli_' . $ff->project ;
1460      
1461         
1462         if (!file_exists($fdir)) {
1463             mkdir($fdir, 0777);
1464         }
1465         $lock = $fdir.'/'. md5($sig);
1466         if (!file_exists($lock)) {
1467             
1468             return true;
1469         }
1470         unlink($lock);;
1471     }
1472     
1473     
1474     /**
1475     * Debugging 
1476     * 
1477     * @param   string  text to output.
1478     * @access   public
1479     */
1480   
1481     function debug($output) {
1482        
1483         if (empty($this->debug)) {  
1484             return;
1485         }
1486         echo $this->cli ? 
1487               "HTML_FlexyFramework::debug  - ".$output."\n" 
1488             : "<B>HTML_FlexyFramework::debug</B> - ".$output."<BR>\n";
1489     
1490     }
1491     /**
1492     * Raises a fatal error. - normally only used when setting up to help get the config right.
1493     * 
1494     * can redirect to fatal Action page.. - hoepfully not issued before basic vars are set up..
1495     * 
1496     * @param   string  text to output.
1497     * @access   public
1498     */
1499     
1500     function fatalError($msg,$showConfig = 0) 
1501     {
1502         
1503         
1504          if ($this->fatalAction) {
1505             HTML_FlexyFramework::run($this->fatalAction,$msg);
1506             exit;
1507         }
1508         header('HTTP/1.1 503 Service Temporarily Unavailable');
1509         header('Status: 503 Service Temporarily Unavailable');
1510         header('Retry-After: 300');
1511         echo $this->cli ? $msg ."\n" : "<H1>$msg</H1>configuration information<PRE>";
1512         if ($showConfig) {
1513             
1514             print_r($this);
1515         }
1516         $ff = HTML_FlexyFramework::get();
1517         $ff->debug($msg);
1518         exit;
1519     }    
1520 }
1521
1522