| 244 |
qq|<span class="$class">$_</span>|; |
qq|<span class="$class">$_</span>|; |
| 245 |
} sort keys %{ $info->{node} } ); |
} sort keys %{ $info->{node} } ); |
| 246 |
|
|
| 247 |
print $send qq|<h1>Data</h1><ul>|; |
print $send qq|<h1>Shards</h1><ul>|; |
| 248 |
foreach my $path ( glob '/tmp/sack/*' ) { |
foreach my $path ( glob '/tmp/sack/*' ) { |
| 249 |
print $send qq|<li><a href="$path">$path</a><div class="shards">|; |
print $send qq|<li><a href="$path">$path</a><div class="shards">|; |
| 250 |
foreach my $s ( sort grep { m/$path/ } keys %{ $info->{shard} } ) { |
foreach my $s ( sort grep { m/$path/ } keys %{ $info->{shard} } ) { |
| 251 |
my $i = $info->{shard}->{$s}; |
my $i = $info->{shard}->{$s}; |
| 252 |
print $send qq|<span class=$i>$i</span> |; |
print $send qq|<span class="$i" title="$s">$i</span> |; |
| 253 |
} |
} |
| 254 |
print $send qq|</div>|; |
print $send qq|</div>|; |
| 255 |
} |
} |
Parent Directory
| 
Revision Log
| 
Patch