From: Stephen L Johnson <sjohnson@monsters.org>
Date: Mon, 6 Nov 2000 19:39:06 +0000 (+0000)
Subject: fixed parsing bug with host names containing dashes, '-'
X-Git-Tag: spong-2_7_1~13
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7288bde3fe67991f1350f75d1319e190631248ac;p=spong.git

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

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; }