NGINX_PID=/var/run/nginx.pid
HTTPD_PID=/var/run/httpd.pid
NGINX=/usr/local/sbin/nginx

use Data::Dumper;

# script configuration variables
$debug = 0;
$initial_http_conf = "/etc/httpd/conf/httpd.conf";
%logfiles = ();
$logtype = "combined";
$bytes_field = 6;
$time_field = 7;
# ------------------------------

sub parseconffile {
my $filename = shift;
my $content = "";
$debug and print ". parseconffile: opening $filename \n";
open (FILE, $filename);
while () { next if (/^[ \t]*\#/); $content .= $_; }
close FILE;

@virtialhost_sections = ( $content =~ //sg);
$debug and print ". parseconffile: found ".scalar(@virtialhost_sections)." virtual host sections \n";

foreach $virtialhost_section (@virtialhost_sections) {
$debug and print ". . parseconffile: parsing virtual host section \n";
(my $vh_ips) = $virtialhost_section =~ /[ \t]*(.*?)>/;
$debug and print ". . parseconffile: VH on = ".$vh_ips."\n";
($vh_ip,$vh_port) = split(":",$vh_ips);
if (!$vh_port) { $vh_port = 8080; }
$debug and print ". . parseconffile: (ip = ".$vh_ip.", port = ".$vh_port.")\n";
(my $servername) = $virtialhost_section =~ /ServerName[ \t]*(.*?)[\r\n]/;
$debug and print ". . parseconffile: ServerName = ".$servername."\n";
(my $serveraliases_list) = $virtialhost_section =~ /ServerAlias[ \t]*(.*?)[\r\n]/;
$debug and print ". . parseconffile: ServerAliases List = ".$serveraliases_list."\n";
my @server_aliases = split (/[ \t]/, $serveraliases_list);
$debug and print ". . parseconffile: (".scalar(@server_aliases)." aliases)\n";
(my $documentroot) = $virtialhost_section =~ /DocumentRoot[ \t]*(.*?)[\r\n]/;
$debug and print ". . parseconffile: DocumentRoot = ".$documentroot."\n";
(my $logfilename) = ($virtialhost_section =~ /CustomLog (.*) $logtype/);
(my $byteslogfilename) = ($virtialhost_section =~ /CustomLog (.*) bytes/);
my $bytesconf = "";
if ($byteslogfilename) {
$bytesconf = "access_log $byteslogfilename bytes;"
}
if ($logfilename) {
$logfiles{$logfilename} = $servername;
$debug and print ". . parseconffile: CustomLog = ".$logfilename."\n";
}

$debug and print " =====================================================================================\n";
if ($vh_port == 8080 ) {
print ) {
next if (/^[ \t]*\#/);
chomp;
($debug == 2) and print ". . searchforincludes: checking string $_ \n";
if (/Include[ \t]*(.*)/) {
my @includefile = $_ =~ /Include[ \t]*(.*)$/;
$debug and print ". ! searchforincludes: Include found: ($_) ".$includefile[0]." \n";
push @includefiles, $includefile[0];
}
}
close FILE;
return @includefiles;
}

$debug and print ("Version 0.1\n");
my @includefiles = searchforincludes($initial_http_conf);

parseconffile ($initial_http_conf);
foreach $includefile (@includefiles) { parseconffile ($includefile); }
$debug and print "%logfiles hash dump:\n".Dumper(\%logfiles);

@includefiles = searchforincludes("/etc/httpd/conf/extra/directadmin-vhosts.conf");
foreach $includefile (@includefiles) { parseconffile ($includefile); }
$debug and print "%logfiles hash dump:\n".Dumper(\%logfiles);

events {
worker_connections 1024;
}

http {
include /usr/local/etc/nginx/mime.types;
default_type application/octet-stream;

log_format main '$remote_addr - $remote_user [$time_local] '
'"$request" "$http_referer" $status $bytes_sent '
'"$http_user_agent" "http_x_forwarded_for"';

log_format bytes '$bytes_sent';

access_log /var/log/nginx/access.log main;

#worker_rlimit_nofile 80000;
#events {
# worker_connections 50000;
#}

reset_timedout_connection on;
client_header_timeout 3m;
client_body_timeout 3m;
send_timeout 3m;

client_header_buffer_size 1k;
large_client_header_buffers 4 4k;
server_names_hash_bucket_size 128;

gzip on;
gzip_min_length 1100;
gzip_buffers 4 8k;
gzip_types text/plain;

output_buffers 1 32k;
postpone_output 1460;