From 321ac0b0468a8018e7cd1303c9d9331ef363c3af Mon Sep 17 00:00:00 2001
From: Will Budic <vilijanc@gmail.com>
Date: Mon, 2 Mar 2020 18:14:37 +1100
Subject: [PATCH] timezone setting.

---
 htdocs/cgi-bin/config.cgi | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/htdocs/cgi-bin/config.cgi b/htdocs/cgi-bin/config.cgi
index 9b31216..db6876e 100755
--- a/htdocs/cgi-bin/config.cgi
+++ b/htdocs/cgi-bin/config.cgi
@@ -55,8 +55,9 @@ my $db = DBI->connect($dsn, $userid, $pass, { RaiseError => 1 }) or die "<p>Erro
 
 my $rv;
 my $dbs;
-my $today  = DateTime->now;
 my $lang   = Date::Language->new(&Settings::language);
+my $today  = DateTime->now;
+   $today->set_time_zone( &Settings::timezone );
 my $tz     = $cgi->param('tz');
 my $csvp   = $cgi->param('csv');
 
@@ -77,7 +78,7 @@ elsif($cgi->param('data_cat')){
     &importLogCSV;
 }
 
-$today->set_time_zone( &Settings::timezone );
+
 
 my $stmtCat = 'SELECT * FROM CAT ORDER BY ID;';
 my $status = "Ready for change!";
@@ -970,7 +971,6 @@ try{
 }
 sub backup {
 
-
    my $ball = 'bck__'.$today->strftime('%Y%m%d%H%M%S_')."$dbname.osz";
    my $pipe = "tar czf - ".&Settings::logPath.'main.cnf' ." $database | openssl enc -k $pass:$userid -e -des-ede3-cfb -out ".Settings::logPath().$ball." 2>/dev/null";
    my $rez = `$pipe`;
-- 
2.34.1