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     die "$0: found .git dir, but git is not available\n"
  15         if not grep { -x } map { "$_/git" } split /:/, $ENV{PATH};
  16     system('git pull >/dev/null') == 0 or die $? >> 8;
  17 }
  18
  19 # the process building the documentation seems to break
  20 # if PERL_UNICODE is set.
  21 delete $ENV{PERL_UNICODE};
  22
  23 exec './run_branches', @ARGV;
  24
  25 # vim:ts=8 et sw=4 ai si: