correctly lc $host all over the place

[BackupPC.git] / bin / BackupPC_ASA_ArchiveStart

diff --git a/bin/BackupPC_ASA_ArchiveStart b/bin/BackupPC_ASA_ArchiveStart
index f91a60f..da3ef77 100755 (executable)
--- 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";