X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;ds=sidebyside;f=tunings-myplc-devel%2Fcommit-email.pl;fp=tunings-myplc-devel%2Fcommit-email.pl;h=0000000000000000000000000000000000000000;hb=996a62f1d6ee84bf8da1b9ed694ce1a2c9d8861c;hp=4d00be56ca103a5fdeabdaae9c286cd715b6af1e;hpb=d147e925a91da7782420713c75c8d3b075cf8196;p=infrastructure.git

diff --git a/tunings-myplc-devel/commit-email.pl b/tunings-myplc-devel/commit-email.pl
deleted file mode 100755
index 4d00be5..0000000
--- a/tunings-myplc-devel/commit-email.pl
+++ /dev/null
@@ -1,680 +0,0 @@
-#!/usr/bin/env perl
-
-# ====================================================================
-# commit-email.pl: send a commit email for commit REVISION in
-# repository REPOS to some email addresses.
-#
-# For usage, see the usage subroutine or run the script with no
-# command line arguments.
-#
-# $HeadURL: http://svn.collab.net/repos/svn/branches/1.2.x/tools/hook-scripts/commit-email.pl.in $
-# $LastChangedDate: 2005-02-22 04:24:08 -0500 (Tue, 22 Feb 2005) $
-# $LastChangedBy: maxb $
-# $LastChangedRevision: 13107 $
-#    
-# ====================================================================
-# Copyright (c) 2000-2004 CollabNet.  All rights reserved.
-#
-# This software is licensed as described in the file COPYING, which
-# you should have received as part of this distribution.  The terms
-# are also available at http://subversion.tigris.org/license-1.html.
-# If newer versions of this license are posted there, you may use a
-# newer version instead, at your option.
-#
-# This software consists of voluntary contributions made by many
-# individuals.  For exact contribution history, see the revision
-# history and logs, available at http://subversion.tigris.org/.
-# ====================================================================
-
-# Modified by Branden Robinson, Peter Samuelson, and Mark Hymers
-# September 2004 to add $size_limit support.
-
-# Turn on warnings the best way depending on the Perl version.
-BEGIN {
-  if ( $] >= 5.006_000)
-    { require warnings; import warnings; }
-  else
-    { $^W = 1; }
-}
-						
-use strict;
-use Carp;
-
-######################################################################
-# Configuration section.
-
-# Body of the message to be sent
-my @body;
-
-# Sendmail path.
-my $sendmail = "/usr/sbin/sendmail";
-
-# Svnlook path.
-my $svnlook = "/usr/bin/svnlook";
-
-# By default, when a file is deleted from the repository, svnlook diff
-# prints the entire contents of the file.  If you want to save space
-# in the log and email messages by not printing the file, then set
-# $no_diff_deleted to 1.
-my $no_diff_deleted = 1;
-# By default, when a file is added to the repository, svnlook diff
-# prints the entire contents of the file.  If you want to save space
-# in the log and email messages by not printing the file, then set
-# $no_diff_added to 1.
-my $no_diff_added = 1;
-
-# End of Configuration section.
-######################################################################
-
-# Since the path to svnlook depends upon the local installation
-# preferences, check that the required programs exist to insure that
-# the administrator has set up the script properly.
-{
-  my $ok = 1;
-  foreach my $program ($sendmail, $svnlook)
-    {
-      if (-e $program)
-        {
-          unless (-x $program)
-            {
-              warn "$0: required program `$program' is not executable, ",
-                   "edit $0.\n";
-              $ok = 0;
-            }
-        }
-      else
-        {
-          warn "$0: required program `$program' does not exist, edit $0.\n";
-          $ok = 0;
-        }
-    }
-  exit 1 unless $ok;
-}
-
-
-######################################################################
-# Initial setup/command-line handling.
-
-# Each value in this array holds a hash reference which contains the
-# associated email information for one project.  Start with an
-# implicit rule that matches all paths.
-my @project_settings_list = (&new_project);
-
-# Process the command line arguments till there are none left.  The
-# first two arguments that are not used by a command line option are
-# the repository path and the revision number.
-my $repos;
-my $rev;
-
-# Use the reference to the first project to populate.
-my $current_project = $project_settings_list[0];
-my $size_limit = 0;
-
-# This hash matches the command line option to the hash key in the
-# project.  If a key exists but has a false value (''), then the
-# command line option is allowed but requires special handling.
-my %opt_to_hash_key = ('--from' => 'from_address',
-                       '-h'     => 'hostname',
-                       '-l'     => 'log_file',
-                       '-m'     => '',
-                       '-r'     => 'reply_to',
-                       '-s'     => 'subject_prefix',
-                 '--size-limit' => '');
-
-while (@ARGV)
-  {
-    my $arg = shift @ARGV;
-    if ($arg =~ /^-/)
-      {
-        my $hash_key = $opt_to_hash_key{$arg};
-        unless (defined $hash_key)
-          {
-            die "$0: command line option `$arg' is not recognized.\n";
-          }
-
-        unless (@ARGV)
-          {
-            die "$0: command line option `$arg' is missing a value.\n";
-          }
-        my $value = shift @ARGV;
-
-        if ($hash_key)
-          {
-            $current_project->{$hash_key} = $value;
-          }
-        else
-          {
-            # Handle -m and --size-limit here.
-            if ($arg eq '-m')
-              {
-                $current_project                = &new_project;
-                $current_project->{match_regex} = $value;
-                push(@project_settings_list, $current_project);
-              }
-            elsif ($arg eq '--size-limit')
-              {
-                $size_limit = $value;
-                # Validate the specified diff size limit.
-                if ($size_limit ne '' and $size_limit ne -1 and $size_limit !~ /^\d+$/)
-                  {
-                    die "$0: --size-limit takes only a positive integer or -1"
-                        . " argument; \"$size_limit\" is neither\n";
-                  }
-              }
-            else
-              {
-                die "$0: internal error: should only handle -m and --size-limit"
-                    . "here.\n";
-              }
-          }
-      }
-    elsif ($arg =~ /^-/)
-      {
-        die "$0: command line option `$arg' is not recognized.\n";
-      }
-    else
-      {
-        if (! defined $repos)
-          {
-            $repos = $arg;
-          }
-        elsif (! defined $rev)
-          {
-            $rev = $arg;
-          }
-        else
-          {
-            push(@{$current_project->{email_addresses}}, $arg);
-          }
-      }
-  }
-
-# If the revision number is undefined, then there were not enough
-# command line arguments.
-&usage("$0: too few arguments.") unless defined $rev;
-
-# Check the validity of the command line arguments.  Check that the
-# revision is an integer greater than 0 and that the repository
-# directory exists.
-unless ($rev =~ /^\d+/ and $rev > 0)
-  {
-    &usage("$0: revision number `$rev' must be an integer > 0.");
-  }
-unless (-e $repos)
-  {
-    &usage("$0: repos directory `$repos' does not exist.");
-  }
-unless (-d _)
-  {
-    &usage("$0: repos directory `$repos' is not a directory.");
-  }
-
-# Check that all of the regular expressions can be compiled and
-# compile them.
-{
-  my $ok = 1;
-  for (my $i=0; $i<@project_settings_list; ++$i)
-    {
-      my $match_regex = $project_settings_list[$i]->{match_regex};
-
-      # To help users that automatically write regular expressions
-      # that match the root directory using ^/, remove the / character
-      # because subversion paths, while they start at the root level,
-      # do not begin with a /.
-      $match_regex =~ s#^\^/#^#;
-
-      my $match_re;
-      eval { $match_re = qr/$match_regex/ };
-      if ($@)
-        {
-          warn "$0: -m regex #$i `$match_regex' does not compile:\n$@\n";
-          $ok = 0;
-          next;
-        }
-      $project_settings_list[$i]->{match_re} = $match_re;
-    }
-  exit 1 unless $ok;
-}
-
-######################################################################
-# Harvest data using svnlook.
-
-# Change into suitable directory so that svnlook diff can create its .svnlook
-# directory. This could be removed - it's only for compatibility with
-# 1.0.x svnlook - from 1.1.0, svnlook will be sensible about choosing a
-# temporary directory all by itself.
-#my $tmp_dir = ( -d $ENV{'TEMP'} ? $ENV{'TEMP'} : '/tmp' );
-#chdir($tmp_dir)
-#  or die "$0: cannot chdir `$tmp_dir': $!\n";
-
-# Get the author, date, and log from svnlook.
-my ($lines_size, @svnlooklines) = &read_from_process(0, $svnlook, 'info',
-                                                     $repos, '-r', $rev);
-my $author = shift @svnlooklines;
-my $date = shift @svnlooklines;
-shift @svnlooklines;
-my @log = map { "$_\n" } @svnlooklines;
-
-# Add header to body
-push(@body, "Author: $author\n");
-push(@body, "Date: $date\n");
-push(@body, "New Revision: $rev\n");
-push(@body, "\n");
-
-# Figure out what directories have changed using svnlook.
-my ($dirs_size, @dirschanged) = &read_from_process(0, $svnlook, 'dirs-changed',
-                                                   $repos, '-r', $rev);
-
-# Lose the trailing slash in the directory names if one exists, except
-# in the case of '/'.
-my $rootchanged = 0;
-for (my $i=0; $i<@dirschanged; ++$i)
-  {
-    if ($dirschanged[$i] eq '/')
-      {
-        $rootchanged = 1;
-      }
-    else
-      {
-        $dirschanged[$i] =~ s#^(.+)[/\\]$#$1#;
-      }
-  }
-
-# Figure out what files have changed using svnlook.
-my $look_size;
-($look_size, @svnlooklines) = &read_from_process(0, $svnlook, 'changed', $repos,
-                                                 '-r', $rev);
-
-# Parse the changed nodes.
-my @adds;
-my @dels;
-my @mods;
-foreach my $line (@svnlooklines)
-  {
-    my $path = '';
-    my $code = '';
-
-    # Split the line up into the modification code and path, ignoring
-    # property modifications.
-    if ($line =~ /^(.).  (.*)$/)
-      {
-        $code = $1;
-        $path = $2;
-      }
-
-    if ($code eq 'A')
-      {
-        push(@adds, $path);
-      }
-    elsif ($code eq 'D')
-      {
-        push(@dels, $path);
-      }
-    else
-      {
-        push(@mods, $path);
-      }
-  }
-
-# Add the adds, dels and mods to the body of the message.
-if (@adds)
-  {
-    @adds = sort @adds;
-    push(@body, "Added:\n");
-    push(@body, map { "   $_\n" } @adds);
-  }
-if (@dels)
-  {
-    @dels = sort @dels;
-    push(@body, "Removed:\n");
-    push(@body, map { "   $_\n" } @dels);
-  }
-if (@mods)
-  {
-    @mods = sort @mods;
-    push(@body, "Modified:\n");
-    push(@body, map { "   $_\n" } @mods);
-  }
-
-my @difflines;
-my $diff_howto = "Use \"svn diff" . " -r " . ($rev - 1) . ":$rev\" to view"
-                 . " diff.\n";
-
-# Work out how many bytes we have available for the diff.
-my $size_avail = 0;
-if ($size_limit > 0)
-  {
-    my $bodylen = 0;
-    for (@body) { $bodylen += length($_); }
-    $size_avail = $size_limit - $bodylen;
-
-    warn "sl= $size_limit -- sa = $size_avail";
-
-    if ($size_avail <= 0)
-      {
-        @difflines = ( "Diff skipped; message reached limit of $size_limit"
-                       . " bytes with list of changed paths.\n$diff_howto" );
-      }
-}
-
-# A $size_limit of -1 means we do not include a diff.
-if ($size_limit ne -1)
-  {
-    # Get the diff from svnlook.
-    my @no_diff_deleted = $no_diff_deleted ? ('--no-diff-deleted') : ();
-    my @no_diff_added = $no_diff_added ? ('--no-diff-added') : ();
-    my $numbytes;
-    ($numbytes, @difflines) = &read_from_process($size_avail, $svnlook, 'diff',
-                                                 $repos, '-r', $rev,
-                                                 @no_diff_deleted, @no_diff_added);
-    # If the diff is larger than the remaining size limit, we must discard
-    # it.
-    if ($numbytes == -1) {
-      @difflines = ( "Including diff would make mail exceed size limit of"
-                     . " $size_limit bytes.\n$diff_howto" );
-      }
-  }
-else
-  {
-    @difflines = ( $diff_howto );
-  }
-  
-######################################################################
-# Modified directory name collapsing.
-
-# Collapse the list of changed directories only if the root directory
-# was not modified, because otherwise everything is under root and
-# there's no point in collapsing the directories, and only if more
-# than one directory was modified.
-my $commondir = '';
-my @dirschanged_orig = @dirschanged;
-if (!$rootchanged and @dirschanged > 1)
-  {
-    my $firstline    = shift @dirschanged;
-    my @commonpieces = split('/', $firstline);
-    foreach my $line (@dirschanged)
-      {
-        my @pieces = split('/', $line);
-        my $i = 0;
-        while ($i < @pieces and $i < @commonpieces)
-          {
-            if ($pieces[$i] ne $commonpieces[$i])
-              {
-                splice(@commonpieces, $i, @commonpieces - $i);
-                last;
-              }
-            $i++;
-          }
-      }
-    unshift(@dirschanged, $firstline);
-
-    if (@commonpieces)
-      {
-        $commondir = join('/', @commonpieces);
-        my @new_dirschanged;
-        foreach my $dir (@dirschanged)
-          {
-            if ($dir eq $commondir)
-              {
-                $dir = '.';
-              }
-            else
-              {
-                $dir =~ s#^\Q$commondir/\E##;
-              }
-            push(@new_dirschanged, $dir);
-          }
-        @dirschanged = @new_dirschanged;
-      }
-  }
-my $dirlist = join(' ', @dirschanged);
-
-push(@body, "Log:\n");
-push(@body, @log);
-push(@body, "\n");
-push(@body, map { /[\r\n]+$/ ? $_ : "$_\n" } @difflines);
-
-# Go through each project and see if there are any matches for this
-# project.  If so, send the log out.
-foreach my $project (@project_settings_list)
-  {
-    my $match_re = $project->{match_re};
-    my $match    = 0;
-    foreach my $path (@dirschanged_orig, @adds, @dels, @mods)
-      {
-        if ($path =~ $match_re)
-          {
-            $match = 1;
-            last;
-          }
-      }
-
-    next unless $match;
-
-    my @email_addresses = @{$project->{email_addresses}};
-    my $userlist        = join(' ', @email_addresses);
-    my $from_address    = $project->{from_address};
-    my $hostname        = $project->{hostname};
-    my $log_file        = $project->{log_file};
-    my $reply_to        = $project->{reply_to};
-    my $subject_prefix  = $project->{subject_prefix};
-    my $subject;
-
-    if ($commondir ne '')
-      {
-        $subject = "r$rev - in $commondir: $dirlist";
-      }
-    else
-      {
-        $subject = "r$rev - $dirlist";
-      }
-    if ($subject_prefix =~ /\w/)
-      {
-        $subject = "$subject_prefix $subject";
-      }
-    my $mail_from = $author;
-
-    if ($from_address =~ /\w/)
-      {
-        $mail_from = $from_address;
-      }
-    elsif ($hostname =~ /\w/)
-      {
-        $mail_from = "$mail_from\@$hostname";
-      }
-
-    my @head;
-    push(@head, "To: $userlist\n");
-    push(@head, "From: $mail_from\n");
-    push(@head, "Subject: $subject\n");
-    push(@head, "Reply-to: $reply_to\n") if $reply_to;
-
-    ### Below, we set the content-type etc, but see these comments
-    ### from Greg Stein on why this is not a full solution.
-    #
-    # From: Greg Stein <gstein@lyra.org>
-    # Subject: Re: svn commit: rev 2599 - trunk/tools/cgi
-    # To: dev@subversion.tigris.org
-    # Date: Fri, 19 Jul 2002 23:42:32 -0700
-    # 
-    # Well... that isn't strictly true. The contents of the files
-    # might not be UTF-8, so the "diff" portion will be hosed.
-    # 
-    # If you want a truly "proper" commit message, then you'd use
-    # multipart MIME messages, with each file going into its own part,
-    # and labeled with an appropriate MIME type and charset. Of
-    # course, we haven't defined a charset property yet, but no biggy.
-    # 
-    # Going with multipart will surely throw out the notion of "cut
-    # out the patch from the email and apply." But then again: the
-    # commit emailer could see that all portions are in the same
-    # charset and skip the multipart thang. 
-    # 
-    # etc etc
-    # 
-    # Basically: adding/tweaking the content-type is nice, but don't
-    # think that is the proper solution.
-    push(@head, "Content-Type: text/plain; charset=UTF-8\n");
-    push(@head, "Content-Transfer-Encoding: 8bit\n");
-
-    push(@head, "\n");
-
-    if ($sendmail =~ /\w/ and @email_addresses)
-      {
-        # Open a pipe to sendmail.
-        my $command = "$sendmail -f$mail_from $userlist";
-        if (open(SENDMAIL, "| $command"))
-          {
-            print SENDMAIL @head, @body;
-            close SENDMAIL
-              or warn "$0: error in closing `$command' for writing: $!\n";
-          }
-        else
-          {
-            warn "$0: cannot open `| $command' for writing: $!\n";
-          }
-      }
-
-    # Dump the output to logfile (if its name is not empty).
-    if ($log_file =~ /\w/)
-      {
-        if (open(LOGFILE, ">> $log_file"))
-          {
-            print LOGFILE @head, @body;
-            close LOGFILE
-              or warn "$0: error in closing `$log_file' for appending: $!\n";
-          }
-        else
-          {
-            warn "$0: cannot open `$log_file' for appending: $!\n";
-          }
-      }
-  }
-
-exit 0;
-
-sub usage
-{
-  warn "@_\n" if @_;
-  die "usage: $0 REPOS REVNUM [[-m regex] [options] [email_addr ...]] ...\n",
-      "options are\n",
-      "  --from email_address  Email address for 'From:' (overrides -h)\n",
-      "  -h hostname           Hostname to append to author for 'From:'\n",
-      "  -l logfile            Append mail contents to this log file\n",
-      "  -m regex              Regular expression to match committed path\n",
-      "  -r email_address      Email address for 'Reply-To:'\n",
-      "  -s subject_prefix     Subject line prefix\n",
-      "  --size-limit limit    Message size limit in bytes (positive\n",
-      "                        integer); if message exceeds limit, diff is\n",
-      "                        omitted; if set to -1, diff is never sent\n",
-      "\n",
-      "This script supports a single repository with multiple projects,\n",
-      "where each project receives email only for commits that modify that\n",
-      "project.  A project is identified by using the -m command line\n",
-      "with a regular expression argument.  If a commit has a path that\n",
-      "matches the regular expression, then the entire commit matches.\n",
-      "Any of the following -h, -l, -r and -s command line options and\n",
-      "following email addresses are associated with this project.  The\n",
-      "next -m resets the -h, -l, -r and -s command line options and the\n",
-      "list of email addresses.\n",
-      "\n",
-      "To support a single project conveniently, the script initializes\n",
-      "itself with an implicit -m . rule that matches any modifications\n",
-      "to the repository.  Therefore, to use the script for a single\n",
-      "project repository, just use the other comand line options and\n",
-      "a list of email addresses on the command line.  If you do not want\n",
-      "a project that matches the entire repository, then use a -m with a\n",
-      "regular expression before any other command line options or email\n",
-      "addresses.\n";
-}
-
-# Return a new hash data structure for a new empty project that
-# matches any modifications to the repository.
-sub new_project
-{
-  return {email_addresses => [],
-          from_address    => '',
-          hostname        => '',
-          log_file        => '',
-          match_regex     => '.',
-          reply_to        => '',
-          subject_prefix  => ''};
-}
-
-# Start a child process safely without using /bin/sh.
-#
-# We take a parameter, $limit, which if greater than zero will limit the
-# amount we read -- this is a hack to avoid OOM errors.   If we return
-# $read_size == -1, we exceeded the limit.
-sub safe_read_from_pipe
-{
-  unless (@_)
-    {
-      croak "$0: safe_read_from_pipe passed no arguments.\n";
-    }
-
-  my $limit = shift @_;
-  my $pid = open(SAFE_READ, '-|');
-  unless (defined $pid)
-    {
-      die "$0: cannot fork: $!\n";
-    }
-  unless ($pid)
-    {
-      open(STDERR, ">&STDOUT")
-        or die "$0: cannot dup STDOUT: $!\n";
-      exec(@_)
-        or die "$0: cannot exec `@_': $!\n";
-    }
-  my @output;
-  my $read_size = 0;
-  while (<SAFE_READ>)
-    {
-      s/[\r\n]+$//;
-      $read_size += length;
-      if (($limit > 0) and ($read_size > $limit))
-      {
-        $read_size = -1;
-        @output = ("output size exceeds specified limit of " . $limit);
-        last;
-      }
-      push(@output, $_);
-    }
-  close(SAFE_READ);
-  my $result = $?;
-  my $exit   = $result >> 8;
-  my $signal = $result & 127;
-  my $cd     = $result & 128 ? "with core dump" : "";
-  if ($signal or $cd)
-    {
-      warn "$0: pipe from `@_' failed $cd: exit=$exit signal=$signal\n";
-    }
-  if (wantarray)
-    {
-      return ($result, $read_size, @output);
-    }
-  else
-    {
-      return $result;
-    }
-}
-
-# Use safe_read_from_pipe to start a child process safely and return
-# the output if it succeeded or an error message followed by the output
-# if it failed.  Returns number of bytes read and the output.
-sub read_from_process
-{
-  unless (@_)
-    {
-      croak "$0: read_from_process passed no arguments.\n";
-    }
-  my ($status, $read_size, @output) = &safe_read_from_pipe(@_);
-  if ($read_size >= 0 and $status)
-    {
-      return ("$0: `@_' failed with this output:", @output);
-    }
-  else
-    {
-      return ($read_size, @output);
-    }
-}