/[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 100 by dpavlin, Sun Oct 4 14:42:48 2009 UTC revision 101 by dpavlin, Mon Oct 5 19:34:45 2009 UTC
# Line 9  use File::Slurp; Line 9  use File::Slurp;
9  use lib 'lib';  use lib 'lib';
10  use Sack::From;  use Sack::From;
11  use Sack::Lorry;  use Sack::Lorry;
12    use Net::Ping;
13    
14  my $view   = 'views/00.demo.pl';  my $view   = 'views/00.demo.pl';
15  my $offset = 0;  my $offset = 0;
# Line 26  my $from  = Sack::From->new( Line 27  my $from  = Sack::From->new(
27    
28  my $info;  my $info;
29    
30    my $p = Net::Ping->new;
31    
32  foreach my $host ( @cloud ) {  foreach my $host ( @cloud ) {
33    
34            if ( ! $p->ping( $host ) ) {
35                    warn "SKIP $host - doesn't respond to ping\n";
36                    next;
37            }
38    
39          if ( my $port = $lorry->start_node( $host ) ) {          if ( my $port = $lorry->start_node( $host ) ) {
40    
41                  warn "started [$port] on $host\n";                  warn "started [$port] on $host\n";
Legend:
Removed from v.100  
changed lines
  Added in v.101
  ViewVC Help
Powered by ViewVC 1.1.26