Remove the debug die at startup. :(
[buildfarm-client.git] / run_build
index 2bd6c52141c8f179ab018b24c41a3e569191d1b7..22124159b8a163c41daab51084a75d0b333c60d5 100755 (executable)
--- a/run_build
+++ b/run_build
@@ -32,7 +32,7 @@ See accompanying License file for license details
 
 ###################################################
 
-use vars qw($VERSION); $VERSION = 'REL_0.1';
+our $VERSION = 'REL_0.1';
 
 use strict;
 use warnings;
@@ -83,6 +83,8 @@ if ($0 =~ /(.*)\.pl$/) {
     exec $1, @ARGV;
 }
 
+die "$0: please use an umask of 022\n"
+    if umask > 022;
 
 my %module_hooks;
 my $orig_dir = getcwd();
@@ -153,6 +155,18 @@ print_help() if ($help);
 # process config file
 #
 require $buildconf;
+#use Data::Dumper;
+#die Dumper \%EximBuild::conf;
+
+# some basic checks
+die "$0: need read/write permissions on '$EximBuild::conf{global_lock_dir}': $!\n"
+    if not -r -w $EximBuild::conf{global_lock_dir};
+
+# Does not seem to be necessary
+#die "$0: permissions on '$EximBuild::conf{build_root}' should be >= 0775\n"
+#    if -d $EximBuild::conf{build_root}
+#      and ((stat $EximBuild::conf{build_root})[2] & 0775) != 0775;
+
 
 # get the config data into some local variables
 my (
@@ -1431,7 +1445,7 @@ sub get_script_config_dump
     delete $conf->{secret};
 
     if ($conf->{scm} eq 'git') {
-        chomp($conf->{farm}{revision} = `git describe --tags --always --dirty=+`);
+        chomp($conf->{farm}{revision} = `git -C $Bin describe --tags --always --dirty=+`);
        $conf->{farm}{cwd} = getcwd();
        $conf->{farm}{bindir} = $Bin;
     }