#!/lang/perl -p
BEGIN { $site = ""; }
if (/ServerName +([^.]+)\./) { $site = "$1"; }
$all .= "$_";

END {
	if ($all !~ /^<VirtualHost \*:443>$/m) {
		$all =~ s,^<VirtualHost \*>$,<VirtualHost *:443>,gm;
		$all =~ s,
^\tCustomLog\s/var/log/apache2/$ENV{site}/access.log\scombined$
	,
qq{\tTransferLog /var/log/apache2/$ENV{site}/access.log
\tCustomLog /var/log/apache2/$ENV{site}/ssl_request.log \\
\t\t  "%t %h %{SSL_PROTOCOL}x %{SSL_CIPHER}x \\"%r\\" %b"
\tSSLEngine on}
	,gmxe;
		print $all;
	}

}