Changes to buildbot scripts for Mercurial.
This commit is contained in:
parent
8fcecf3dec
commit
f79c9eec82
@ -9,7 +9,26 @@ our $SVN = "/usr/bin/svn";
|
|||||||
our $SVN_USER = 'dvander';
|
our $SVN_USER = 'dvander';
|
||||||
our $SVN_ARGS = '';
|
our $SVN_ARGS = '';
|
||||||
|
|
||||||
sub Revision
|
sub HgRevNum
|
||||||
|
{
|
||||||
|
my ($path) = (@_);
|
||||||
|
my ($cd, $text, $rev);
|
||||||
|
|
||||||
|
$cd = Cwd::cwd();
|
||||||
|
chdir($path);
|
||||||
|
$text = `hg identify -n`;
|
||||||
|
chdir($cd);
|
||||||
|
|
||||||
|
chomp $text;
|
||||||
|
if ($text =~ /^(\d+)/)
|
||||||
|
{
|
||||||
|
return $1;
|
||||||
|
}
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub SvnRevNum
|
||||||
{
|
{
|
||||||
my ($str)=(@_);
|
my ($str)=(@_);
|
||||||
|
|
||||||
|
@ -32,7 +32,7 @@ chdir(Build::PathFormat('../../OUTPUT/base'));
|
|||||||
my ($version);
|
my ($version);
|
||||||
|
|
||||||
$version = Build::ProductVersion(Build::PathFormat('../../product.version'));
|
$version = Build::ProductVersion(Build::PathFormat('../../product.version'));
|
||||||
$version .= '.' . Build::Revision('../..');
|
$version .= '-hg' . Build::HgRevNum('../..');
|
||||||
|
|
||||||
my ($filename);
|
my ($filename);
|
||||||
$filename = 'sourcemod-' . $version;
|
$filename = 'sourcemod-' . $version;
|
||||||
|
@ -20,7 +20,7 @@ rsync('sourcemod@alliedmods.net:~/public_html/symbols/', '..\\..\\symstore');
|
|||||||
#Get version info
|
#Get version info
|
||||||
my ($version);
|
my ($version);
|
||||||
$version = Build::ProductVersion(Build::PathFormat('product.version'));
|
$version = Build::ProductVersion(Build::PathFormat('product.version'));
|
||||||
$version .= '.' . Build::Revision('.');
|
$version .= '-hg' . Build::HgRevNum('.');
|
||||||
|
|
||||||
my ($line);
|
my ($line);
|
||||||
while (<PDBLOG>)
|
while (<PDBLOG>)
|
||||||
|
Loading…
Reference in New Issue
Block a user