fixed parsing bug with host names containing dashes, '-'

diff --git a/src/www-spong-ack.pl b/src/www-spong-ack.pl
index d5a0719759d8e36bb07c00808cc206a33af5b3a7..e5fdacbce50cd76b2209bd060c601164bb9fc63b 100755 (executable)
--- 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; }