vitalif
/
bugzilla-4intranet
mirror of https://github.com/vitalif/bugzilla-4intranet
1
0
Fork 0
Code Issues Releases Wiki Activity

Bug 65840 

git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@810 6955db30-a419-402b-8a0d-67ecbb4d7f56
master
vfilippov 2010-06-25 13:52:20 +00:00
parent b84af4f462
commit d994e0cc3e
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
recollect.pl Executable file
View File

@ -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;
}