home *** CD-ROM | disk | FTP | other *** search
/ Cricao de Sites - 650 Layouts Prontos / WebMasters.iso / Servidores / xampp-win32-1.6.7-installer.exe / php / PEAR / Config / Container / Apache.php next >
Encoding:
PHP Script  |  2008-07-02  |  6.3 KB  |  170 lines
  1. <?php
  2. // +----------------------------------------------------------------------+
  3. // | PHP Version 4                                                        |
  4. // +----------------------------------------------------------------------+
  5. // | Copyright (c) 1997-2003 The PHP Group                                |
  6. // +----------------------------------------------------------------------+
  7. // | This source file is subject to version 2.0 of the PHP license,       |
  8. // | that is bundled with this package in the file LICENSE, and is        |
  9. // | available at through the world-wide-web at                           |
  10. // | http://www.php.net/license/2_02.txt.                                 |
  11. // | If you did not receive a copy of the PHP license and are unable to   |
  12. // | obtain it through the world-wide-web, please send a note to          |
  13. // | license@php.net so we can mail you a copy immediately.               |
  14. // +----------------------------------------------------------------------+
  15. // | Author: Bertrand Mansion <bmansion@mamasam.com>                      |
  16. // +----------------------------------------------------------------------+
  17. //
  18. // $Id: Apache.php,v 1.11 2005/12/24 02:34:39 aashley Exp $
  19.  
  20. /**
  21. * Simple config parser for apache httpd.conf files
  22. * A more complex version could handle directives as
  23. * associative arrays.
  24. *
  25. * @author      Bertrand Mansion <bmansion@mamasam.com>
  26. * @package     Config
  27. */
  28. class Config_Container_Apache {
  29.  
  30.     /**
  31.     * This class options
  32.     * Not used at the moment
  33.     *
  34.     * @var  array
  35.     */
  36.     var $options = array();
  37.  
  38.     /**
  39.     * Constructor
  40.     *
  41.     * @access public
  42.     * @param    string  $options    (optional)Options to be used by renderer
  43.     */
  44.     function Config_Container_Apache($options = array())
  45.     {
  46.         $this->options = $options;
  47.     } // end constructor
  48.  
  49.     /**
  50.     * Parses the data of the given configuration file
  51.     *
  52.     * @access public
  53.     * @param string $datasrc    path to the configuration file
  54.     * @param object $obj        reference to a config object
  55.     * @return mixed returns a PEAR_ERROR, if error occurs or true if ok
  56.     */
  57.     function &parseDatasrc($datasrc, &$obj)
  58.     {
  59.         $return = true;
  60.         if (!is_readable($datasrc)) {
  61.             return PEAR::raiseError("Datasource file cannot be read.", null, PEAR_ERROR_RETURN);
  62.         }
  63.         $lines = file($datasrc);
  64.         $n = 0;
  65.         $lastline = '';
  66.         $sections[0] =& $obj->container;
  67.         foreach ($lines as $line) {
  68.             $n++;
  69.             if (!preg_match('/^\s*#/', $line) && 
  70.                  preg_match('/^\s*(.*)\s+\\\$/', $line, $match)) {
  71.                 // directive on more than one line
  72.                 $lastline .= $match[1].' ';
  73.                 continue;
  74.             }
  75.             if ($lastline != '') {
  76.                 $line = $lastline.trim($line);
  77.                 $lastline = '';
  78.             }
  79.             if (preg_match('/^\s*#+\s*(.*?)\s*$/', $line, $match)) {
  80.                 // a comment
  81.                 $currentSection =& $sections[count($sections)-1];
  82.                 $currentSection->createComment($match[1]);
  83.             } elseif (trim($line) == '') {
  84.                 // a blank line
  85.                 $currentSection =& $sections[count($sections)-1];
  86.                 $currentSection->createBlank();
  87.             } elseif (preg_match('/^\s*(\w+)(?:\s+(.*?)|)\s*$/', $line, $match)) {
  88.                 // a directive
  89.                 $currentSection =& $sections[count($sections)-1];
  90.                 $currentSection->createDirective($match[1], $match[2]);
  91.             } elseif (preg_match('/^\s*<(\w+)(?:\s+([^>]*)|\s*)>\s*$/', $line, $match)) {
  92.                 // a section opening
  93.                 if (!isset($match[2]))
  94.                     $match[2] = '';
  95.                 $currentSection =& $sections[count($sections)-1];
  96.                 $attributes = explode(' ', $match[2]);
  97.                 $sections[] =& $currentSection->createSection($match[1], $attributes);
  98.             } elseif (preg_match('/^\s*<\/(\w+)\s*>\s*$/', $line, $match)) {
  99.                 // a section closing
  100.                 $currentSection =& $sections[count($sections)-1];
  101.                 if ($currentSection->name != $match[1]) {
  102.                     return PEAR::raiseError("Section not closed in '$datasrc' at line $n.", null, PEAR_ERROR_RETURN);
  103.                 }
  104.                 array_pop($sections);
  105.             } else {
  106.                 return PEAR::raiseError("Syntax error in '$datasrc' at line $n.", null, PEAR_ERROR_RETURN);
  107.             }
  108.         }
  109.         return $return;
  110.     } // end func parseDatasrc
  111.  
  112.     /**
  113.     * Returns a formatted string of the object
  114.     * @param    object  $obj    Container object to be output as string
  115.     * @access   public
  116.     * @return   string
  117.     */
  118.     function toString(&$obj)
  119.     {
  120.         static $deep = -1;
  121.         $ident = '';
  122.         if (!$obj->isRoot()) {
  123.             // no indent for root
  124.             $deep++;
  125.             $ident = str_repeat('  ', $deep);
  126.         }
  127.         if (!isset($string)) {
  128.             $string = '';
  129.         }
  130.         switch ($obj->type) {
  131.             case 'blank':
  132.                 $string = "\n";
  133.                 break;
  134.             case 'comment':
  135.                 $string = $ident.'# '.$obj->content."\n";
  136.                 break;
  137.             case 'directive':
  138.                 $string = $ident.$obj->name.' '.$obj->content."\n";
  139.                 break;
  140.             case 'section':
  141.                 if (!$obj->isRoot()) {
  142.                     $string = $ident.'<'.$obj->name;
  143.                     if (is_array($obj->attributes) && count($obj->attributes) > 0) {
  144.                         foreach ($obj->attributes as $attr => $val) {
  145.                             $string .= ' '.$val;
  146.                         }
  147.                     }
  148.                     $string .= ">\n";
  149.                 }
  150.                 if (count($obj->children) > 0) {
  151.                     for ($i = 0; $i < count($obj->children); $i++) {
  152.                         $string .= $this->toString($obj->getChild($i));
  153.                     }
  154.                 }
  155.                 if (!$obj->isRoot()) {
  156.                     // object is not root
  157.                     $string .= $ident.'</'.$obj->name.">\n";
  158.                 }
  159.                 break;
  160.             default:
  161.                 $string = '';
  162.         }
  163.         if (!$obj->isRoot()) {
  164.             $deep--;
  165.         }
  166.         return $string;
  167.     } // end func toString
  168. } // end class Config_Container_Apache
  169. ?>
  170.