43 |
my $user = $Conf{SearchUser} || ''; |
my $user = $Conf{SearchUser} || ''; |
44 |
|
|
45 |
my $use_hest = $Conf{HyperEstraierIndex}; |
my $use_hest = $Conf{HyperEstraierIndex}; |
46 |
my ($index_path, $index_node_url); |
my ($index_path, $index_node_url) = getHyperEstraier_url($use_hest); |
|
if ($use_hest) { |
|
|
use HyperEstraier; |
|
|
if ($use_hest =~ m#^http://#) { |
|
|
$index_node_url = $use_hest; |
|
|
} else { |
|
|
$index_path = $TopDir . '/' . $index_path; |
|
|
$index_path =~ s#//#/#g; |
|
|
} |
|
|
} |
|
|
print "-- $use_hest : $index_path OR $index_node_url --\n"; |
|
|
|
|
47 |
|
|
48 |
my $dbh = DBI->connect($dsn, $user, "", { RaiseError => 1, AutoCommit => 0 }); |
my $dbh = DBI->connect($dsn, $user, "", { RaiseError => 1, AutoCommit => 0 }); |
49 |
|
|