#!/usr/bin/perl
use strict;
use warnings;
use Config::ApacheFormat;

my $configfile = shift || '/dev/stdin';

my $config = Config::ApacheFormat->new(
    root_directive     => 'ServerRoot',
    hash_directives    => [ 'AddHandler' ],
    include_directives => [ 'Include',
                            'AccessConfig',
                            'ResourceConfig' ],
    setenv_vars        => 1,
    fix_booleans       => 1);

$config->read( $configfile );

my @vhosts = $config->block( 'VirtualHost'=>'*:80' );

exit( 0 );

my $http = qq(                                                                  
# Ensure that Apache listens on port 80                                         
Listen 80
<VirtualHost *:80>
    DocumentRoot "/www/example1"
    ServerName www.example.com

    # Other directives here
</VirtualHost>                                                                  

<VirtualHost *:80>
    DocumentRoot "/www/example2"
    ServerName www.example.org

    # Other directives here
</VirtualHost>                                                                  
);