/[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 76 by dpavlin, Fri Sep 25 21:12:46 2009 UTC revision 79 by dpavlin, Fri Sep 25 23:22:32 2009 UTC
# Line 247  sub merge_out { Line 247  sub merge_out {
247          }          }
248    
249          $t_merge = time - $t_merge;          $t_merge = time - $t_merge;
250          printf STDERR "%d in %.4fs %.2f/s local %.1f%% %d/%d\n", $tick, $t_merge, $tick / $t_merge, $local * 100 / $tick, $local, $remote;          my $digests = $local + $remote;
251            printf STDERR "\n[$port] merge %d in %.4fs %.2f/s digests local: %.1f%% %d/%d\n", $tick, $t_merge, $digests / $t_merge, $local * 100 / $digests, $local, $remote;
252          push @reports, [ "$tick merged $from_node", $t_merge, $tick / $t_merge ];          push @reports, [ "$tick merged $from_node", $t_merge, $tick / $t_merge ];
253    
254          warn "[$port] missing ", dump $missing if $missing;          warn "[$port] missing ", dump $missing if $missing;
# Line 354  if ( $port ) { Line 355  if ( $port ) {
355          my $pid_path = "/tmp/sack.$port.pid";          my $pid_path = "/tmp/sack.$port.pid";
356          if ( -e $pid_path ) {          if ( -e $pid_path ) {
357                  my $pid = read_file $pid_path;                  my $pid = read_file $pid_path;
358                  kill 9, $pid && warn "[$port] kill old $pid";                  kill 9, $pid && warn "[$port] kill old $pid\n";
359          }          }
360          write_file $pid_path, $$;          write_file $pid_path, $$;
361    
Legend:
Removed from v.76  
changed lines
  Added in v.79
  ViewVC Help
Powered by ViewVC 1.1.26