From: Darold <gilles@darold.net>
Date: Wed, 18 Apr 2012 15:05:19 +0000 (+0200)
Subject: Fix sort order of days into graphics
X-Git-Tag: v3.2~264
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=d59f98d11dd5ebad366ae2f1bef88277920a8578;p=pgbadger

Fix sort order of days into graphics
---

diff --git a/pgbadger b/pgbadger
index ab5a445..c9dead1 100755
--- a/pgbadger
+++ b/pgbadger
@@ -997,7 +997,7 @@ sub dump_as_html
 		my @data1 = ();
 		my @data2 = ();
 		my @data3 = ();
-		foreach my $tm (keys %{$per_minute_info{query}}) {
+		foreach my $tm (sort {$a <=> $b} keys %{$per_minute_info{query}}) {
 			$tm =~ /(\d{4})(\d{2})(\d{2})/;
 			my $prefix = "$1-$2-$3 ";
 			foreach my $h ("00" .. "23") {
@@ -1034,7 +1034,7 @@ sub dump_as_html
 		print $fh qq{<p><img src="queriespersecond.png" alt="Queries per second" /></p>};
 
 		# All queries
-		foreach my $tm (keys %per_hour_info) {
+		foreach my $tm (sort {$a <=> $b} keys %per_hour_info) {
 			$tm =~ /(\d{4})(\d{2})(\d{2})/;
 			my $prefix = "$1-$2-$3 ";
 			foreach my $h ("00" .. "23") {
@@ -1052,7 +1052,7 @@ sub dump_as_html
 
 		# checkpoint size
 		if (exists $checkpoint_info{chronos}) {
-			foreach my $tm (keys %{$checkpoint_info{chronos}}) {
+			foreach my $tm (sort {$a <=> $b} keys %{$checkpoint_info{chronos}}) {
 				$tm =~ /(\d{4})(\d{2})(\d{2})/;
 				my $prefix = "$1-$2-$3 ";
 				foreach my $h ("00" .. "23") {
@@ -1068,7 +1068,7 @@ sub dump_as_html
 		}
 
 		# Select queries
-		foreach my $tm (keys %per_hour_info) {
+		foreach my $tm (sort {$a <=> $b} keys %per_hour_info) {
 			$tm =~ /(\d{4})(\d{2})(\d{2})/;
 			my $prefix = "$1-$2-$3 ";
 			foreach my $h ("00" .. "23") {
@@ -1086,7 +1086,7 @@ sub dump_as_html
 
 		# Write queries
 		my @data4 = ();
-		foreach my $tm (keys %per_hour_info) {
+		foreach my $tm (sort {$a <=> $b} keys %per_hour_info) {
 			$tm =~ /(\d{4})(\d{2})(\d{2})/;
 			my $prefix = "$1-$2-$3 ";
 			foreach my $h ("00" .. "23") {