diff --git a/tools/buildbot/bootstrap.pl b/tools/buildbot/bootstrap.pl index 8a3e7e16de..46a5cf1800 100755 --- a/tools/buildbot/bootstrap.pl +++ b/tools/buildbot/bootstrap.pl @@ -9,6 +9,8 @@ my ($myself, $path) = fileparse($0); chdir($path); +use FindBin; +use lib $FindBin::Bin; require 'helpers.pm'; #Go back to tree root. diff --git a/tools/buildbot/package.pl b/tools/buildbot/package.pl index ab2feba1e2..abb2641bd2 100755 --- a/tools/buildbot/package.pl +++ b/tools/buildbot/package.pl @@ -29,6 +29,8 @@ my ($myself, $path) = fileparse($0); chdir($path); +use FindBin; +use lib $FindBin::Bin; require 'helpers.pm'; #Switch to the output folder. diff --git a/tools/buildbot/startbuild.pl b/tools/buildbot/startbuild.pl index 3714b70c10..adaa20a2e5 100755 --- a/tools/buildbot/startbuild.pl +++ b/tools/buildbot/startbuild.pl @@ -6,6 +6,8 @@ my ($myself, $path) = fileparse($0); chdir($path); +use FindBin; +use lib $FindBin::Bin; require 'helpers.pm'; chdir('../../../OUTPUT'); diff --git a/tools/buildbot/symstore.pl b/tools/buildbot/symstore.pl index 128b14532d..431a057c63 100755 --- a/tools/buildbot/symstore.pl +++ b/tools/buildbot/symstore.pl @@ -1,65 +1,67 @@ -#!/usr/bin/perl - -use File::Basename; - -my ($myself, $path) = fileparse($0); -chdir($path); - -require 'helpers.pm'; - -chdir('..'); -chdir('..'); - -open(PDBLOG, '../OUTPUT/pdblog.txt') or die "Could not open pdblog.txt: $!\n"; - -#Get version info -my ($version); -$version = Build::ProductVersion(Build::PathFormat('product.version')); -$version =~ s/-dev//g; -$version .= '-git' . Build::GitRevNum('.'); - -my ($build_type); -$build_type = Build::GetBuildType(Build::PathFormat('tools/buildbot/build_type')); - -if ($build_type eq "dev") -{ - $build_type = "buildbot"; -} -elsif ($build_type eq "rel") -{ - $build_type = "release"; -} - -my ($line); -while () -{ - $line = $_; - $line =~ s/\.pdb/\*/; - chomp $line; - Build::Command("symstore add /r /f \"..\\OUTPUT\\$line\" /s \"S:\\sourcemod\" /t \"SourceMod\" /v \"$version\" /c \"$build_type\""); -} - -close(PDBLOG); - -#Lowercase DLLs. Sigh. -my (@files); -opendir(DIR, "S:\\sourcemod") or die "Could not open sourcemod symbol folder: $!\n"; -@files = readdir(DIR); -closedir(DIR); - -my ($i, $j, $file, @subdirs); -for ($i = 0; $i <= $#files; $i++) -{ - $file = $files[$i]; - next unless ($file =~ /\.dll$/); - next unless (-d "S:\\sourcemod\\$file"); - opendir(DIR, "S:\\sourcemod\\$file") or die "Could not open S:\\sourcemod\\$file: $!\n"; - @subdirs = readdir(DIR); - closedir(DIR); - for ($j = 0; $j <= $#subdirs; $j++) - { - next unless ($subdirs[$j] =~ /[A-Z]/); - Build::Command("rename S:\\sourcemod\\$file\\" . $subdirs[$j] . " " . lc($subdirs[$j])); - } -} - +#!/usr/bin/perl + +use File::Basename; + +my ($myself, $path) = fileparse($0); +chdir($path); + +use FindBin; +use lib $FindBin::Bin; +require 'helpers.pm'; + +chdir('..'); +chdir('..'); + +open(PDBLOG, '../OUTPUT/pdblog.txt') or die "Could not open pdblog.txt: $!\n"; + +#Get version info +my ($version); +$version = Build::ProductVersion(Build::PathFormat('product.version')); +$version =~ s/-dev//g; +$version .= '-git' . Build::GitRevNum('.'); + +my ($build_type); +$build_type = Build::GetBuildType(Build::PathFormat('tools/buildbot/build_type')); + +if ($build_type eq "dev") +{ + $build_type = "buildbot"; +} +elsif ($build_type eq "rel") +{ + $build_type = "release"; +} + +my ($line); +while () +{ + $line = $_; + $line =~ s/\.pdb/\*/; + chomp $line; + Build::Command("symstore add /r /f \"..\\OUTPUT\\$line\" /s \"S:\\sourcemod\" /t \"SourceMod\" /v \"$version\" /c \"$build_type\""); +} + +close(PDBLOG); + +#Lowercase DLLs. Sigh. +my (@files); +opendir(DIR, "S:\\sourcemod") or die "Could not open sourcemod symbol folder: $!\n"; +@files = readdir(DIR); +closedir(DIR); + +my ($i, $j, $file, @subdirs); +for ($i = 0; $i <= $#files; $i++) +{ + $file = $files[$i]; + next unless ($file =~ /\.dll$/); + next unless (-d "S:\\sourcemod\\$file"); + opendir(DIR, "S:\\sourcemod\\$file") or die "Could not open S:\\sourcemod\\$file: $!\n"; + @subdirs = readdir(DIR); + closedir(DIR); + for ($j = 0; $j <= $#subdirs; $j++) + { + next unless ($subdirs[$j] =~ /[A-Z]/); + Build::Command("rename S:\\sourcemod\\$file\\" . $subdirs[$j] . " " . lc($subdirs[$j])); + } +} +