--- trunk/make_config.pl	2003/04/30 12:40:09	32
+++ trunk/make_config.pl	2003/05/04 01:31:31	33
@@ -7,10 +7,12 @@
 
 use strict;
 
-my ($name,$url,$stripurl) = @ARGV;
+my $name = shift @ARGV;
+my $url = shift @ARGV;
+my $stripurl = shift @ARGV;
 
 if (!$name || !$url) {
-	print "Usage: $0 name URL\n";
+	print "Usage: $0 name URL [strip from url]\n";
 	exit;
 }
 
@@ -23,7 +25,7 @@
 
 my ($host,$urlpath);
 
-if ($url =~ m#(http://[^/]+)(/.+)$#) {
+if ($url =~ m#(http://[^/]+)(/.*)$#) {
 	($host,$urlpath) = ($1,$2);
 	if ($stripurl && $urlpath =~ m/^(.*$stripurl)/) {
 		$stripurl = $1;