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: