# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1386321009 -3600
# Node ID 6e5a0f90db08601c0bd235221349066a3bd04810

initial version

diff -r 000000000000 -r 6e5a0f90db08 read-httpd-conf
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/read-httpd-conf	Fri Dec 06 10:10:09 2013 +0100
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use 5.010;
+use strict;
+use warnings;
+use Carp;
+
+sub read_file {
+	my $file = shift;
+	open(my $fh, '<', $file)
+		or croak "Can't open $file: $!\n";
+	say "# 1 $file";
+	while (<$fh>) {
+		if (/^\s*include\s+(?<quote>["'])?(?<file>.*?)\k<quote>?\s*$/i) {
+			#print "#$file:$.:$_";
+			say "# $. $file INCLUDE $+{file}";
+			read_file($_) foreach (glob $+{file});
+			next;
+		}
+		print;
+	}
+}
+
+die "$0: Need file name (httpd.conf)\n" 
+    unless $@;
+read_file(shift);