diff options
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/generate-mirror-mail.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bin/generate-mirror-mail.pl b/bin/generate-mirror-mail.pl index 4c06bc7..c6e8a19 100755 --- a/bin/generate-mirror-mail.pl +++ b/bin/generate-mirror-mail.pl @@ -198,7 +198,8 @@ while (<STDIN>) { ); my @protocols = map {${$_}{protocol}} @connection_failed; - if (scalar(@protocols) != scalar(@{$json->{urls}})) { + my @active_urls = grep { $_->{active} } @{$json->{urls}}; + if (scalar(@protocols) != scalar(@active_urls)) { $values{connection_failed}->{protocols} = \@protocols; } |