Add start and end params

webtools/tinderbox3/scripts/tbox_bonsai_update.pl

@@ -1,17 +1,33 @@
 #!/usr/bin/perl -wT -I.
 use strict;
 
+use Getopt::Long;
 use Tinderbox3::DB;
 use Tinderbox3::Bonsai;
 use DBI;
 
+my %args;
+$args{start} = 3;
+$args{end} = 0;
+GetOptions(\%args, "start:i", "end:i", "help!");
+if ($args{help}) {
+  print <<EOM;
+
+Usage: tbox_bonsai_update.pl [--start=<# days ago>] [--end=<# days ago>]
+
+Updates the bonsai cache to ensure it includes bonsai checkins from start to
+end days ago.
+
+EOM
+}
+
 my $dbh = get_dbh();
 
 my $sth = $dbh->prepare("SELECT bonsai_id, bonsai_url, module, branch, directory, cvsroot, EXTRACT(EPOCH FROM start_cache), EXTRACT(EPOCH FROM end_cache) FROM tbox_bonsai");
 $sth->execute();
 while (my $row = $sth->fetchrow_arrayref) {
   #Tinderbox3::Bonsai::clear_cache($dbh, $row->[0]);
-  Tinderbox3::Bonsai::update_cache($dbh, time - (60*60*24*2), time, $row->[0],
+  Tinderbox3::Bonsai::update_cache($dbh, time - (60*60*24*$args{start}), time-(60*60*24*$args{end}), $row->[0],
                                    $row->[1], $row->[2], $row->[3], $row->[4],
                                    $row->[5], $row->[6], $row->[7]);
 }

webtools/tinderbox3/server/tbox_bonsai_update.pl

@@ -1,17 +1,33 @@
 #!/usr/bin/perl -wT -I.
 use strict;
 
+use Getopt::Long;
 use Tinderbox3::DB;
 use Tinderbox3::Bonsai;
 use DBI;
 
+my %args;
+$args{start} = 3;
+$args{end} = 0;
+GetOptions(\%args, "start:i", "end:i", "help!");
+if ($args{help}) {
+  print <<EOM;
+
+Usage: tbox_bonsai_update.pl [--start=<# days ago>] [--end=<# days ago>]
+
+Updates the bonsai cache to ensure it includes bonsai checkins from start to
+end days ago.
+
+EOM
+}
+
 my $dbh = get_dbh();
 
 my $sth = $dbh->prepare("SELECT bonsai_id, bonsai_url, module, branch, directory, cvsroot, EXTRACT(EPOCH FROM start_cache), EXTRACT(EPOCH FROM end_cache) FROM tbox_bonsai");
 $sth->execute();
 while (my $row = $sth->fetchrow_arrayref) {
   #Tinderbox3::Bonsai::clear_cache($dbh, $row->[0]);
-  Tinderbox3::Bonsai::update_cache($dbh, time - (60*60*24*2), time, $row->[0],
+  Tinderbox3::Bonsai::update_cache($dbh, time - (60*60*24*$args{start}), time-(60*60*24*$args{end}), $row->[0],
                                    $row->[1], $row->[2], $row->[3], $row->[4],
                                    $row->[5], $row->[6], $row->[7]);
 }