From b881f9fe2a65e180b86023b9aaba8325745c9c89 Mon Sep 17 00:00:00 2001
From: Rudolf Polzer <divverent@alientrap.org>
Date: Fri, 24 Feb 2012 13:29:37 +0100
Subject: [PATCH] new feature: dp_timinglog, write a log file of all timing
 reports

---
 server/rcon2irc/rcon2irc-example.conf |  1 +
 server/rcon2irc/rcon2irc.pl           | 10 ++++++++++
 2 files changed, 11 insertions(+)

diff --git a/server/rcon2irc/rcon2irc-example.conf b/server/rcon2irc/rcon2irc-example.conf
index 7a537991..aa0b947c 100644
--- a/server/rcon2irc/rcon2irc-example.conf
+++ b/server/rcon2irc/rcon2irc-example.conf
@@ -43,6 +43,7 @@ irc_channel = #Xonotic-Pwayers
 #dp_listen_from_server =
 #dp_status_delay = 30
 #dp_utf8_enable = 1
+#dp_timinglog = timing.log
 #irc_reconnect_delay = 300
 #irc_admin_timeout = 3600
 #irc_admin_quote_re =
diff --git a/server/rcon2irc/rcon2irc.pl b/server/rcon2irc/rcon2irc.pl
index 8f7ba049..312e3640 100755
--- a/server/rcon2irc/rcon2irc.pl
+++ b/server/rcon2irc/rcon2irc.pl
@@ -752,6 +752,7 @@ our %config = (
 	dp_server_from_wan => "",
 	dp_listen_from_server => "", 
 	dp_utf8_enable => $color_utf8_enable,
+	dp_timinglog => "",
 	irc_local => "",
 
 	irc_admin_password => "",
@@ -1728,6 +1729,15 @@ sub cond($)
 		my ($all, $cpu, $lost, $avg, $max, $sdev) = @_;
 		return 0 # don't complain when just on the voting screen
 			if !$store{playing};
+		if(length $config{dp_timinglog})
+		{
+			open my $fh, '>>', $config{dp_timinglog}
+				or warn "open >> $config{dp_timinglog}: $!";
+			print $fh "@{[time]} $cpu $lost $avg $max $sdev\n"
+				or warn "print >> $config{dp_timinglog}: $!";
+			close $fh
+				or warn "close >> $config{dp_timinglog}: $!";
+		}
 		return 0 # don't complain if it was less than 0.5%
 			if $lost < 0.5;
 		return 0 # don't complain if nobody is looking
-- 
2.39.2