/[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 95 by dpavlin, Sun Oct 4 12:17:52 2009 UTC revision 97 by dpavlin, Sun Oct 4 13:09:28 2009 UTC
# Line 15  my $offset = 0; Line 15  my $offset = 0;
15  my $limit  = 5;  my $limit  = 5;
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};
19    
20  my $lorry = Sack::Lorry->new;  my $lorry = Sack::Lorry->new;
21    
# Line 50  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 "run view $view ", -s $view, " bytes\n";  warn dump( $lorry->view( $view ) );
 my $view_code = read_file($view);  
 $lorry->send_to_all({ view => $view_code });  
 warn "result ", dump( $lorry->get_from_all );  
55    
56  warn "exit all nodes\n";  warn "exit all nodes\n";
57  $lorry->send_to_all( { exit => 1 } );  $lorry->send_to_all( { exit => 1 } );
Legend:
Removed from v.95  
changed lines
  Added in v.97
  ViewVC Help
Powered by ViewVC 1.1.26