From a582d5a8ec51d87bc7d8d87e57b2cf84f10f6bd0 Mon Sep 17 00:00:00 2001
From: Andre Lorbach <alorbach@adiscon.com>
Date: Tue, 26 Nov 2019 10:51:50 +0100
Subject: [PATCH] Add SelectBox for DatabaseBreak Mode: month,day and hour.

If day is selected, show day selectbox after month selectbox.
If hour is selected, show hour selectbox after day selectbox.
---
 wwwroot/cgi-bin/awstats.pl | 40 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index 7ec51252..9ac82aec 100755
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -10001,6 +10001,18 @@ sub HTMLTopBanner{
 "<tr><td class=\"aws\" valign=\"middle\"><b>$Message[133]:</b></td>";
 		print "<td class=\"aws\" valign=\"middle\">";
 		if ( $ENV{'GATEWAY_INTERFACE'} || !$StaticLinks ) {
+			print "<select class=\"aws_formfield\" name=\"databasebreak\">\n";
+			print "<option"
+			  . ( $DatabaseBreak eq "month" ? " selected=\"selected\"" : "" )
+			  . " value=\"month\">Monthly</option>\n";
+			print "<option"
+			  . ( $DatabaseBreak eq "day" ? " selected=\"selected\"" : "" )
+			  . " value=\"day\">Daily</option>\n";
+			print "<option"
+			  . ( $DatabaseBreak eq "hour" ? " selected=\"selected\"" : "" )
+			  . " value=\"hour\">Hourly</option>\n";
+			print "</select>\n";
+
 			print "<select class=\"aws_formfield\" name=\"month\">\n";
 			foreach ( 1 .. 12 ) {
 				my $monthix = sprintf( "%02s", $_ );
@@ -10028,6 +10040,34 @@ sub HTMLTopBanner{
 				  . " value=\"$_\">$_</option>\n";
 			}
 			print "</select>\n";
+
+			if (	$DatabaseBreak eq 'day' || 
+					$DatabaseBreak eq 'hour') {
+				if (!$DayRequired) {
+					$DayRequired = $nowday; 
+				}
+				print "<select class=\"aws_formfield\" name=\"day\">\n";
+				foreach ( 1 .. 31 ) {
+					print "<option"
+					  . ( $DayRequired eq "$_" ? " selected=\"selected\"" : "" )
+					  . " value=\"$_\">$_</option>\n";
+				}
+				print "</select>\n";
+			}
+
+			if (	$DatabaseBreak eq 'hour') {
+				if (!$HourRequired) {
+					$HourRequired = $nowhour; 
+				}
+				print "<select class=\"aws_formfield\" name=\"day\">\n";
+				foreach ( 1 .. 31 ) {
+					print "<option"
+					  . ( $HourRequired eq "$_" ? " selected=\"selected\"" : "" )
+					  . " value=\"$_\">$_</option>\n";
+				}
+				print "</select>\n";
+			}
+
 			print "<input type=\"hidden\" name=\"output\" value=\""
 			  . join( ',', keys %HTMLOutput )
 			  . "\" />\n";
-- 
2.47.2