/[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 232 by dpavlin, Mon Nov 23 23:15:31 2009 UTC revision 233 by dpavlin, Mon Nov 23 23:52:53 2009 UTC
# Line 191  while (1) { Line 191  while (1) {
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                                                                  }                                                                  }
# Line 228  while (1) { Line 230  while (1) {
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 {
Legend:
Removed from v.232  
changed lines
  Added in v.233
  ViewVC Help
Powered by ViewVC 1.1.26