Bug 65840
git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@810 6955db30-a419-402b-8a0d-67ecbb4d7f56master
parent
b84af4f462
commit
d994e0cc3e
|
@ -0,0 +1,21 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use POSIX qw(strftime mktime);
|
||||
|
||||
$| = 1;
|
||||
|
||||
my $start = $ARGV[0] || die "USAGE: ./recollect.pl <start_date> [end_date]\nDates are in format YYYY-MM-DD\n";
|
||||
my $end = $ARGV[1] || strftime('%Y-%m-%d', localtime);
|
||||
|
||||
my $ts = [ split /\D+/, $start ];
|
||||
$end = [ split /\D+/, $end ];
|
||||
$ts = mktime(0, 0, 0, $ts->[2], $ts->[1]-1, $ts->[0]-1900);
|
||||
$end = mktime(0, 0, 0, $end->[2], $end->[1]-1, $end->[0]-1900);
|
||||
while ($ts < $end)
|
||||
{
|
||||
my $d = strftime("%Y-%m-%d", localtime($ts));
|
||||
print strftime("[%Y-%m-%d %H:%M:%S]", localtime)." Collecting stats for $d\n";
|
||||
system("nice perl collectstats.pl $d");
|
||||
$ts += 86400;
|
||||
}
|
Loading…
Reference in New Issue