191 |
my $shard = 0; |
my $shard = 0; |
192 |
foreach my $path ( sort keys %{ $s->{$node} } ) { |
foreach my $path ( sort keys %{ $s->{$node} } ) { |
193 |
my $affected = $s->{$node}->{$path}; |
my $affected = $s->{$node}->{$path}; |
194 |
$h .= qq|<span title="$affected $path">*</span>|; |
my $n = '?'; |
195 |
|
$n = $1 if $path =~ m{/(\w)\w+/\d+}; |
196 |
|
$h .= qq|<tt title="$affected $path">$n</tt>|; |
197 |
$shard += $affected; |
$shard += $affected; |
198 |
$total += $affected; |
$total += $affected; |
199 |
} |
} |
230 |
} |
} |
231 |
print $send qq|</ul>|; |
print $send qq|</ul>|; |
232 |
|
|
233 |
print $send '<pre>', dump($info), '</pre>' if $param->{debug}; |
if ( $param->{info} ) { |
234 |
|
print $send qq|<a href="?info=0">hide info</a>|; |
235 |
|
print $send '<pre>', dump($info), '</pre>' |
236 |
|
} else { |
237 |
|
print $send qq|<a href="?info=1">show info</a>|; |
238 |
|
} |
239 |
return 1; |
return 1; |
240 |
} ); |
} ); |
241 |
} else { |
} else { |