#!/usr/bin/perl
$|++;
use strict;
use warnings;

sub _find_index {
    my ($filelist, $basedir) = @_;
    if (opendir DH, "$basedir/") {
        my @dirlist = readdir DH;
        closedir DH;
        foreach my $filename (@dirlist) {
            if ($filename eq '.' || $filename eq '..') {
                next;
            }
            my $path = "$basedir/$filename";
            if (-d $path) {
                _find_index ($filelist, $path)
            } elsif (-f $path && $filename eq 'index.php') {
                $filelist->{$path} = 1;
            }
        }
    }
}

my %filelist = ();
foreach my $_set (1..6) {
    printf "* Set: %d\n", $_set;
    _find_index (\%filelist, $_set);
}

foreach my $filepath (keys %filelist) {
    my $buf = '';
    if (open FH, "<$filepath") {
        $buf = join "", <FH>;
        close FH;
        if ($buf =~ m!MT_BUILD_ELAPSED=([\d\.]+)!) {
            printf "%s\t%s\n", $filepath, $1;
        }
    }
}