lowercase (lc) hostname to get increments
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 6 Feb 2011 10:31:20 +0000 (11:31 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 6 Feb 2011 10:31:20 +0000 (11:31 +0100)
bin/BackupPC_ASA_SearchUpdate

index de465b7..4d46a4c 100755 (executable)
@@ -312,8 +312,9 @@ my $host_nr = 0;
 foreach my $host_key (@hosts) {
 
        my $hostname = $hosts->{$host_key}->{'host'} || die "can't find host for $host_key";
 foreach my $host_key (@hosts) {
 
        my $hostname = $hosts->{$host_key}->{'host'} || die "can't find host for $host_key";
+       $hostname = lc $hostname;
 
 
-       next if $opt->host && ! grep { m/^$hostname$/ } @{ $opt->host };
+       next if $opt->host && ! grep { m/^$hostname$/i } @{ $opt->host };
 
        $sth->{hosts_by_name}->execute($hostname);
 
 
        $sth->{hosts_by_name}->execute($hostname);