42 |
my $dsn = $Conf{SearchDSN} || die "Need SearchDSN in config.pl\n"; |
my $dsn = $Conf{SearchDSN} || die "Need SearchDSN in config.pl\n"; |
43 |
my $user = $Conf{SearchUser} || ''; |
my $user = $Conf{SearchUser} || ''; |
44 |
my $index_path = $Conf{HyperEstraierIndex}; |
my $index_path = $Conf{HyperEstraierIndex}; |
|
$index_path = $TopDir . '/' . $index_path; |
|
|
$index_path =~ s#//#/#g; |
|
45 |
if ($index_path) { |
if ($index_path) { |
46 |
|
$index_path = $TopDir . '/' . $index_path; |
47 |
|
$index_path =~ s#//#/#g; |
48 |
use HyperEstraier; |
use HyperEstraier; |
49 |
} |
} |
50 |
|
|
117 |
$hest_db = HyperEstraier::Database->new(); |
$hest_db = HyperEstraier::Database->new(); |
118 |
$hest_db->open($index_path, $HyperEstraier::Database::DBWRITER | $HyperEstraier::Database::DBCREAT); |
$hest_db->open($index_path, $HyperEstraier::Database::DBWRITER | $HyperEstraier::Database::DBCREAT); |
119 |
|
|
120 |
print " increment is " . EST_CHUNK . " files"; |
print " increment is " . EST_CHUNK . " files:"; |
121 |
|
|
122 |
my $results = 0; |
my $results = 0; |
123 |
|
|
163 |
$results = $sth->rows; |
$results = $sth->rows; |
164 |
|
|
165 |
if ($results == 0) { |
if ($results == 0) { |
166 |
print " - no more files\n"; |
print " - no new files\n"; |
167 |
last; |
last; |
168 |
} |
} |
169 |
|
|
452 |
fmt_time($dur) |
fmt_time($dur) |
453 |
); |
); |
454 |
|
|
455 |
hest_update($hostID, $shareID, $backupNum); |
hest_update($hostID, $shareID, $backupNum) if ($nf + $nd > 0); |
456 |
} |
} |
457 |
|
|
458 |
} |
} |