/[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 45 by dpavlin, Thu Sep 24 13:37:53 2009 UTC revision 46 by dpavlin, Thu Sep 24 13:46:16 2009 UTC
# Line 205  sub run_code { Line 205  sub run_code {
205    
206          warn "WARN no \$out defined!" unless defined $out;          warn "WARN no \$out defined!" unless defined $out;
207    
208            $digest->sync;
209    
210          if ( $connected ) {          if ( $connected ) {
211                  foreach my $node ( keys %$connected ) {                  foreach my $node ( keys %$connected ) {
212                          warn "[$port] get_node $node\n";                          warn "[$port] get_node $node\n";
# Line 255  sub info_tabs { Line 257  sub info_tabs {
257          "$port\t$offset\t$limit\t$num_records\t$path\t"          "$port\t$offset\t$limit\t$num_records\t$path\t"
258          . join("\t", map {          . join("\t", map {
259                  my $b = $_;                  my $b = $_;
260                  $b =~ s{^.+/([^/]+)$}{$1};                  $b =~ s{^.+\.$port\.([^/]+)$}{$1};
261                  "$b " . -s $_                  "$b " . -s $_
262          } glob '/dev/shm/sack.*' );          } glob "/dev/shm/sack.$port.*" );
263  }  }
264    
265    
# Line 341  Sacks Lorry v$VERSION - path: $path offs Line 343  Sacks Lorry v$VERSION - path: $path offs
343  __HELP__  __HELP__
344          } elsif ( $cmd =~ m{^(vi|\\e|o)}i ) {          } elsif ( $cmd =~ m{^(vi|\\e|o)}i ) {
345                  #system "vi out/*";                  #system "vi out/*";
                 $digest->sync;  
346                  system "bin/storableedit.pl", (glob('out/*.storable'))[0];                  system "bin/storableedit.pl", (glob('out/*.storable'))[0];
347          } elsif ( $cmd =~ m{^i(?:nfo)?\s?(.+)?$}i ) {          } elsif ( $cmd =~ m{^i(?:nfo)?\s?(.+)?$}i ) {
348                  info;                  info;
Legend:
Removed from v.45  
changed lines
  Added in v.46
  ViewVC Help
Powered by ViewVC 1.1.26