Ignore:
Timestamp:
Dec 27, 2009, 5:43:50 AM (13 years ago)
Author:
andersk
Message:
Update commit-email.pl and commit-zephyr from upstream.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/locker/sbin/commit-email.pl

    r719 r1400  
    11#!/usr/bin/env perl
     2
     3# ====================================================================
     4# This script is deprecated.  The Subversion developers recommend
     5# using mailer.py for post-commit and post-revprop change
     6# notifications.  If you wish to improve or add features to a
     7# post-commit notification script, please do that work on mailer.py.
     8# See http://svn.collab.net/repos/svn/trunk/tools/hook-scripts/mailer .
     9# ====================================================================
    210
    311# ====================================================================
     
    1018# This script requires Subversion 1.2.0 or later.
    1119#
    12 # $HeadURL: http://svn.collab.net/repos/svn/trunk/tools/hook-scripts/commit-email.pl.in $
    13 # $LastChangedDate: 2008-04-01 13:19:34 -0400 (Tue, 01 Apr 2008) $
    14 # $LastChangedBy: glasser $
    15 # $LastChangedRevision: 30158 $
     20# $HeadURL: http://svn.collab.net/repos/svn/trunk/contrib/hook-scripts/commit-email.pl.in $
     21# $LastChangedDate: 2009-05-12 13:25:35 -0400 (Tue, 12 May 2009) $
     22# $LastChangedBy: blair $
     23# $LastChangedRevision: 37715 $
    1624#
    1725# ====================================================================
     
    558566    my @head;
    559567    my $formatted_date;
    560     if (defined $stdout)
     568    if ($stdout)
    561569      {
    562570        $formatted_date = strftime('%a %b %e %X %Y', localtime());
     
    753761    }
    754762
    755   my $openfork_available = $^O ne "MSWin32"; 
     763  my $openfork_available = $^O ne "MSWin32";
    756764  if ($openfork_available) # We can fork on this system.
    757765    {
     
    769777        }
    770778    }
    771   else  # Running on Windows.  No fork. 
     779  else  # Running on Windows.  No fork.
    772780    {
    773781      my @commandline = ();
    774782      my $arg;
    775      
     783
    776784      while ($arg = shift)
    777785        {
     
    780788          push(@commandline, $arg);
    781789        }
    782        
     790
    783791      # Now do the pipe.
    784792      open(SAFE_READ, "@commandline |")
Note: See TracChangeset for help on using the changeset viewer.