From 6eff371018e78925510ff71cb255a64a441a9fc8 Mon Sep 17 00:00:00 2001
From: Christopher Powell <chris@grubbybaby.com>
Date: Mon, 03 Dec 2001 19:54:02 +0000
Subject: Big changes including reworked cookie code, new directives, SSL logging,

new formatting characters, bugfixes, etc.

---
(limited to 'make_combined_log.pl')

diff --git a/make_combined_log.pl b/make_combined_log.pl
index d375f3a..009db42 100755
--- a/make_combined_log.pl
+++ b/make_combined_log.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: make_combined_log.pl,v 1.1 2001/11/28 05:26:54 helios Exp $
+# $Id: make_combined_log.pl,v 1.2 2001/12/03 19:54:02 helios Exp $
 #
 # make_combined_log.pl
 #
@@ -45,7 +45,7 @@ $virthost = $ARGV[1];
 #
 # Set up the proper variables to permit database access
 #
-$serverName = "your.dbmachine.com";
+$serverName = "your.dbhost.com";
 $serverPort = "3306";
 $serverUser = "someuser";
 $serverPass = "somepass";
@@ -57,8 +57,6 @@ $serverDb   = "apache";
 #
 $st_tz = "-0800";
 $dt_tz = "-0700";
-$type = "GET";
-$http = "HTTP/1.1";
 
 $now = time();
 $start = $now - (86400 * $days);
@@ -71,7 +69,7 @@ if (not $dbh) {
 	die "Unable to connect to the database.  Please check your connection variables. (Bad password? Incorrect perms?)";
 }
 
-$records = $dbh->prepare("select remote_host,remote_user,request_uri,request_duration,time_stamp,status,bytes_sent,referer,agent from $serverTbl where virtual_host='$virthost' and time_stamp >= $start");
+$records = $dbh->prepare("select remote_host,remote_user,request_uri,time_stamp,status,bytes_sent,referer,agent,request_method,request_protocol from $serverTbl where virtual_host='$virthost' and time_stamp >= $start");
 $records->execute;
 if (not $records) {
 	die "No such table or the select returned no records."
@@ -94,7 +92,7 @@ while (@data = $records->fetchrow_array) {
 	$year=$year+1900;
 
 	# Create format for leading-zero formatting
-	if ($day < 10) { $day = "0$day"; }
+	if ($mday < 10) { $mday = "0$mday"; }
 	if ($month < 10) { $month = "0$month"; }	
 	if ($hour < 10) { $hour = "0$hour"; }
 	if ($min < 10) { $min = "0$min"; }
@@ -123,7 +121,7 @@ while (@data = $records->fetchrow_array) {
 	} else {
 		print "$st_tz\] ";
 	}
-	print "\"$type $data[2] $http\" $data[5] $data[6] \"$data[7]\" \"$data[8]\"\n";
+	print "\"$data[9] $data[2] $data[10]\" $data[5] $data[6] \"$data[7]\" \"$data[8]\"\n";
 }
 
 #
--
cgit v0.9.2