73 |
|
|
74 |
my $xml = << "EOF"; |
my $xml = << "EOF"; |
75 |
<config |
<config |
76 |
max_hits="1000" |
max_hits="10" |
77 |
prog="/usr/bin/swish-e" |
prog="/usr/bin/swish-e" |
78 |
index="$dir/index/$name" |
index="$dir/index/$name" |
79 |
charset="iso-8859-2" |
charset="iso-8859-2" |
97 |
> |
> |
98 |
<labels> |
<labels> |
99 |
<label value="10"> 10</label> |
<label value="10"> 10</label> |
100 |
|
<label value="50"> 100</label> |
101 |
<label value="100"> 100</label> |
<label value="100"> 100</label> |
|
<label value="0">unlimited</label> |
|
102 |
</labels> |
</labels> |
103 |
<text> |
<text> |
104 |
<search>Search for </search> |
<search>Search for </search> |
127 |
</config> |
</config> |
128 |
EOF |
EOF |
129 |
|
|
130 |
print "Creating $dir/$name.config\n"; |
print "Creating $dir/config/$name\n"; |
131 |
open(C,"> $dir/$name.config") || die "can't open $dir/$name.config: $!"; |
open(C,"> $dir/config/$name") || die "can't open $dir/config/$name: $!"; |
132 |
print C $config; |
print C $config; |
133 |
close(C); |
close(C); |
134 |
|
|
140 |
print "Creating symlink to $dir/html/$name.cgi\n"; |
print "Creating symlink to $dir/html/$name.cgi\n"; |
141 |
symlink "$dir/html/swish.cgi","$dir/html/$name.cgi" || die "can't create symlink $dir/html/$name.cgi: $!"; |
symlink "$dir/html/swish.cgi","$dir/html/$name.cgi" || die "can't create symlink $dir/html/$name.cgi: $!"; |
142 |
|
|
143 |
#print "Index this with:\nswish-e -S http -c $dir/$name.config\n"; |
#print "Index this with:\nswish-e -S http -c $dir/config/$name\n"; |
144 |
#print "Search using $name.cgi\n"; |
#print "Search using $name.cgi\n"; |