From: Stephen L Johnson <sjohnson@monsters.org>
Date: Wed, 16 Jul 2003 20:15:43 +0000 (+0000)
Subject: really fixed regexp bug in remove_np_files()
X-Git-Tag: spong-2_8_0-beta1~35
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3d1f7568ca0763146e894835e828b77843358ed3;p=spong.git

really fixed regexp bug in remove_np_files()
---

diff --git a/src/spong-server.pl b/src/spong-server.pl
index 1efc634..7bd09bb 100755
--- a/src/spong-server.pl
+++ b/src/spong-server.pl
@@ -6,7 +6,7 @@
 # There are one or more update processes that listen for status updates 
 # from client programs.
 
-# $Id: spong-server.pl,v 1.61 2003/07/16 17:50:40 sljohnson Exp $
+# $Id: spong-server.pl,v 1.62 2003/07/16 20:15:43 sljohnson Exp $
 
 use lib "@@LIBDIR@@";
 
@@ -1305,7 +1305,7 @@ sub remove_np_files {
    if (! @files) { return; }
 
    foreach $file (@files) {
-      if ( $file =~ m/^np-[^\-]+-$host-$service/ ) {
+      if ( $file =~ m/^np-.*-${host}-${service}/o ) {
          unlink "$SPONGTMP/$file";
       }
    }