From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 6 Feb 2011 12:27:07 +0000 (+0100)
Subject: correctly lc $host all over the place
X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=commitdiff_plain;h=4271e4fc3abee4aaa0326cf76d3dc9ad36a3ffe4

correctly lc $host all over the place
---

diff --git a/bin/BackupPC_ASA_ArchiveStart b/bin/BackupPC_ASA_ArchiveStart
index f91a60f..da3ef77 100755
--- a/bin/BackupPC_ASA_ArchiveStart
+++ b/bin/BackupPC_ASA_ArchiveStart
@@ -100,6 +100,7 @@ my(@HostList, @BackupList);
 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";
diff --git a/bin/BackupPC_ASA_PostArchive_Update b/bin/BackupPC_ASA_PostArchive_Update
index 1dea094..e70bfb1 100755
--- a/bin/BackupPC_ASA_PostArchive_Update
+++ b/bin/BackupPC_ASA_PostArchive_Update
@@ -375,7 +375,7 @@ sub check_archive {
 
 foreach ( 0 .. $#{ $opt->host } ) {
 
-	my $host = $opt->host->[$_];
+	my $host = lc $opt->host->[$_];
 	my $num  = $opt->num->[$_];
 
 	if ( ! $opt->ok ) {
diff --git a/bin/BackupPC_ASA_SearchUpdate b/bin/BackupPC_ASA_SearchUpdate
index 4d46a4c..ba499f9 100755
--- a/bin/BackupPC_ASA_SearchUpdate
+++ b/bin/BackupPC_ASA_SearchUpdate
@@ -320,7 +320,7 @@ foreach my $host_key (@hosts) {
 
 	unless (($hostID) = $sth->{hosts_by_name}->fetchrow_array()) {
 		$sth->{insert_hosts}->execute(
-			$hosts->{$host_key}->{'host'},
+			$hostname,
 			$hosts->{$host_key}->{'ip'}
 		);
 
diff --git a/lib/BackupPC/Search.pm b/lib/BackupPC/Search.pm
index cbd8c84..38837c0 100644
--- a/lib/BackupPC/Search.pm
+++ b/lib/BackupPC/Search.pm
@@ -32,7 +32,7 @@ sub search_module {
 	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 );