--- trunk/make_config.pl	2003/05/04 01:31:31	33
+++ trunk/make_config.pl	2003/06/01 11:45:19	40
@@ -9,10 +9,12 @@
 
 my $name = shift @ARGV;
 my $url = shift @ARGV;
-my $stripurl = shift @ARGV;
+#my $stripurl = shift @ARGV;
+my $stripurl;
+my $title = join(" ",@ARGV);
 
 if (!$name || !$url) {
-	print "Usage: $0 name URL [strip from url]\n";
+	print "Usage: $0 name URL [strip from url] [optional title]\n";
 	exit;
 }
 
@@ -41,6 +43,7 @@
 $baseurl =~ s#/[^/]+$#/#g;
 
 print "Config name: $name\nCrawling url: $url [strip $stripurl]\n";
+print "Title: $title\n" if ($title);
 
 
 my $config = <<"EOF";
@@ -49,8 +52,8 @@
 IncludeConfigFile $dir/common.config
 
 # this is a cludge to implement no parent URL feature in swish indexer
-IndexDir "$url $baseurl"
-ReplaceRules replace " $baseurl" ""
+IndexDir "$baseurl $url"
+ReplaceRules replace "$baseurl " ""
 ReplaceRules replace "${host}${stripurl}" ""
 
 IndexFile $dir/index/$name
@@ -71,9 +74,15 @@
 	prog="/usr/bin/swish-e"
 	index="$dir/index/$name"
 	charset="iso-8859-2"
-	title="$name search"
 	affix="/usr/lib/ispell/american.aff"
-	url="$stripurl"
+EOF
+if ($title) {
+	$xml .= "\ttitle=\"$title\"\n";
+} else {
+	$xml .= "\ttitle=\"$name search\"\n";
+}
+$xml .= "\turl=\"$stripurl\"\n" if ($stripurl);
+$xml .= << "EOF";
 	>
 	<labels>
 		<label value="10"> 10</label>