From 7288bde3fe67991f1350f75d1319e190631248ac Mon Sep 17 00:00:00 2001
From: Stephen L Johnson <sjohnson@monsters.org>
Date: Mon, 6 Nov 2000 19:39:06 +0000
Subject: [PATCH] fixed parsing bug with host names containing dashes, '-'

---
 src/www-spong-ack.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/www-spong-ack.pl b/src/www-spong-ack.pl
index d5a0719..e5fdacb 100755
--- a/src/www-spong-ack.pl
+++ b/src/www-spong-ack.pl
@@ -11,7 +11,7 @@
 # History
 # (1) Created, pulled out of www-spong program (Ed 07-28-97)
 #
-# $Id: www-spong-ack.pl,v 1.7 2000/10/16 15:34:32 sljohnson Exp $
+# $Id: www-spong-ack.pl,v 1.8 2000/11/06 19:39:06 sljohnson Exp $
 
 use CGI;
 use Sys::Hostname;
@@ -40,7 +40,7 @@ $HOST        =~ tr/A-Z/a-z/;
 
 $cmd = $ENV{'PATH_INFO'};
 
-if( $cmd =~ m!^/delete/([^-]+)-(\w+)-(\d+)$! ) { &remove( $1, $2, $3 ); exit; }
+if( $cmd =~ m!^/delete/(.+?)-(\w+)-(\d+)$! ) { &remove( $1, $2, $3 ); exit; }
 
 if( $cmd =~ m!^/help$! )        { &help();        exit; }
 if( $cmd =~ m!^/ack-doit$! )    { &ack_doit();    exit; }
-- 
2.30.2