/[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 221 by dpavlin, Sun Nov 22 22:34:57 2009 UTC revision 222 by dpavlin, Sun Nov 22 22:57:15 2009 UTC
# Line 151  while (1) { Line 151  while (1) {
151  .ping {  .ping {
152          color: #0f0;          color: #0f0;
153  }  }
154    
155    .shards {
156            font-family: monospace;
157            line-height: 0.8em;
158            color: #0f0;
159    }
160    
161    .send {
162            color: #ff0;
163    }
164    
165    .wait {
166            color: #f00;
167    }
168    
169    
170  </style>  </style>
171                                  |, join("\n", map {                                  |, join("\n", map {
172                                          my $class = join(' ', map { $_->[0] } @{ $info->{node}->{$_} });                                          my $class = join(' ', map { $_->[0] } @{ $info->{node}->{$_} });
# Line 159  while (1) { Line 175  while (1) {
175    
176                                  print $send qq|<h1>Data</h1><ul>|;                                  print $send qq|<h1>Data</h1><ul>|;
177                                  foreach my $path ( glob '/tmp/sack/*' ) {                                  foreach my $path ( glob '/tmp/sack/*' ) {
178                                          print $send qq|<li><a href="$path">$path</a><br><tt>|;                                          print $send qq|<li><a href="$path">$path</a><div class="shards">|;
179                                          foreach my $s ( sort grep { m/$path/ } keys %{ $info->{shard} } ) {                                          foreach my $s ( sort grep { m/$path/ } keys %{ $info->{shard} } ) {
180                                                  print $send $info->{shard}->{$s}, ' ';                                                  my $i = $info->{shard}->{$s};
181                                                    print $send qq|<span class=$i>$i</span> |;
182                                          }                                          }
183                                          print $send qq|</tt>|;                                          print $send qq|</div>|;
184                                  }                                  }
185                                  print $send qq|</ul>|;                                  print $send qq|</ul>|;
186    
187                                  print $send '<pre>', dump($info), '</pre>';  #                               print $send '<pre>', dump($info), '</pre>';
188    
189                          } );                          } );
190                  } else {                  } else {
Legend:
Removed from v.221  
changed lines
  Added in v.222
  ViewVC Help
Powered by ViewVC 1.1.26