From 84fbbe1411ec93b3aa97ad535f0f9ce737f62a52 Mon Sep 17 00:00:00 2001
From: Christopher Powell
Date: Tue, 4 Dec 2001 00:11:59 +0000
Subject: Fixed a bug where make_combined_log.pl's data[] types were off by one
 due to an earlier deletion from the SELECT statement.

---
 make_combined_log.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/make_combined_log.pl b/make_combined_log.pl
index 009db42..e72cabb 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.2 2001/12/03 19:54:02 helios Exp $
+# $Id: make_combined_log.pl,v 1.3 2001/12/04 00:11:59 helios Exp $
 #
 # make_combined_log.pl
 #
@@ -88,7 +88,7 @@ if (not $records) {
 # Pull out the data row by row and format it
 #
 while (@data = $records->fetchrow_array) {
-	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($data[4]);
+	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($data[3]);
 	$year=$year+1900;
 
 	# Create format for leading-zero formatting
@@ -121,7 +121,7 @@ while (@data = $records->fetchrow_array) {
 	} else {
 		print "$st_tz\] ";
 	}
-	print "\"$data[9] $data[2] $data[10]\" $data[5] $data[6] \"$data[7]\" \"$data[8]\"\n";
+	print "\"$data[8] $data[2] $data[9]\" $data[4] $data[5] \"$data[6]\" \"$data[7]\"\n";
 }
 
 #
-- 
cgit