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