Alexandre Julliard : winetest: Ignore all files that aren' t in sha1 format in the main directory.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 93583dedc08d7c7bcf0d8cab906295309333984a
URL:    http://source.winehq.org/git/tools.git/?a=commit;h=93583dedc08d7c7bcf0d8cab9...

Author: Alexandre Julliard <julliard(a)winehq.org>
Date:   Fri Aug  1 15:47:45 2008 +0200

winetest: Ignore all files that aren't in sha1 format in the main directory.

---

 winetest/site |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/winetest/site b/winetest/site
index 68fe51f..d27d794 100755
--- a/winetest/site
+++ b/winetest/site
@@ -17,8 +17,7 @@ if ($q->param('testing')) {
     opendir(DIR, "./data/");
     foreach my $build (readdir(DIR))
     {
-        next if $build =~ /^\./;
-        next unless $build =~ /^[-.0-9a-zA-Z]+$/;
+        next unless $build =~ /^[0-9a-f]{40}$/;
         next unless -f "./data/$build/index.html";
         push @builds, { name => $build, date => (stat "./data/$build")[9] };
     }