--- trunk/bin/lorry.pl 2009/10/04 13:09:28 97 +++ trunk/bin/lorry.pl 2009/10/04 14:42:48 100 @@ -12,7 +12,7 @@ my $view = 'views/00.demo.pl'; my $offset = 0; -my $limit = 5; +my $limit = 5000; my @cloud = ( 'localhost', 'localhost' ); push @cloud, ( '192.168.2.200', '192.168.2.200' ) if `hostname` =~ m{t61p}; @@ -51,7 +51,13 @@ warn "load status ", dump( $lorry->get_from_all ); -warn dump( $lorry->view( $view ) ); +while ( $view ) { + warn dump( $lorry->view( $view ) ); + print "sack> "; + my $cmd = ; + last unless defined $cmd; # CTRL+D + chomp($cmd); +} warn "exit all nodes\n"; $lorry->send_to_all( { exit => 1 } );