9 |
|
|
10 |
my $name = shift @ARGV; |
my $name = shift @ARGV; |
11 |
my $url = shift @ARGV; |
my $url = shift @ARGV; |
12 |
my $stripurl = shift @ARGV; |
#my $stripurl = shift @ARGV; |
13 |
|
my $stripurl; |
14 |
|
my $title = join(" ",@ARGV); |
15 |
|
|
16 |
if (!$name || !$url) { |
if (!$name || !$url) { |
17 |
print "Usage: $0 name URL [strip from url]\n"; |
print "Usage: $0 name URL [strip from url] [optional title]\n"; |
18 |
exit; |
exit; |
19 |
} |
} |
20 |
|
|
43 |
$baseurl =~ s#/[^/]+$#/#g; |
$baseurl =~ s#/[^/]+$#/#g; |
44 |
|
|
45 |
print "Config name: $name\nCrawling url: $url [strip $stripurl]\n"; |
print "Config name: $name\nCrawling url: $url [strip $stripurl]\n"; |
46 |
|
print "Title: $title\n" if ($title); |
47 |
|
|
48 |
|
|
49 |
my $config = <<"EOF"; |
my $config = <<"EOF"; |
74 |
prog="/usr/bin/swish-e" |
prog="/usr/bin/swish-e" |
75 |
index="$dir/index/$name" |
index="$dir/index/$name" |
76 |
charset="iso-8859-2" |
charset="iso-8859-2" |
|
title="$name search" |
|
77 |
affix="/usr/lib/ispell/american.aff" |
affix="/usr/lib/ispell/american.aff" |
78 |
url="$stripurl" |
EOF |
79 |
|
if ($title) { |
80 |
|
$xml .= "\ttitle=\"$title\"\n"; |
81 |
|
} else { |
82 |
|
$xml .= "\ttitle=\"$name search\"\n"; |
83 |
|
} |
84 |
|
$xml .= "\turl=\"$stripurl\"\n" if ($stripurl); |
85 |
|
$xml .= << "EOF"; |
86 |
> |
> |
87 |
<labels> |
<labels> |
88 |
<label value="10"> 10</label> |
<label value="10"> 10</label> |