Fix wrong range in RE

1 files changed, 29 insertions, 2 deletions

diff --git a/www/webglimpse/files/patch-ag b/www/webglimpse/files/patch-ag
index bf6d5b9d829a..43028eaa47f5 100644
--- a/www/webglimpse/files/patch-ag
+++ b/www/webglimpse/files/patch-ag
@@ -1,5 +1,5 @@
---- lib/URL.pl.bak	Fri Jan  9 08:58:41 1998
-+++ lib/URL.pl	Mon Nov  2 11:49:57 1998
+--- lib/URL.pl.orig	Fri Jan  9 08:58:41 1998
++++ lib/URL.pl	Sun Jul  2 07:39:30 2000
 @@ -49,7 +49,10 @@
  	    $host =~ tr/A-Z/a-z/;
  	    $port = ($3 ne "" ? $3 : $ftp_port);
@@ -12,3 +12,30 @@
  		$userid = $1;
  		$passwd = $2;
  	    } else {
+@@ -102,7 +105,7 @@
+ # URL of type: http://host[:port]/path[?search-string]
+ 
+     if ($protocol eq "http") {
+-	if ($url =~ m#^\s*\w+://([\w-\.]+):?(\d*)([^ \t]*)$#) {
++	if ($url =~ m#^\s*\w+://([\w\-\.]+):?(\d*)([^ \t]*)$#) {
+ 	    $server = $1;
+ 	    $server =~ tr/A-Z/a-z/;
+ 	    $port = ($2 ne "" ? $2 : $http_port);
+@@ -137,7 +140,7 @@
+ # URL of type: gopher://host[:port]/[gtype]selector-string[?search-string]
+ 
+     if ($protocol eq "gopher") {
+-	if ($url =~ m#^\s*\w+://([\w-\.]+):?(\d*)/?(\w?)([^ \t\?]*)\??(.*)$#) {
++	if ($url =~ m#^\s*\w+://([\w\-\.]+):?(\d*)/?(\w?)([^ \t\?]*)\??(.*)$#) {
+ 	    $server = $1;
+ 	    $server =~ tr/A-Z/a-z/;
+ 	    $port = ($2 ne "" ? $2 : $gopher_port);
+@@ -152,7 +155,7 @@
+ # URL of type: wais://host[:port]/database?search-string
+ 
+     if ($protocol eq "wais") {
+-	if ($url =~ m#^\s\w+://([\w-\.]+):?(\d*)/?([^\?]+)\??(.*)$#) {
++	if ($url =~ m#^\s\w+://([\w\-\.]+):?(\d*)/?([^\?]+)\??(.*)$#) {
+ 	    $1 =~ tr/A-Z/a-z/;
+ 	    $server = $1;
+ 	    $port = (defined($2) ? $2 : $wais_port);