From f0d8e904415e902637aa5e150268c9a3eb82544d Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Mon, 21 Sep 2020 02:11:47 +0300
Subject: [PATCH] Add date to logger() messages like in bsd syslog

---
 lib/botlib.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/botlib.pm b/lib/botlib.pm
index f4806f5..f67364b 100644
--- a/lib/botlib.pm
+++ b/lib/botlib.pm
@@ -192,11 +192,15 @@ sub logger {
 	my $msg = shift;
 
 	if ($c->{debug_log}) {
+		my @date = localtime();
+		my @month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+		my $t = sprintf ("%02s %02d %02d:%02d:%02d ", $month[$date[4]], $date[3], $date[2], $date[1], $date[0]);
+
 		my $mode = '>';
 		$mode = '>>' if (-f $c->{debug_log});
 
 		if (open (LOG, $mode, $c->{debug_log})) {
-			print LOG $msg . "\n";
+			print LOG $t . $msg . "\n";
 			close LOG;
 		}
 	}