root/trunk/dev-tools/post-hook-loblaw-test-feed.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

#  update-loblaw-test.plx, when it did its work right from the post-commit
#  hook, ran too long.  Plus, there were probably race conditions that I
#  hadn't realized were there, too.  Under this way of doing things, I
#  pass the commit immediately without error, and update-loblaw-test.plx
#  picks up the data as it comes.

use strict;
use warnings;

use Fcntl;

my $PIPE_FILE = "/home/svn/pipes/loblaw-update";

###############################################################################
use Unix::Syslog qw(:subs);
use Unix::Syslog qw(:macros);
use Carp;
{
  my $PAGE_EMAIL = 'root@softwarefreedom.org';
  my %messageHistory;

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

    use Date::Manip;
    my $NOW = ParseDate("now");
    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",
      close(SENDMAIL);
      if ($? != 0) {
        syslog LOG_INFO, "Unable to perform sendmail: $!";
      } else {
        $messageHistory{$message} = $NOW;
      }
    }
    die "$message";
  }
}
###############################################################################

my($repository, $revision) = @ARGV;

WarnLog("\"$0 @ARGV\" called with bad repository and/or revision")
  unless defined $repository and
         defined $revision and $revision =~ /^\s*\d+\s*/;

# Only operate if it is in our repository

exit 0 unless $repository =~ m|Repository/loblaw\s*$|;

sysopen(FIFO, $PIPE_FILE, O_WRONLY)
  or WarnLog("cannot open $PIPE_FILE for writing: $!");

print FIFO "REPOSITORY: \"$repository\"   REVISION: $revision\n";
close FIFO;
my $val = $?;
WarnLog("Got $val exit code while trying to pass data to $PIPE_FILE: $!")
  unless ($val == 0);

exit $val;
__END__
###############################################################################
#
# Local variables:
# compile-command: "perl -c post-hook-loblaw-test-feed.plx"
# End:
#