my $host_nums;
foreach my $host ( keys %$Hosts ) {
+ $host = lc $host;
my @backups = $bpc->BackupInfoRead($host);
if ( !@backups ) {
warn "$0: host $host doesn't have any backups... skipping\n";
foreach ( 0 .. $#{ $opt->host } ) {
- my $host = $opt->host->[$_];
+ my $host = lc $opt->host->[$_];
my $num = $opt->num->[$_];
if ( ! $opt->ok ) {
unless (($hostID) = $sth->{hosts_by_name}->fetchrow_array()) {
$sth->{insert_hosts}->execute(
- $hosts->{$host_key}->{'host'},
+ $hostname,
$hosts->{$host_key}->{'ip'}
);
if ( $@ ) {
warn "ERROR: $search_module: $!";
} else {
- warn "# using $search_module for full-text search";
+ #warn "# using $search_module for full-text search";
}
return $search_module->new( %Conf );