From: x99bachelart <x99bachelart>
Date: Mon, 29 Sep 2003 11:16:10 +0000 (+0000)
Subject: bugfix (perl wrapper)
X-Git-Tag: 1.8~388
X-Git-Url: http://git.polytechnique.org/?a=commitdiff_plain;h=41c438e13278031ea4b30b6256056e07d91970e9;p=banana.git

bugfix (perl wrapper)
---

diff --git a/include/wrapper.inc.php b/include/wrapper.inc.php
index c914413..4f6b976 100644
--- a/include/wrapper.inc.php
+++ b/include/wrapper.inc.php
@@ -149,19 +149,19 @@ function wrap($_text,$_prefix="",$_length=72) {
 #  foreach ($delig as $d) {
 #    $result .= dowrap($d,$max,$_length,$_prefix);
 #  }
-  
   $text = $_text;
   if ($_prefix != "") {
 	$lines = split("\n",$_text);
-	$text = $_prefix.join($lines,"\n$_prefix");
+	$text = $_prefix.join("\n$_prefix",$lines);
   }
-  exec("echo ".escapeshellarg($text)." | perl -MText::Autoformat -e "
-   ."'{autoformat{ignore=>qr/^([a-zA-Z]+:|--)/};}'", $result);
-  $result=preg_replace("/\n--\n/","\n-- \n",join($result,"\n"));
+  $exec="echo ".escapeshellarg($text)." | perl -MText::Autoformat -e "
+   ."'autoformat {left=>1, right=>$_length, all=>1 };'";
+  exec($exec,$result);
+        
+  $result=join("\n",$result);
+  $result=preg_replace("/\n--\n/","\n-- \n",$result);
 
   return $result;
 }
 
 ?>
-
-