Central place to mark releases so buildbot symbols aren't scrapped by purge script (bug 3809, r=me, a12=NPOTB).
Central place to mark releases so buildbot symbols aren't scrapped by purge script (
bug 3809, r=me, a12=NPOTB).
1.1 --- a/tools/buildbot/bootstrap.pl Tue May 12 17:28:43 2009 -0400
1.2 +++ b/tools/buildbot/bootstrap.pl Tue May 12 19:06:57 2009 -0400
1.3 @@ -57,7 +57,12 @@
1.4 Build::Command("flip -u tools/versionchanger.pl");
1.5 Build::Command("chmod +x tools/versionchanger.pl");
1.6 }
1.7 -Build::Command(Build::PathFormat('tools/versionchanger.pl') . ' --buildstring="-dev"');
1.8 +my ($build_type);
1.9 +$build_type = Build::GetBuildType(Build::PathFormat('tools/buildbot/build_type'));
1.10 +if ($build_type == "dev")
1.11 +{
1.12 + Build::Command(Build::PathFormat('tools/versionchanger.pl') . ' --buildstring="-dev"');
1.13 +}
1.14
1.15 #Bootstrap extensions that have complex dependencies
1.16
2.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
2.2 +++ b/tools/buildbot/build_type Tue May 12 19:06:57 2009 -0400
2.3 @@ -0,0 +1,1 @@
2.4 +dev
3.1 --- a/tools/buildbot/helpers.pm Tue May 12 17:28:43 2009 -0400
3.2 +++ b/tools/buildbot/helpers.pm Tue May 12 19:06:57 2009 -0400
3.3 @@ -142,4 +142,15 @@
3.4 chdir($dir);
3.5 }
3.6
3.7 +sub GetBuildType
3.8 +{
3.9 + my ($file)=(@_);
3.10 + my ($type);
3.11 + open(TYPE, $file) or die("Could not open file: $!\n");
3.12 + $type = <TYPE>;
3.13 + close(TYPE);
3.14 + chomp $type;
3.15 + return $type;
3.16 +}
3.17 +
3.18 return 1;
4.1 --- a/tools/buildbot/symstore.pl Tue May 12 17:28:43 2009 -0400
4.2 +++ b/tools/buildbot/symstore.pl Tue May 12 19:06:57 2009 -0400
4.3 @@ -22,13 +22,25 @@
4.4 $version = Build::ProductVersion(Build::PathFormat('product.version'));
4.5 $version .= '-hg' . Build::HgRevNum('.');
4.6
4.7 +my ($build_type);
4.8 +$build_type = Build::GetBuildType(Build::PathFormat('tools/buildbot/build_type'));
4.9 +
4.10 +if ($build_type == "dev")
4.11 +{
4.12 + $build_type = "buildbot";
4.13 +}
4.14 +elsif ($build_type == "rel")
4.15 +{
4.16 + $build_type = "release";
4.17 +}
4.18 +
4.19 my ($line);
4.20 while (<PDBLOG>)
4.21 {
4.22 $line = $_;
4.23 $line =~ s/\.pdb/\*/;
4.24 chomp $line;
4.25 - Build::Command("symstore add /r /f \"$line\" /s ..\\..\\symstore /t \"SourceMod\" /v \"$version\" /c \"buildbot\"");
4.26 + Build::Command("symstore add /r /f \"$line\" /s ..\\..\\symstore /t \"SourceMod\" /v \"$version\" /c \"$build_type\"");
4.27 }
4.28
4.29 close(PDBLOG);