From ffd56575d8b460198ca5062c55fb4331c145ef4e Mon Sep 17 00:00:00 2001
From: "Ryan C. Gordon" <icculus@icculus.org>
Date: Tue, 22 Mar 2016 12:47:54 -0400
Subject: [PATCH] Parsing changes to summary text.

---
 IcculusFinger_archiveplans.pl | 12 +++++++++---
 IcculusFinger_daemon.pl       |  7 ++++++-
 2 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/IcculusFinger_archiveplans.pl b/IcculusFinger_archiveplans.pl
index bd74ed6..03f09fd 100755
--- a/IcculusFinger_archiveplans.pl
+++ b/IcculusFinger_archiveplans.pl
@@ -319,14 +319,20 @@ sub update_planfile {
         $str =~ s/\s+\Z//;
 
         $summary = $str;
+        $summary =~ s/\A(.{1,80})\b.*\Z/$1/;	
+        $summary =~ s/\A(.{15,}?[.?!]).*\Z/$1/;  # gross.
     }
 
     1 while ($summary =~ s/\r\n/ /s);
     1 while ($summary =~ s/\r/ /s);
     1 while ($summary =~ s/\n/ /s);
-    if (length($summary) > 80) {
-        $summary =~ s/\A(.{15,}?[.?!])(.*?)\Z/$1/;  # gross.
-    }
+
+    if (length($summary) > 80) {   
+        $summary =~ s/\A(.{1,80})\b.*\Z/$1/;	
+        $summary =~ s/\A(.{15,}?[.?!]).*\Z/$1/;  # gross.
+    } 
+
+    #print("SUMMARY: $summary\n"); exit(0);
 
     $summary = $link->quote($summary);
 
diff --git a/IcculusFinger_daemon.pl b/IcculusFinger_daemon.pl
index 2d3cb9c..e6aec83 100755
--- a/IcculusFinger_daemon.pl
+++ b/IcculusFinger_daemon.pl
@@ -1404,14 +1404,19 @@ sub do_fingering {
         $str =~ s/\A(.*?)[\r\n].*\Z/$1/s;
         $str =~ s/\A\s+//;
         $str =~ s/\s+\Z//;
+
         $metadata{'summary'} = $str;
+        $metadata{'summary'} =~ s/\A(.{1,80})\b.*\Z/$1/;
+        $metadata{'summary'} =~ s/\A(.{15,}?[.?!]).*\Z/$1/;  # gross.
     }
 
     1 while ($metadata{'summary'} =~ s/\r\n/ /s);
     1 while ($metadata{'summary'} =~ s/\r/ /s);
     1 while ($metadata{'summary'} =~ s/\n/ /s);
+
     if (length($metadata{'summary'}) > 80) {
-        $metadata{'summary'} =~ s/\A(.{15,}?[.?!])(.*?)\Z/$1/;  # gross.
+        $metadata{'summary'} =~ s/\A(.{1,80})\b.*\Z/$1/;
+        $metadata{'summary'} =~ s/\A(.{15,}?[.?!]).*\Z/$1/;  # gross.
     }
 
     if ($debug) {