<?php
// +----------------------------------------------------------------------+
// | PHP Version 4                                                        |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2003 The PHP Group                                |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.0 of the PHP license,       |
// | that is bundled with this package in the file LICENSE, and is        |
// | available at through the world-wide-web at                           |
// | http://www.php.net/license/2_02.txt.                                 |
// | If you did not receive a copy of the PHP license and are unable to   |
// | obtain it through the world-wide-web, please send a note to          |
// | license@php.net so we can mail you a copy immediately.               |
// +----------------------------------------------------------------------+
// | Author: Bertrand Mansion <bmansion@mamasam.com>                      |
// +----------------------------------------------------------------------+
//
// $Id: Apache.php,v 1.2 2004/09/08 23:40:22 rossta Exp $

/**
* Simple config parser for apache httpd.conf files
* A more complex version could handle directives as
* associative arrays.
*
* @author      Bertrand Mansion <bmansion@mamasam.com>
* @package     Config
*/
class Config_Container_Apache {

    
/**
    * This class options
    * Not used at the moment
    *
    * @var  array
    */
    
var $options = array();

    
/**
    * Constructor
    *
    * @access public
    * @param    string  $options    (optional)Options to be used by renderer
    */
    
function Config_Container_Apache($options = array())
    {
        
$this->options $options;
    } 
// end constructor

    /**
    * Parses the data of the given configuration file
    *
    * @access public
    * @param string $datasrc    path to the configuration file
    * @param object $obj        reference to a config object
    * @return mixed returns a PEAR_ERROR, if error occurs or true if ok
    */
    
function &parseDatasrc($datasrc, &$obj)
    {
        if (!
is_readable($datasrc)) {
            return 
PEAR::raiseError("Datasource file cannot be read."nullPEAR_ERROR_RETURN);
        }
        
$lines file($datasrc);
        
$n 0;
        
$lastline '';
        
$sections[0] =& $obj->container;
        foreach (
$lines as $line) {
            
$n++;
            if (!
preg_match('/^\s*#/'$line) && 
                 
preg_match('/^\s*(.*)\s+\\\$/'$line$match)) {
                
// directive on more than one line
                
$lastline .= $match[1].' ';
                continue;
            }
            if (
$lastline != '') {
                
$line $lastline.trim($line);
                
$lastline '';
            }
            if (
preg_match('/^\s*#+\s*(.*?)\s*$/'$line$match)) {
                
// a comment
                
$currentSection =& $sections[count($sections)-1];
                
$currentSection->createComment($match[1]);
            } elseif (
trim($line) == '') {
                
// a blank line
                
$currentSection =& $sections[count($sections)-1];
                
$currentSection->createBlank();
            } elseif (
preg_match('/^\s*(\w+)(?:\s+(.*?)|)\s*$/'$line$match)) {
                
// a directive
                
$currentSection =& $sections[count($sections)-1];
                
$currentSection->createDirective($match[1], $match[2]);
            } elseif (
preg_match('/^\s*<(\w+)(?:\s+([^>]*)|\s*)>\s*$/'$line$match)) {
                
// a section opening
                
if (!isset($match[2]))
                    
$match[2] = '';
                
$currentSection =& $sections[count($sections)-1];
                
$attributes explode(' '$match[2]);
                
$sections[] =& $currentSection->createSection($match[1], $attributes);
            } elseif (
preg_match('/^\s*<\/(\w+)\s*>\s*$/'$line$match)) {
                
// a section closing
                
$currentSection =& $sections[count($sections)-1];
                if (
$currentSection->name != $match[1]) {
                    return 
PEAR::raiseError("Section not closed in '$datasrc' at line $n."nullPEAR_ERROR_RETURN);
                }
                
array_pop($sections);
            } else {
                return 
PEAR::raiseError("Syntax error in '$datasrc' at line $n."nullPEAR_ERROR_RETURN);
            }
        }
        return 
true;
    } 
// end func parseDatasrc

    /**
    * Returns a formatted string of the object
    * @param    object  $obj    Container object to be output as string
    * @access   public
    * @return   string
    */
    
function toString(&$obj)
    {
        static 
$deep = -1;
        
$ident '';
        if (!
$obj->isRoot()) {
            
// no indent for root
            
$deep++;
            
$ident str_repeat('  '$deep);
        }
        if (!isset(
$string)) {
            
$string '';
        }
        switch (
$obj->type) {
            case 
'blank':
                
$string "\n";
                break;
            case 
'comment':
                
$string $ident.'# '.$obj->content."\n";
                break;
            case 
'directive':
                
$string $ident.$obj->name.' '.$obj->content."\n";
                break;
            case 
'section':
                if (!
$obj->isRoot()) {
                    
$string $ident.'<'.$obj->name;
                    if (
is_array($obj->attributes) && count($obj->attributes) > 0) {
                        while (list(,
$val) = each($obj->attributes)) {
                            
$string .= ' '.$val;
                        }
                    }
                    
$string .= ">\n";
                }
                if (
count($obj->children) > 0) {
                    for (
$i 0$i count($obj->children); $i++) {
                        
$string .= $this->toString($obj->getChild($i));
                    }
                }
                if (!
$obj->isRoot()) {
                    
// object is not root
                    
$string .= $ident.'</'.$obj->name.">\n";
                }
                break;
            default:
                
$string '';
        }
        if (!
$obj->isRoot()) {
            
$deep--;
        }
        return 
$string;
    } 
// end func toString
// end class Config_Container_Apache
?>