Author: benm
Date: 2005-05-05 13:31:47 -0400 (Thu, 05 May 2005)
New Revision: 44093
Modified:
trunk/release/monobuild/Mono/Build.pm
trunk/release/monobuild/www/cgi-perl/buildstatus.pl
Log:
read package data to find out where stuff gets built
Modified: trunk/release/monobuild/Mono/Build.pm
===================================================================
--- trunk/release/monobuild/Mono/Build.pm 2005-05-05 17:31:19 UTC (rev
44092)
+++ trunk/release/monobuild/Mono/Build.pm 2005-05-05 17:31:47 UTC (rev
44093)
@@ -3,6 +3,7 @@
package Mono::Build;
use Mono::Build::Config;
+use Env::Bash;
sub getDistros
{
@@ -51,11 +52,19 @@
closedir(DIR);
return sort @components;
+}
+sub getPackageInfo
+{
+ my $pkg = shift;
+ my $var = shift;
+
+ my $dir = $Mono::Build::Config::componentDir;
+
+ return get_env_var( $var, Source => "$dir/$pkg", );
}
-
sub getState
{
my $index = shift;
@@ -63,12 +72,8 @@
my @states = (
'notused',
'success',
- 'success',
- 'success',
- 'success',
'failure',
'building',
- 'building',
);
return $states[$index % @states];
Modified: trunk/release/monobuild/www/cgi-perl/buildstatus.pl
===================================================================
--- trunk/release/monobuild/www/cgi-perl/buildstatus.pl 2005-05-05 17:31:19 UTC
(rev 44092)
+++ trunk/release/monobuild/www/cgi-perl/buildstatus.pl 2005-05-05 17:31:47 UTC
(rev 44093)
@@ -10,33 +10,7 @@
# Read these in from a file later...
my @linux_distros = Mono::Build::getDistros();
-
- #'nld-9-x86_64',
-# 'rhel-3-i386',
-# 'sles-9-i586',
-# 'suse-92-i586',
-# 'suse-93-x86_64',
-# 'fedora-3-i386',
-# 'nld-9-i586',
-# 'redhat-9-i386',
-# 'rhel-4-i386',
-# 'sles-9-x86_64',
-# 'suse-93-i586',
-# );
-
my @linux_components = Mono::Build::getComponents();
-#my @linux_components = (
-# 'gtk-sharp-2.0',
-# 'mod_mono',
-# 'monodoc',
-# 'gecko-sharp-2.0',
-# 'gtksourceview-sharp-2.0',
-# 'mono-1.1',
-# 'xsp',
-# 'gtk-sharp',
-# 'libgdiplus-1.1',
-# 'monodevelop'
-# );
my @other_platforms = (
'sparc',
@@ -80,13 +54,20 @@
foreach my $component (sort @linux_components)
{
print "<tr><td>$component</td>\n";
+ my @buildhosts;
+ @buildhosts = Mono::Build::getPackageInfo($component, "BUILD_HOSTS");
foreach my $distro (sort @linux_distros)
{
print "<td ";
- my $rand = randomResult();
+ my $rand = randomResult();
my $state = Mono::Build::getState($rand);
+
+ unless (Mono::Build::arrayContains($distro, @buildhosts)) {
+ $state = "notused"
+ }
+
print "class=$state>";
$rev = "r454";
@@ -137,6 +118,7 @@
my $rand;
my $state;
+
# Make sure you don't get unused
do
{
@@ -194,7 +176,7 @@
sub randomResult
{
- return int(rand(10));
+ return int(rand(3)) + 1;
}
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
