root/trunk/dev-tools/svn-scripts-run-check.plx

#!/usr/bin/perl
# Copyright (c) 2006, 2007 Software Freedom Law Center, Inc.
#
# This software gives you freedom; it is licensed to you under version 3
# of the GNU General Public License.
#
# This software is distributed WITHOUT ANY WARRANTY, without even the
# implied warranties of MERCHANTABILITY and FITNESS FOR A PARTICULAR
# PURPOSE.  See the GNU General Public License for further details.
#
# You should have received a copy of the GNU General Public License,
# version 3.  If not, see <http://www.gnu.org/licenses/>
#
# License: GPLv3-only

# This script is designed to be run launched by svn's post hooks under the
# uid of the Mercurial repository.  It generally lives in ~svn/bin
# and called from the repository post hooks

# This program might be of interest to people who want to do some sort of
# operation on files after an SVN commit that requires some set of
# commands to be run on the repository's local system.  In other words, if
# you really wish that when an SVN commit happened, you could log into the
# server and run a bunch of commands against a local checkout of what was
# just committed, then this script is for you.

# The whole thing is a hack -- no question.  If there's a better way to do
# this job, I'd love to hear about it.

use strict;
use warnings;

use Unix::Syslog qw(:subs);
use Unix::Syslog qw(:macros);

my $PAGE_EMAIL = "root\@softwarefreeom.org";

{
  my %messageHistory;

  sub WarnLog ($$) {
    my($now, $message) = @_;

    syslog LOG_INFO, $message;

    my $lastTime = $messageHistory{$message};

    my $sendIt = 0;
    if (not defined $lastTime) {
      $sendIt = 1;
    } else {
      my $err;
      my $sinceLast = DateCalc($lastTime,"+ 10 minutes",\$err);
      $sendIt = 1 if ($now gt $sinceLast);
    }
    if ($sendIt) {
      open(SENDMAIL, "|/usr/sbin/sendmail -f root\@softwarefreedom.org -t");
      print SENDMAIL "To: $PAGE_EMAIL\nFrom: root\@softwarefreedom.org\n",
      "Subject: CAL, COMMIT_HOOK\n\n$message\n.\n";
      close(SENDMAIL);
      if ($? != 0) {
        syslog LOG_INFO, "Unable to perform sendmail: $!";
      } else {
        $messageHistory{$message} = $now;
      }
    }
  }
}
###############################################################################
%ENV = ();
$ENV{PATH} = "/bin:/usr/bin";
#$ENV{HOME} = "/home/svn";
#$ENV{USER} = $ENV{LOGNAME} ='svn';
$ENV{SHELL} = "/bin/bash";

chdir("/home/hg")
  or WarnLog(ParseDate("today"), "unable to change to /home/hg: $!");

my %programs = ('loblaw-test' => { pidFile =>
                                  "/home/hg/pids/loblaw-test-update.pid",
                     scriptFile => "/home/hg/bin/update-loblaw-test.plx" });

foreach my $key (keys %programs) {
  my $pid;
  if (-f $programs{$key}{pidFile}) {
    open(PID_FILE, "<$programs{$key}{pidFile}")
     or WarnLog(ParseDate("today"),
                "unable to open $programs{$key}{pidFile}: $!");

    $pid = <PID_FILE>;
    close PID_FILE;
    chomp $pid;

    system("/bin/ps h --pid $pid > /dev/null 2>&1");
  }

  if ( (not defined $pid) or $pid eq "" or $? != 0) {
    unlink($programs{$key}{pidFile});
    system("/usr/bin/nohup $programs{$key}{scriptFile} >> /home/hg/logs/${key}.log 2>&1 &");
    WarnLog(ParseDate("today"), "unable to launch $key bot: $!")
      unless ($? == 0);
  }
}

###############################################################################
#
# Local variables:
# compile-command: "perl -c svn-scripts-run-check.plx"
# End:
#