- $cmd = "echo ".escapeshellarg($text)." | perl -MText::Autoformat -e 'autoformat {left=>1, right=>$length, all=>1 };'";
- exec($cmd, $result);
+ $max = $length + ($length/10);
+ $splits = split("\n", $text);
+ $ret = -1;
+ foreach ($splits as $line) {
+ if ($_force || strlen($line) > $max) {
+ if (!preg_match("!^\\s*$url\\s*$!i", $line)) {
+ $cmd = "echo ".escapeshellarg($text)." | perl -MText::Autoformat -e 'autoformat {left=>1, right=>$length, all=>1 };'";
+ exec($cmd, $result, $ret);
+ break;
+ }
+ }
+ }
+ if ($ret != 0) {
+ $result = $splits;
+ }