1.1 --- a/tools/buildbot/helpers.pm Sat Jul 28 17:12:42 2012 -0700
1.2 +++ b/tools/buildbot/helpers.pm Sat Jul 28 18:46:18 2012 -0700
1.3 @@ -1,4 +1,5 @@
1.4 #!/usr/bin/perl
1.5 +# vim: set ts=2 sw=2 tw=99 et:
1.6
1.7 use strict;
1.8 use Cwd;
1.9 @@ -11,146 +12,146 @@
1.10
1.11 sub HgRevNum
1.12 {
1.13 - my ($path) = (@_);
1.14 - my ($cd, $text, $rev);
1.15 + my ($path) = (@_);
1.16 + my ($cd, $text, $rev);
1.17
1.18 - $cd = Cwd::cwd();
1.19 - chdir($path);
1.20 - $text = `hg identify -n`;
1.21 - chdir($cd);
1.22 + $cd = Cwd::cwd();
1.23 + chdir($path);
1.24 + $text = `hg identify -n`;
1.25 + chdir($cd);
1.26
1.27 - chomp $text;
1.28 - if ($text =~ /^(\d+)/)
1.29 - {
1.30 - return $1;
1.31 - }
1.32 + chomp $text;
1.33 + if ($text =~ /^(\d+)/)
1.34 + {
1.35 + return $1;
1.36 + }
1.37
1.38 - return 0;
1.39 + return 0;
1.40 }
1.41
1.42 sub SvnRevNum
1.43 {
1.44 - my ($str)=(@_);
1.45 -
1.46 - my $data = Command('svnversion -c ' . $str);
1.47 - if ($data =~ /(\d+):(\d+)/)
1.48 - {
1.49 - return $2;
1.50 - } elsif ($data =~ /(\d+)/) {
1.51 - return $1;
1.52 - } else {
1.53 - return 0;
1.54 - }
1.55 + my ($str)=(@_);
1.56 +
1.57 + my $data = Command('svnversion -c ' . $str);
1.58 + if ($data =~ /(\d+):(\d+)/)
1.59 + {
1.60 + return $2;
1.61 + } elsif ($data =~ /(\d+)/) {
1.62 + return $1;
1.63 + } else {
1.64 + return 0;
1.65 + }
1.66 }
1.67
1.68 sub ProductVersion
1.69 {
1.70 - my ($file) = (@_);
1.71 - my ($version);
1.72 - open(FILE, $file) or die "Could not open $file: $!\n";
1.73 - $version = <FILE>;
1.74 - close(FILE);
1.75 - chomp $version;
1.76 - return $version;
1.77 + my ($file) = (@_);
1.78 + my ($version);
1.79 + open(FILE, $file) or die "Could not open $file: $!\n";
1.80 + $version = <FILE>;
1.81 + close(FILE);
1.82 + chomp $version;
1.83 + return $version;
1.84 }
1.85
1.86 sub Delete
1.87 {
1.88 - my ($str)=(@_);
1.89 - if ($^O =~ /MSWin/)
1.90 - {
1.91 - Command("del /S /F /Q \"$str\"");
1.92 - Command("rmdir /S /Q \"$str\"");
1.93 - } else {
1.94 - Command("rm -rf $str");
1.95 - }
1.96 - return !(-e $str);
1.97 + my ($str)=(@_);
1.98 + if ($^O =~ /MSWin/)
1.99 + {
1.100 + Command("del /S /F /Q \"$str\"");
1.101 + Command("rmdir /S /Q \"$str\"");
1.102 + } else {
1.103 + Command("rm -rf $str");
1.104 + }
1.105 + return !(-e $str);
1.106 }
1.107
1.108 sub Copy
1.109 {
1.110 - my ($src,$dest)=(@_);
1.111 - if ($^O =~ /MSWin/)
1.112 - {
1.113 - Command("copy \"$src\" \"$dest\" /y");
1.114 - } else {
1.115 - Command("cp \"$src\" \"$dest\"");
1.116 - }
1.117 - return (-e $dest);
1.118 + my ($src,$dest)=(@_);
1.119 + if ($^O =~ /MSWin/)
1.120 + {
1.121 + Command("copy \"$src\" \"$dest\" /y");
1.122 + } else {
1.123 + Command("cp \"$src\" \"$dest\"");
1.124 + }
1.125 + return (-e $dest);
1.126 }
1.127
1.128 sub Move
1.129 {
1.130 - my ($src,$dest)=(@_);
1.131 - if ($^O =~ /MSWin/)
1.132 - {
1.133 - Command("move \"$src\" \"$dest\"");
1.134 - } else {
1.135 - Command("mv \"$src\" \"$dest\"");
1.136 - }
1.137 - return (-e $dest);
1.138 + my ($src,$dest)=(@_);
1.139 + if ($^O =~ /MSWin/)
1.140 + {
1.141 + Command("move \"$src\" \"$dest\"");
1.142 + } else {
1.143 + Command("mv \"$src\" \"$dest\"");
1.144 + }
1.145 + return (-e $dest);
1.146 }
1.147
1.148 sub Command
1.149 {
1.150 - my($cmd)=(@_);
1.151 - print "$cmd\n";
1.152 - return `$cmd`;
1.153 + my($cmd)=(@_);
1.154 + print "$cmd\n";
1.155 + return `$cmd`;
1.156 }
1.157
1.158 sub PathFormat
1.159 {
1.160 - my ($str)=(@_);
1.161 - if ($^O =~ /MSWin/)
1.162 - {
1.163 - $str =~ s#/#\\#g;
1.164 - } else {
1.165 - $str =~ s#\\#/#g;
1.166 - }
1.167 - return $str;
1.168 + my ($str)=(@_);
1.169 + if ($^O =~ /MSWin/)
1.170 + {
1.171 + $str =~ s#/#\\#g;
1.172 + } else {
1.173 + $str =~ s#\\#/#g;
1.174 + }
1.175 + return $str;
1.176 }
1.177
1.178 sub SVN_Remove
1.179 {
1.180 - my ($file)=(@_);
1.181 - my ($path, $name);
1.182 - if ($^O =~ /MSWin/)
1.183 - {
1.184 - ($path, $name) = ($file =~ /(.+)\/([^\/]+)$/);
1.185 - } else {
1.186 - ($path, $name) = ($file =~ /(.+)\\([^\\]+)$/);
1.187 - }
1.188 - my $dir = Cwd::cwd();
1.189 - chdir($path);
1.190 - Command($SVN . ' ' . $SVN_ARGS . ' delete ' . $name);
1.191 - chdir($dir);
1.192 + my ($file)=(@_);
1.193 + my ($path, $name);
1.194 + if ($^O =~ /MSWin/)
1.195 + {
1.196 + ($path, $name) = ($file =~ /(.+)\/([^\/]+)$/);
1.197 + } else {
1.198 + ($path, $name) = ($file =~ /(.+)\\([^\\]+)$/);
1.199 + }
1.200 + my $dir = Cwd::cwd();
1.201 + chdir($path);
1.202 + Command($SVN . ' ' . $SVN_ARGS . ' delete ' . $name);
1.203 + chdir($dir);
1.204 }
1.205
1.206 sub SVN_Add
1.207 {
1.208 - my ($file)=(@_);
1.209 - my ($path, $name);
1.210 - if ($^O =~ /MSWin/)
1.211 - {
1.212 - ($path, $name) = ($file =~ /(.+)\/([^\/]+)$/);
1.213 - } else {
1.214 - ($path, $name) = ($file =~ /(.+)\\([^\\]+)$/);
1.215 - }
1.216 - my $dir = Cwd::cwd();
1.217 - chdir($path);
1.218 - Command($SVN . ' ' . $SVN_ARGS . ' add ' . $name);
1.219 - chdir($dir);
1.220 + my ($file)=(@_);
1.221 + my ($path, $name);
1.222 + if ($^O =~ /MSWin/)
1.223 + {
1.224 + ($path, $name) = ($file =~ /(.+)\/([^\/]+)$/);
1.225 + } else {
1.226 + ($path, $name) = ($file =~ /(.+)\\([^\\]+)$/);
1.227 + }
1.228 + my $dir = Cwd::cwd();
1.229 + chdir($path);
1.230 + Command($SVN . ' ' . $SVN_ARGS . ' add ' . $name);
1.231 + chdir($dir);
1.232 }
1.233
1.234 sub GetBuildType
1.235 {
1.236 - my ($file)=(@_);
1.237 - my ($type);
1.238 - open(TYPE, $file) or die("Could not open file: $!\n");
1.239 - $type = <TYPE>;
1.240 - close(TYPE);
1.241 - chomp $type;
1.242 - return $type;
1.243 + my ($file)=(@_);
1.244 + my ($type);
1.245 + open(TYPE, $file) or die("Could not open file: $!\n");
1.246 + $type = <TYPE>;
1.247 + close(TYPE);
1.248 + chomp $type;
1.249 + return $type;
1.250 }
1.251
1.252 return 1;
