/[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 97 by dpavlin, Sun Oct 4 13:09:28 2009 UTC revision 100 by dpavlin, Sun Oct 4 14:42:48 2009 UTC
# Line 12  use Sack::Lorry; Line 12  use Sack::Lorry;
12    
13  my $view   = 'views/00.demo.pl';  my $view   = 'views/00.demo.pl';
14  my $offset = 0;  my $offset = 0;
15  my $limit  = 5;  my $limit  = 5000;
16  my @cloud  = ( 'localhost', 'localhost' );  my @cloud  = ( 'localhost', 'localhost' );
17    
18  push @cloud, ( '192.168.2.200', '192.168.2.200' ) if `hostname` =~ m{t61p};  push @cloud, ( '192.168.2.200', '192.168.2.200' ) if `hostname` =~ m{t61p};
# Line 51  warn "info ",dump $info; Line 51  warn "info ",dump $info;
51    
52  warn "load status ", dump( $lorry->get_from_all );  warn "load status ", dump( $lorry->get_from_all );
53    
54  warn dump( $lorry->view( $view ) );  while ( $view ) {
55            warn dump( $lorry->view( $view ) );
56            print "sack> ";
57            my $cmd = <STDIN>;
58            last unless defined $cmd; # CTRL+D
59            chomp($cmd);
60    }
61    
62  warn "exit all nodes\n";  warn "exit all nodes\n";
63  $lorry->send_to_all( { exit => 1 } );  $lorry->send_to_all( { exit => 1 } );
Legend:
Removed from v.97  
changed lines
  Added in v.100
  ViewVC Help
Powered by ViewVC 1.1.26