Changeset 67009f92

Timestamp:

May 13, 2013, 8:12:09 PM (11 years ago)

Author:

Jason Gross <jasongross9@gmail.com>

Parents:

0625919 (diff), c2866ec (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge c2866ecce166474ab92c7f75d53d7de0d6d884a0 into 0625919d1e483ec9ba11021e1281e05f9d2b877a

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC.pm (modified) (3 diffs)

perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

@@ -23 +23 @@
 use Getopt::Long;
 use Encode;
+use Text::Wrap;
 
 our $VERSION = 0.02;
@@ -65 +66 @@
         description => 'If set, each (space-separated) message type ' .
         'provided will be hidden and ignored if received.'
+       });
+
+    BarnOwl::new_variable_int('irc:max-message-length', {
+        default     => 450,
+        summary     => 'Split messages to at most this many characters.' .
+                       "If non-positive, don't split messages",
+        description => 'If set to a positive number, any paragraph in an ' .
+                       'IRC message will be split after this many characters.'
        });
 
@@ -427 +436 @@
     @msgs = split "\n\n", $fullbody;
     map { tr/\n/ / } @msgs;
+    # split each body at irc:max-message-length characters, if that number
+    # is positive.  Only split at space boundaries.  Start counting a-fresh
+    # at the beginning of each paragraph
+    my $max_len = BarnOwl::getvar('irc:max-message-length');
+    if ($max_len > 0) {
+        local($Text::Wrap::columns) = $max_len;
+        @msgs = split "\n", wrap("", "", join "\n", @msgs);
+    }
     for my $body (@msgs) {
         if ($body =~ /^\/me (.*)/) {