summaryrefslogtreecommitdiffstatsabout
diff options
context:
space:
mode:
authorChristopher Powell <chris@grubbybaby.com>2001-12-04 00:11:59 (GMT)
committer Christopher Powell <chris@grubbybaby.com>2001-12-04 00:11:59 (GMT)
commit84fbbe1411ec93b3aa97ad535f0f9ce737f62a52 (patch)
treee6a981aad15d368dd9eaf8b8bc35fdaa8cf09f76
parent948b04fd7cf53f32ce5cb5fc5e3ea0190e5f25a0 (diff)
Fixed a bug where make_combined_log.pl's data[] types were off by one1.121.11
due to an earlier deletion from the SELECT statement.
-rwxr-xr-xmake_combined_log.pl6
1 files 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 @@
1#!/usr/bin/perl 1#!/usr/bin/perl
2 2
3# $Id: make_combined_log.pl,v 1.2 2001/12/03 19:54:02 helios Exp $ 3# $Id: make_combined_log.pl,v 1.3 2001/12/04 00:11:59 helios Exp $
4# 4#
5# make_combined_log.pl 5# make_combined_log.pl
6# 6#
@@ -88,7 +88,7 @@ if (not $records) {
88# Pull out the data row by row and format it 88# Pull out the data row by row and format it
89# 89#
90while (@data = $records->fetchrow_array) { 90while (@data = $records->fetchrow_array) {
91 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($data[4]); 91 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($data[3]);
92 $year=$year+1900; 92 $year=$year+1900;
93 93
94 # Create format for leading-zero formatting 94 # Create format for leading-zero formatting
@@ -121,7 +121,7 @@ while (@data = $records->fetchrow_array) {
121 } else { 121 } else {
122 print "$st_tz\] "; 122 print "$st_tz\] ";
123 } 123 }
124 print "\"$data[9] $data[2] $data[10]\" $data[5] $data[6] \"$data[7]\" \"$data[8]\"\n"; 124 print "\"$data[8] $data[2] $data[9]\" $data[4] $data[5] \"$data[6]\" \"$data[7]\"\n";
125} 125}
126 126
127# 127#