Supply a 'modern' run_cron (written in perl)
[buildfarm-client.git] / run_cron
1 #!/usr/bin/env perl
2
3 use 5.010;
4 use strict;
5 use warnings;
6 use FindBin qw($Bin);
7
8 chdir $Bin or die "$0: Can't chdir '$Bin': $!\n";
9
10 # check if we've git available and if we've a cloned
11 # client installation. FIXME: What to do, if we have
12 # a 'detached' .git?
13 if (-d '.git') {
14     my ($git) = grep { -x } map { "$_/git" } split /:/, $ENV{PATH};
15     system('git pull >/dev/null') == 0 or die $? >> 8;
16 }
17
18 # the process building the documentation seems to break
19 # if PERL_UNICODE is set.
20 delete $ENV{PERL_UNICODE};
21
22 exec './run_branches', @ARGV;
23
24 # vim:ts=8 et sw=4 ai si: