#!/usr/bin/perl

$global_config = "/etc/httpd/conf/httpd.conf";
$analog = "/usr/bin/analog";
$rmagic = "/usr/local/bin/rmagic-2.10/rmagic.pl";
$rmagicconf = "/usr/local/bin/rmagic-2.10/rmagic.conf";
$find = "/usr/bin/find";
$perl = "/usr/bin/perl";

$day=`/bin/date '+%e'`; chop($day);
$yr=`/bin/date '+%y'`; chop($yr);
$mo=`/bin/date '+%m'`; chop($mo);

$rotate = 0;

# Parse httpd.conf to get the list of virtual domains
$indomain = 0;
$count = 0;
open (HTTPDCONF, "<$global_config") || die "Could not open global config file $global_config";
while (<HTTPDCONF>)
{
	if (/^<VirtualHost/)
	{
		$indomain = 1;
	}

	if (/^ServerName/)
	{
		if ($indomain) {
			@line = split(/\s/, $_);
			$site[$count] = $line[1];
		}
	}

	if (/^TransferLog/)
	{
		if ($indomain) {
			@line = split(/\s/, $_);
			$logdir[$count] = $line[1];
			$ret = "";
			while ($ret ne "\/") {
				$ret = chop($logdir[$count]);
			}
		}
	}

	if (/^CustomLog/)
	{
		if ($indomain) {
			@line = split(/\s/, $_);
			$logdir[$count] = $line[1];
			$ret = "";
			while ($ret ne "\/") {
				$ret = chop($logdir[$count]);
			}
		}
}

	if (/^\<\/VirtualHost/)
	{
		$indomain = 0;
		$count++;
	}
}

close(HTTPDCONF);

# Step through each element in the list
for ($num = 0; $num < $count; $num++) {

	# if it's the first of the month
	if ($day < 10) {
		$day = "0".chop($day);
	}
	if ($mo < 10) {
		$mo = "0".chop($mo);
	}
	if ($yr < 10) {
		$yr = "0".chop($yr);
	}

	if ($day eq "01") {
		$rotate = 1;
		if ($mo eq "01") {
			$lastmo = "12";
			$lastyr = $yr - 1;
			if ($lastyr < 10) {
				$lastyr = "0" . $lastyr;
			}
		}
		else {
			$lastmo = $mo - 1;
			if ($lastmo < 10) {
				$lastmo = "0".chop($lastmo);
			}
			$lastyr = $yr;
		}

		# rotate the current log out to accesslog.lastmonth
		$run = "mv -f $logdir[$num]/accesslog $logdir[$num]/accesslog.lastmonth";
		system($run);

		# Run analog against the accesslog.lastmonth to create cache.mmyy
		$run = "$analog $logdir[$num]/accesslog.lastmonth ";
		$run .= "-O$logdir[$num]/analog.dat ";
		$run .= "-C\"BASEURL $site[$num]\" ";
		$run .= "-C\"CACHEOUTFILE $logdir[$num]/cache.$lastmo$lastyr\"";
		system($run);

		# Delete any cache files older than 360 days
		$run = "$find $logdir[$num] -name \"cache*\" -maxdepth 1 -type f -mtime +360 | xargs -n1 rm -f ";
		system($run);	
	}
	# end if

	# Now run full blown analog using the current accesslog
	$run = "$analog $logdir[$num]/accesslog ";
	$run .= "+U$logdir[$num]/cache.* ";
	$run .= "-O$logdir[$num]/analog.dat ";
	$run .= "-C\"BASEURL $site[$num]\" ";
	system($run);

	# Now run ReportMagic against the analog.dat file
	$run = "$perl $rmagic $rmagicconf -statistics_File_In=$logdir[$num]/analog.dat ";
	$run .= "-reports_File_Out=$logdir[$num]/ ";
	$run .= "-website_Base_URL=$site[$num]";

	system($run);
}
#end for

# Finally, if we rotated, reload so new hits are logged.
if ($rotate) {
	$run = "/etc/rc.d/rc3.d/S85httpd reload";
	system($run);
}