From 712ab33ff63b5248a8982a720a72f4f0c364c49d Mon Sep 17 00:00:00 2001
From: Rudolf Polzer <divVerent@xonotic.org>
Date: Fri, 19 Aug 2011 21:59:38 +0200
Subject: [PATCH] support building a HTML cache

---
 misc/tools/weapon-profiler-analyzer.pl | 31 +++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

diff --git a/misc/tools/weapon-profiler-analyzer.pl b/misc/tools/weapon-profiler-analyzer.pl
index 1461d8e5..bbd7b912 100755
--- a/misc/tools/weapon-profiler-analyzer.pl
+++ b/misc/tools/weapon-profiler-analyzer.pl
@@ -294,7 +294,36 @@ sub out_html($@)
 	}
 }
 
-my $out = $ENV{html} ? \&out_html : \&out_text;
+my $out_html_cache_fh;
+sub out_html_cache($@)
+{
+	my ($event, @data) = @_;
+	if($event eq 'startmatrix')
+	{
+		# open out file
+		my ($addr, $type, $map, @columns) = @data;
+		$addr ||= ':any';
+		$type ||= ':any';
+		$map ||= ':any';
+		mkdir "$type";
+		mkdir "$type/$map";
+		open $out_html_cache_fh, ">", "$type/$map/$addr"
+			or warn "open $type/$map/$addr: $!";
+		select $out_html_cache_fh;
+	}
+	out_html($event, @data);
+	if($event eq 'endmatrix')
+	{
+		# close out file
+		select STDOUT;
+		close $out_html_cache_fh;
+	}
+}
+
+my $out =
+	$ENV{html_cache} ? \&out_html_cache :
+	$ENV{html}       ? \&out_html       :
+	\&out_text;
 
 LoadData();
 $out->(start => ());
-- 
2.39.2