From cbc0ea6ad2d285af98c9850cebc41cc4a1db7ff9 Mon Sep 17 00:00:00 2001 From: joy <> Date: Fri, 6 Oct 2000 19:31:46 -0800 Subject: [PATCH] [project @ 2000-10-06 20:31:46 by joy] allow everything starting with thank --- scripts/service.in | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/service.in b/scripts/service.in index 4daff161..931cc283 100755 --- a/scripts/service.in +++ b/scripts/service.in @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# $Id: service.in,v 1.16 2000/10/06 05:44:45 doogie Exp $ +# $Id: service.in,v 1.17 2000/10/06 20:31:46 joy Exp $ # # Usage: service <code>.nn # Temps: incoming/P<code>.nn @@ -90,7 +90,7 @@ for ($procline=$i; $procline<=$#msg; $procline++) next unless m/\S/; next if m/^\s*\#/; &transcript("> $_\n"); $action= ''; - if (m/^stop\s/i || m/^quit\s/i || m/^--/ || m/^thank\s/i) + if (m/^stop\s/i || m/^quit\s/i || m/^--/ || m/^thank/i) { &transcript("Stopping processing here.\n\n"); last; } elsif (m/^debug\s+(\d+)$/i && $1 >= 0 && $1 <= 1000) { -- 2.39.5