#!/usr/bin/perl
#
# Recursively walks httpd.conf for Include directives not being part of a
# VirtualHost. Returns all configfiles so defined.
#
# Pierfrancesco Caci, ik5pvx - Same licence as apache itself.
#
# Updates:
# 20040119 - Added option '-V' to include vhosts too. Must be first argument.
# 20040120 - Added support for spaces in filenames.
# 20040602 - Ignore multiple spaces before filename. Properly get rid of
#            comments on same line as valid command, and of spaces at 
#            end of line. Spaces in filenames are evil. Don't let your 
#            friend use them.
#

use warnings;
use strict;
use diagnostics;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my $serverroot = "/";
my $baseconfig;
our $withvhosts = 0;

 s;

my