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