From 210fe3664b622ba439c5bed3f95a2c938fd323f7 Mon Sep 17 00:00:00 2001
From: joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Date: Sat, 24 Mar 2007 12:21:34 +0000
Subject: [PATCH] web commit by hb: Adding patch for the no message case for
 mercurial

---
 ...rror_500_when_using_mercurial_backend.mdwn | 22 +++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 doc/bugs/Http_error_500_when_using_mercurial_backend.mdwn

diff --git a/doc/bugs/Http_error_500_when_using_mercurial_backend.mdwn b/doc/bugs/Http_error_500_when_using_mercurial_backend.mdwn
new file mode 100644
index 000000000..5015b6290
--- /dev/null
+++ b/doc/bugs/Http_error_500_when_using_mercurial_backend.mdwn
@@ -0,0 +1,22 @@
+The mercurial backend is broken when no changelog message is given.
+
+Here is a quick patch, partialy copying the svn backend. 
+
+    --- /usr/share/perl5/IkiWiki/Rcs/mercurial.pm	2007-03-18 23:19:40.000000000 +0100
+    +++ ./mercurial.pm	2007-03-24 13:11:36.000000000 +0100
+    @@ -70,12 +70,15 @@
+     
+     	if (defined $user) {
+     		$user = possibly_foolish_untaint($user);
+    +		$message="web commit by $user".(length $message ? ": $message" : "");
+     	}
+     	elsif (defined $ipaddr) {
+     		$user = "Anonymous from $ipaddr";
+    +		$message="web commit from $ipaddr".(length $message ? ": $message" : "");
+     	}
+     	else {
+     		$user = "Anonymous";
+    +		$message="web commit by Anonymous".(length $message ? ": $message" : "");
+     	}
+     
+     	$message = possibly_foolish_untaint($message);
\ No newline at end of file
-- 
2.44.0