Revision 271

Date:
2010/02/21 15:14:02
Author:
dpavlin
Revision Log:
add IP addresses to node's title
Files:

Legend:

 
Added
 
Removed
 
Modified

  • trunk/lib/Sack/Server.pm

     
    49 49 # parent
    50 50 $info->{forked}->{$port} = $pid;
    51 51 $info->{pending}->{$port} = 'forked';
    52 $info->{host}->{$port} = $host;
    52 53 return $port;
    53 54
    54 55 } elsif ( ! defined $pid ) {
    … …  
    308 309
    309 310 print $send qq|<h1>Nodes</h1>|;
    310 311 foreach my $node ( sort keys %{ $info->{forked} } ) {
    311 my $attr = '';
    312 my $attr = qq| title="$info->{host}->{$node}"|;
    312 313 if ( my $pending = $info->{pending}->{$node} ) {
    313 314 $attr .= qq| class="$pending"|;
    314 315 }