Tidying
authorHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Sat, 5 Nov 2016 22:34:21 +0000 (23:34 +0100)
committerHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Sat, 5 Nov 2016 22:34:21 +0000 (23:34 +0100)
* run_cron is a symlink to run_branches now
* some more tests at startup time

run_branches
run_build
run_cron [changed from file to symlink]
wiki

index e837aa92727c71e75f0362c88cb2e3356888562d..9e267af44a47318ef6d1a9f263c9e302e6c78e1a 100755 (executable)
@@ -12,21 +12,33 @@ use vars qw($VERSION); $VERSION = 'REL_0.1';
 
 use strict;
 use warnings;
 
 use strict;
 use warnings;
+use 5.010;
+
 use Fcntl qw(:flock :seek);
 use Fcntl qw(:flock :seek);
-use EximBuild::Options;
 use File::Basename;
 use File::Basename;
+use FindBin qw($RealBin);
+use Cwd;
 
 
+use lib $RealBin;
+use EximBuild::Options;
+
+sub branch_last_sort;
+
+# Complain on old-style use (.pl extension), but only if a
+# terminal is available.
 if ($0 =~ /(.*)\.pl$/) {
     die "$0: Please use `@{[join ' ' => $1, @ARGV]}' instead.\n"
         if -t;
     exec $1, @ARGV;
 }
 
 if ($0 =~ /(.*)\.pl$/) {
     die "$0: Please use `@{[join ' ' => $1, @ARGV]}' instead.\n"
         if -t;
     exec $1, @ARGV;
 }
 
-my %branch_last;
-sub branch_last_sort;
+# Most of the client code assumes that our working directory
+# is the client code directory.
+chdir $RealBin or die "$0: Can't chdir to '$RealBin': $!\n";
+say "Changed working directory to '$RealBin'" if -t;
 
 
-my $run_build;
-($run_build = $0) =~ s/run_branches/run_build/;
+my %branch_last;
+my $run_build = './run_build';
 
 my($run_all, $run_one);
 my %extra_options =(
 
 my($run_all, $run_one);
 my %extra_options =(
@@ -41,14 +53,14 @@ EximBuild::Options::fetch_options(%extra_options);
 die("$0: non-option arguments not permitted")
   if @ARGV;
 
 die("$0: non-option arguments not permitted")
   if @ARGV;
 
-die "only one of --run-all and --run-one permitted"
+die "$0: only one of --run-all and --run-one permitted"
   if ($run_all && $run_one);
 
   if ($run_all && $run_one);
 
-die "need one of --run-all and --run-one"
+die "$0: need one of --run-all and --run-one"
   unless ($run_all || $run_one);
 
 # common mistake
   unless ($run_all || $run_one);
 
 # common mistake
-die "need group searchable homedir"
+die "$0: need group searchable homedir"
   unless (stat($ENV{HOME}) & 0550 == 0550);
 
 # set up a "branch" variable for processing the config file
   unless (stat($ENV{HOME}) & 0550 == 0550);
 
 # set up a "branch" variable for processing the config file
@@ -86,13 +98,11 @@ elsif ($EximBuild::conf{branches_to_build} =~
     # i.e. specially *not* the MinGW SDK perl that is invoked for the
     # build script, which means we need to put the path back the way it was
     # when we're done
     # i.e. specially *not* the MinGW SDK perl that is invoked for the
     # build script, which means we need to put the path back the way it was
     # when we're done
-    my $save_path = $ENV{PATH};
-    $ENV{PATH} = $EximBuild::conf{build_env}->{PATH}
+    local $ENV{PATH} = $EximBuild::conf{build_env}->{PATH}
       if ($EximBuild::conf{build_env}->{PATH});
     (my $url = $EximBuild::conf{target}) =~s/cgi-bin.*/branches_of_interest.txt/;
     my $branches_of_interest = `perl -MLWP::Simple -e "getprint(q{$url})"`;
     die "getting branches of interest" unless $branches_of_interest;
       if ($EximBuild::conf{build_env}->{PATH});
     (my $url = $EximBuild::conf{target}) =~s/cgi-bin.*/branches_of_interest.txt/;
     my $branches_of_interest = `perl -MLWP::Simple -e "getprint(q{$url})"`;
     die "getting branches of interest" unless $branches_of_interest;
-    $ENV{PATH} = $save_path;
     push(@branches,$_)foreach (split(/\s+/,$branches_of_interest));
     #splice(@branches,0,-2)
     #  if $EximBuild::conf{branches_to_build} eq 'HEAD_PLUS_LATEST';
     push(@branches,$_)foreach (split(/\s+/,$branches_of_interest));
     #splice(@branches,0,-2)
     #  if $EximBuild::conf{branches_to_build} eq 'HEAD_PLUS_LATEST';
index d2de73fbb2d87e368123fa2d690a341ff020e642..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;
 
 use strict;
 use warnings;
@@ -83,6 +83,8 @@ if ($0 =~ /(.*)\.pl$/) {
     exec $1, @ARGV;
 }
 
     exec $1, @ARGV;
 }
 
+die "$0: please use an umask of 022\n"
+    if umask > 022;
 
 my %module_hooks;
 my $orig_dir = getcwd();
 
 my %module_hooks;
 my $orig_dir = getcwd();
@@ -153,6 +155,18 @@ print_help() if ($help);
 # process config file
 #
 require $buildconf;
 # 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 (
 
 # get the config data into some local variables
 my (
deleted file mode 100755 (executable)
index 278084e2cc788cea9b714351290022732744af56..0000000000000000000000000000000000000000
--- a/run_cron
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/env perl
-
-use 5.010;
-use strict;
-use warnings;
-use FindBin qw($Bin);
-
-chdir $Bin or die "$0: Can't chdir '$Bin': $!\n";
-
-# check if we've git available and if we've a cloned
-# client installation. FIXME: What to do, if we have
-# a 'detached' .git?
-if (-d '.git') {
-    die "$0: found .git dir, but git is not available\n"
-        if not grep { -x } map { "$_/git" } split /:/, $ENV{PATH};
-    system('git pull >/dev/null') == 0 or die $? >> 8;
-}
-
-# the process building the documentation seems to break
-# if PERL_UNICODE is set.
-delete $ENV{PERL_UNICODE};
-
-exec './run_branches', @ARGV;
-
-# vim:ts=8 et sw=4 ai si:
new file mode 120000 (symlink)
index 0000000000000000000000000000000000000000..022fd6bdd555f110e10a1587e74638fa25285477
--- /dev/null
+++ b/run_cron
@@ -0,0 +1 @@
+run_branches
\ No newline at end of file
diff --git a/wiki b/wiki
index 9e0a648f78bc31b0b16f0cd3fc2cfbe8c1cfa05a..12443b26b1d0c86686f8e0b9b3c0a4ac8999fc03 160000 (submodule)
--- a/wiki
+++ b/wiki
@@ -1 +1 @@
-Subproject commit 9e0a648f78bc31b0b16f0cd3fc2cfbe8c1cfa05a
+Subproject commit 12443b26b1d0c86686f8e0b9b3c0a4ac8999fc03