Allow trailinng periods after the control stop commands (closes:

#517834)

diff --git a/debian/changelog b/debian/changelog
index 971d13ef619c0dc9f556efdbc02a45b0addd7b7b..832a5dbf79b0184741d37b0ae74b43e7807f8612 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -251,6 +251,8 @@ debbugs (2.4.2~exp0) UNRELEASED; urgency=low
   * Properly html_escape un-processed parts in maybelink (closes: #530506)
   * Add urls to the bottom of all messages we send out (closes: #9596)
   * Allow for tag nnn = baz + foo - bar in service (closes: #505189)
+  * Allow trailinng periods after the control stop commands (closes:
+    #517834)
 
   
  -- Colin Watson <cjwatson@debian.org>  Fri, 20 Jun 2003 18:57:25 +0100

diff --git a/scripts/service b/scripts/service
index ff738789e0741ccfa682d6a70d212e2b30100b0b..3f05dc082e3fe3b82acb28de4fb8e9b2246ccaf7 100755 (executable)
--- a/scripts/service
+++ b/scripts/service
@@ -204,7 +204,7 @@ for ($procline=0; $procline<=$#bodylines; $procline++) {
     print {$transcript} "> $_\n";
     next if m/^\s*\#/;
     $action= '';
-    if (m/^stop\s*$/i || m/^quit\s*$/i || m/^--\s*$/ || m/^thank(?:s|\s*you)?\s*$/i || m/^kthxbye\s*$/i) {
+    if (m/^(?:stop|quit|--|thank(?:s|\s*you)?|kthxbye)\.*\s*$/i) {
        print {$transcript} "Stopping processing here.\n\n";
         last;
     } elsif (m/^debug\s+(\d+)$/i && $1 >= 0 && $1 <= 1000) {