# Initialise cluster details
while (my($name,$cluster) = each %$clusters)
{
- next if $cluster->{global};
-
$cluster->{bandwidth_limit} = $cluster->{bandwidth} * 1024 * 1024;
$cluster->{bandwidth_used} = 0;
+ next if $cluster->{global};
+
$targetorigins->{$cluster->{name}} = {
code => $cluster->{name},
name => $cluster->{name},
};
}
+ next if $cluster->{global};
+
$targetorigins->{$cluster->{name}}->{bandwidth} += $origin->{bandwidth};
}