move-wiki: do not touch body of {{{ }}} blocks

Signed-off-by: Johannes Schindelin <johannes.schindelin@gmx.de>
msysgit · Feb 22, 2010 · a0e99d5 · a0e99d5
1 parent 4193811
commit a0e99d5
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/bin/move-wiki.sh b/bin/move-wiki.sh
@@ -17,9 +17,16 @@ NAMESPACE=MSysGit
 
 transform () {
 	perl -e 'while (<>) {
+		if ($_ eq "{{{\n") {
+			print "<code>\n";
+			while (<>) {
+				last if ($_ eq "}}}\n");
+				print $_;
+			}
+			print "</code>\n";
+			next;
+		}
 		s/^#.*/<!-- $& -->/;
-		s/{{{/<code>/g;
-		s/}}}/<\/code>/g;
 		s/`(.*?)`/<code>$1<\/code>/g;
 		s/(?<=\s)!([A-Z])/$1/g;
 		s/(?<!\[)\[(?![a-z]*:)([^\] ]+) +([^\]]+)\]/[[MSysGit:$1|$2]]/g;