From 001cbc86e5856d209ffcfba12aea9a6fa84720f6 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 17 Apr 2010 19:22:22 +0000
Subject: [PATCH] Replace newlines after posting truncation to codepad

---
 PBot/Interpreter.pm | 17 ++++++++++++++---
 modules/cstd.pl     | 11 +++++++----
 2 files changed, 21 insertions(+), 7 deletions(-)

diff --git a/PBot/Interpreter.pm b/PBot/Interpreter.pm
index d39a9b51..ffd43d0b 100644
--- a/PBot/Interpreter.pm
+++ b/PBot/Interpreter.pm
@@ -100,17 +100,28 @@ sub process_line {
       $result = $self->{pbot}->factoids->{factoidmodulelauncher}->execute_module($from, undef, $nick, $user, $host, "title", "$nick http://$has_url");
     }
     
-    $result =~ s/\$nick/$nick/g if defined $result;
+    if(defined $result) {
+      $result =~ s/\$nick/$nick/g;
+      $result =~ s/^\s+//;
+      $result =~ s/\s+$//;
+    }
 
-    # TODO add paging system?
     if(defined $result && length $result > 0) {
       my $len = length $result;
       if($len > $pbot->max_msg_len) {
-        my $link = paste_codepad("[$from] <$nick> $text\n$result");
+        print "result: [$result]\n";
+        my $link = paste_codepad("[$from] <$nick> $text\n\n$result");
         my $trunc = "... truncated; see $link for full text.";
         $pbot->logger->log("Message truncated -- pasted to $link\n");
+
+        $result =~ s/[\n\r]+/ /g;
+        $result =~ s/\s+/ /g;
+        
         $result = substr($result, 0, $pbot->max_msg_len);
         substr($result, $pbot->max_msg_len - length $trunc) = $trunc;
+      } else {
+        $result =~ s/[\n\r]+/ /g;
+        $result =~ s/\s+/ /g;
       }
 
       $pbot->logger->log("Final result: $result\n");
diff --git a/modules/cstd.pl b/modules/cstd.pl
index dbd4996f..772b5920 100755
--- a/modules/cstd.pl
+++ b/modules/cstd.pl
@@ -70,6 +70,7 @@ my $result;
 my $found_section = "";
 my $found_section_title = "";
 my $section_title;
+my $found_paragraph;
 my $found = 0;
 my $matches = 0;
 my $this_section;
@@ -117,6 +118,7 @@ while($text =~ m/^\s{4}(\d+\.[0-9\.]*)/msg) {
 
     if($paragraph_specified == $USER_SPECIFIED and not length $search and $p == $paragraph) {
       $result = $t if not $found;
+      $found_paragraph = $p;
       $found_section = $this_section;
       $found_section_title = $section_title;
       $found = 1;
@@ -136,7 +138,7 @@ while($text =~ m/^\s{4}(\d+\.[0-9\.]*)/msg) {
                 $result = $t;
                 $found_section = $this_section;
                 $found_section_title = $section_title;
-                $paragraph = $p;
+                $found_paragraph = $p;
                 $paragraph_specified = $RESULTS_SPECIFIED;
               }
               $found = 1;
@@ -163,11 +165,10 @@ while($text =~ m/^\s{4}(\d+\.[0-9\.]*)/msg) {
     $found = 1;
     $found_section = $this_section;
     $found_section_title = $section_title;
+    $found_paragraph = $paragraph;
     $result = $section_text;
     last;
   }
-
-  $paragraph = 1;
 }
 
 if(not $found and $comma eq "") {
@@ -186,8 +187,10 @@ if(not $found and $comma eq "") {
 $result =~ s/$found_section_title// if length $found_section_title;
 $result =~ s/^\s+//;
 $result =~ s/\s+$//;
+=cut
 $result =~ s/\s+/ /g;
 $result =~ s/[\n\r]/ /g;
+=cut
 
 if($matches > 1 and not $list_only) {
   print "Displaying \#$match of $matches matches: ";
@@ -195,7 +198,7 @@ if($matches > 1 and not $list_only) {
 
 if($comma eq "") {
   print $found_section;
-  print "p" . $paragraph if $paragraph_specified;
+  print "p" . $found_paragraph if $paragraph_specified;
   print ": ";
   print "[", $found_section_title, "] " if length $found_section_title;
 }