/[Sack]/trunk/bin/sack.pl
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/bin/sack.pl

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

revision 35 by dpavlin, Wed Sep 23 21:55:08 2009 UTC revision 36 by dpavlin, Wed Sep 23 22:22:18 2009 UTC
# Line 3  Line 3 
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  our $VERSION = '0.02';  our $VERSION = '0.03';
7    
8  use Time::HiRes qw(time);  use Time::HiRes qw(time);
9  use Data::Dump qw(dump);  use Data::Dump qw(dump);
# Line 243  sub run_views { Line 243  sub run_views {
243                          report "[$port] SAVE $path $offset-$limit", -s $path, "bytes";                          report "[$port] SAVE $path $offset-$limit", -s $path, "bytes";
244    
245                          if ( -s $path < 4096 ) {                          if ( -s $path < 4096 ) {
246                                  print '$out = ',dump( $out ),$/;                                  print '$out = ', dump Sack::Digest->undigest_out($out);
247                          }                          }
248                  }                  }
249    
# Line 254  sub run_views { Line 254  sub run_views {
254    
255  sub info_tabs {  sub info_tabs {
256          "$port\t$offset\t$limit\t$num_records\t$path\t"          "$port\t$offset\t$limit\t$num_records\t$path\t"
257          . join(',', map {          . join("\t", map {
258                  my $b = $_;                  my $b = $_;
259                  $b =~ s{^.+/([^/]+)$}{$1};                  $b =~ s{^.+/([^/]+)$}{$1};
260                  "$b " . -s $_                  "$b " . -s $_
# Line 308  sub info { Line 308  sub info {
308          send_nodes 'info' => $2;          send_nodes 'info' => $2;
309    
310          my @info = (          my @info = (
311                  "port\toffset\tlimit\t#recs\tpath\tfiles",                  "port\toffset\tlimit\t#recs\tpath",
312                  "----\t------\t-----\t-----\t----\t-----",                  "----\t------\t-----\t-----\t----",
313                  info_tabs,                  info_tabs,
314          );          );
315    
Legend:
Removed from v.35  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.26