/[Sack]/trunk/lib/Sack/Server.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Sack/Server.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 270 by dpavlin, Mon Feb 15 09:40:12 2010 UTC revision 271 by dpavlin, Sun Feb 21 15:14:02 2010 UTC
# Line 49  sub fork_ssh { Line 49  sub fork_ssh {
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 ) {
# Line 308  while (1) { Line 309  while (1) {
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                                          }                                          }

Legend:
Removed from v.270  
changed lines
  Added in v.271

  ViewVC Help
Powered by ViewVC 1.1.26