From a59af82bb85a037814d3f95d3c9841048b221ca0 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
Date: Wed, 20 Feb 2008 16:45:02 -0500
Subject: * tla: Remove call to escapeHTML when constructing recentchanges
 message;   the html is escaped at a different level. Closes: #466495 * bzr,
 mercurial: Remove unused import of escapeHTML.

---
 IkiWiki/Rcs/bzr.pm       | 3 ---
 IkiWiki/Rcs/mercurial.pm | 3 ---
 IkiWiki/Rcs/tla.pm       | 2 +-
 3 files changed, 1 insertion(+), 7 deletions(-)

(limited to 'IkiWiki/Rcs')

diff --git a/IkiWiki/Rcs/bzr.pm b/IkiWiki/Rcs/bzr.pm
index a04bfe1cb..526036bf3 100644
--- a/IkiWiki/Rcs/bzr.pm
+++ b/IkiWiki/Rcs/bzr.pm
@@ -92,9 +92,6 @@ sub rcs_add ($) { # {{{
 sub rcs_recentchanges ($) { #{{{
 	my ($num) = @_;
 
-	eval q{use CGI 'escapeHTML'};
-	error($@) if $@;
-
 	my @cmdline = ("bzr", "log", "-v", "--show-ids", "--limit", $num, 
 		           $config{srcdir});
 	open (my $out, "@cmdline |");
diff --git a/IkiWiki/Rcs/mercurial.pm b/IkiWiki/Rcs/mercurial.pm
index db6a396ac..8b1f2c6a1 100644
--- a/IkiWiki/Rcs/mercurial.pm
+++ b/IkiWiki/Rcs/mercurial.pm
@@ -104,9 +104,6 @@ sub rcs_add ($) { # {{{
 sub rcs_recentchanges ($) { #{{{
 	my ($num) = @_;
 
-	eval q{use CGI 'escapeHTML'};
-	error($@) if $@;
-
 	my @cmdline = ("hg", "-R", $config{srcdir}, "log", "-v", "-l", $num,
 		"--style", "default");
 	open (my $out, "@cmdline |");
diff --git a/IkiWiki/Rcs/tla.pm b/IkiWiki/Rcs/tla.pm
index ecc561bde..231496445 100644
--- a/IkiWiki/Rcs/tla.pm
+++ b/IkiWiki/Rcs/tla.pm
@@ -132,7 +132,7 @@ sub rcs_recentchanges ($) {
 		}
 
 		my @message;
-		push @message, { line => escapeHTML($summ) };
+		push @message, { line => $summ };
 
 		my @pages;
 
-- 
cgit v1.2.3