Changeset 538a5f7 for lib

Timestamp:

Mar 25, 2010, 12:48:01 PM (15 years ago)

Author:

Nelson Elhage <nelhage@ksplice.com>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

4225627

Parents:

6249a76d

git-author:

Kevin Riggle <kevinr@free-dissociation.com> (03/07/10 01:52:58)

git-committer:

Nelson Elhage <nelhage@ksplice.com> (03/25/10 12:48:01)

Message:

convert a single newline into a single space in outgoing tweets

Signed-off-by: Kevin Riggle <kevinr@free-dissociation.com>

File:

• lib/BarnOwl/Module/Twitter/Handle.pm (modified) (2 diffs)

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -281 +281 @@
 }
 
+sub _stripnl {
+    my $msg = shift;
+
+    # strip non-newline whitespace around newlines
+    $msg =~ s/[^\n\S]*(\n+)[^\n\S]*/$1/sg;
+    # change single newlines to a single space; leave multiple newlines
+    $msg =~ s/([^\n])\n([^\n])/$1 $2/sg;
+    # strip leading and trailing whitespace
+    $msg =~ s/\s+$//s;
+    $msg =~ s/^\s+//s;
+
+    return $msg;
+}
+
 sub twitter {
     my $self = shift;
 
-    my $msg = shift;
+    my $msg = _stripnl(shift);
     my $reply_to = shift;
 
@@ -305 +319 @@
 
     my $who = shift;
-    my $msg = shift;
+    my $msg = _stripnl(shift);
+
     if(defined $self->{twitter}) {
         $self->twitter_command('new_direct_message', {