Changeset 8b2419c for perl/modules/IRC/lib/BarnOwl/Module

Timestamp:

Aug 8, 2013, 2:32:12 PM (11 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Parents:

4f7b1f4 (diff), 5625001 (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 5625001de63457b120505d283334cc38ed18d17a into 4f7b1f490980e1bd4ec7a48474a4598d447b2d5b

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC.pm (modified) (4 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.'
        });
 
@@ -433 +442 @@
     @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 (.*)/) {
@@ -606 +623 @@
         }
 
-        if(!$channel &&
+        if(!defined($channel) &&
            ($flags & CHANNEL_ARG) &&
            !($flags & CHANNEL_OPTIONAL)) {