/[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 107 by dpavlin, Mon Oct 5 22:21:39 2009 UTC revision 108 by dpavlin, Mon Oct 5 22:38:58 2009 UTC
# Line 17  use Time::HiRes qw(time); Line 17  use Time::HiRes qw(time);
17  my $view   = 'views/00.demo.pl';  my $view   = 'views/00.demo.pl';
18  my $offset = 0;  my $offset = 0;
19  my $limit  = 5000;  my $limit  = 5000;
20  my $cloud_file = 'etc/lib';  my $cloud_file;
21    
22    
23  GetOptions(  GetOptions(
# Line 37  sub duration { Line 37  sub duration {
37    
38  my $lorry = Sack::Lorry->new;  my $lorry = Sack::Lorry->new;
39    
40  my @cloud = read_file $cloud_file;  my @cloud = -e $cloud_file ? read_file $cloud_file : ( 'localhost' );
41  warn "bring up cloud ",dump @cloud;  warn "bring up cloud ",dump @cloud;
42    
43  my $from  = Sack::From->new(  my $from  = Sack::From->new(
Legend:
Removed from v.107  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.26