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

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

revision 110 by dpavlin, Mon Oct 5 23:20:43 2009 UTC revision 113 by dpavlin, Mon Oct 5 23:53:46 2009 UTC
# Line 50  duration 'load finished'; Line 50  duration 'load finished';
50  my $info;  my $info;
51    
52  foreach my $host ( @cloud ) {  foreach my $host ( @cloud ) {
53            chomp $host;
54    
55          if ( my $port = $lorry->start_node( $host ) ) {          if ( my $port = $lorry->start_node( $host ) ) {
56    
# Line 76  warn "info ",dump $info; Line 77  warn "info ",dump $info;
77  warn "load status ", dump( $lorry->get_from_all );  warn "load status ", dump( $lorry->get_from_all );
78    
79  our $out;  our $out;
80    our $repl = 1;
81    
82  while ( $view ) {  while ( $repl ) {
83          print "sack> ";          print "sack> ";
84          my $cmd = <STDIN>;          my $cmd = <STDIN>;
85          last unless defined $cmd; # CTRL+D          last unless defined $cmd; # CTRL+D
# Line 89  while ( $view ) { Line 91  while ( $view ) {
91          } elsif ( $cmd =~ m{^d} ) {          } elsif ( $cmd =~ m{^d} ) {
92                  warn dump $out;                  warn dump $out;
93                  duration 'dump';                  duration 'dump';
94            } elsif ( $cmd =~ m{^x} ) {
95                    $repl = 0;
96          } else {          } else {
97                  warn "unknown $cmd\n";                  warn "unknown $cmd\n";
98          }          }
Legend:
Removed from v.110  
changed lines
  Added in v.113
  ViewVC Help
Powered by ViewVC 1.1.26