/[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 108 by dpavlin, Mon Oct 5 22:38:58 2009 UTC revision 110 by dpavlin, Mon Oct 5 23:20:43 2009 UTC
# Line 75  warn "info ",dump $info; Line 75  warn "info ",dump $info;
75    
76  warn "load status ", dump( $lorry->get_from_all );  warn "load status ", dump( $lorry->get_from_all );
77    
78    our $out;
79    
80  while ( $view ) {  while ( $view ) {
         warn dump( $lorry->view( $view ) );  
         duration 'view';  
81          print "sack> ";          print "sack> ";
82          my $cmd = <STDIN>;          my $cmd = <STDIN>;
83          last unless defined $cmd; # CTRL+D          last unless defined $cmd; # CTRL+D
         chomp($cmd);  
84          duration 'repl wait';          duration 'repl wait';
85            chomp($cmd);
86            if ( $cmd =~ m{^v} ) {
87                    $out = $lorry->view( $view );
88                    duration 'view';
89            } elsif ( $cmd =~ m{^d} ) {
90                    warn dump $out;
91                    duration 'dump';
92            } else {
93                    warn "unknown $cmd\n";
94            }
95  }  }
96    
97  warn "exit all nodes\n";  warn "exit all nodes\n";
Legend:
Removed from v.108  
changed lines
  Added in v.110
  ViewVC Help
Powered by ViewVC 1.1.26