95 |
$s=~tr/¹©ðÐèÈæƾ®/sSdDcCcCzZ/; |
$s=~tr/¹©ðÐèÈæƾ®/sSdDcCcCzZ/; |
96 |
$s=~s/\*\*+/*/g; |
$s=~s/\*\*+/*/g; |
97 |
|
|
98 |
|
my %params; # optional parametars for swish |
99 |
|
|
100 |
my @properties = split(/\s+/,x($config->{properties})); |
my @properties = split(/\s+/,x($config->{properties})); |
101 |
|
$params{properties} = \@properties if (@properties); |
102 |
|
|
103 |
my $sh = SWISH->connect('Fork', |
my $sh = SWISH->connect('Fork', |
104 |
prog => x($config->{prog}), |
prog => x($config->{prog}), |
105 |
indexes => x($config->{index}), |
indexes => x($config->{index}), |
|
properties => \@properties, |
|
106 |
results => sub { |
results => sub { |
107 |
my ($sh,$hit) = @_; |
my ($sh,$hit) = @_; |
108 |
|
|
121 |
# print "Field '$_' = '", $hit->$_, "'<br>\n" for sort @fields; |
# print "Field '$_' = '", $hit->$_, "'<br>\n" for sort @fields; |
122 |
}, |
}, |
123 |
maxhits => param('max_hits') || $max_hits, |
maxhits => param('max_hits') || $max_hits, |
124 |
|
\%params, |
125 |
); |
); |
126 |
|
|
127 |
die $SWISH::errstr unless $sh; |
die $SWISH::errstr unless $sh; |