Changeset 1414 for branches/locker-dev/locker/sbin/commit-email.pl
- Timestamp:
- Jan 12, 2010, 11:55:27 PM (15 years ago)
- Location:
- branches/locker-dev/locker
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/locker-dev/locker
-
Property
svn:mergeinfo
set to
False
/trunk/locker merged eligible
-
Property
svn:mergeinfo
set to
False
-
branches/locker-dev/locker/sbin/commit-email.pl
r719 r1414 1 1 #!/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 # ==================================================================== 2 10 3 11 # ==================================================================== … … 10 18 # This script requires Subversion 1.2.0 or later. 11 19 # 12 # $HeadURL: http://svn.collab.net/repos/svn/trunk/ tools/hook-scripts/commit-email.pl.in $13 # $LastChangedDate: 200 8-04-01 13:19:34 -0400 (Tue, 01 Apr 2008) $14 # $LastChangedBy: glasser $15 # $LastChangedRevision: 3 0158$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 $ 16 24 # 17 25 # ==================================================================== … … 44 52 ###################################################################### 45 53 # Configuration section. 54 55 $ENV{'LC_ALL'} = 'en_US.UTF-8'; 46 56 47 57 # Sendmail path, or SMTP server address. … … 558 568 my @head; 559 569 my $formatted_date; 560 if ( defined$stdout)570 if ($stdout) 561 571 { 562 572 $formatted_date = strftime('%a %b %e %X %Y', localtime()); … … 753 763 } 754 764 755 my $openfork_available = $^O ne "MSWin32"; 765 my $openfork_available = $^O ne "MSWin32"; 756 766 if ($openfork_available) # We can fork on this system. 757 767 { … … 769 779 } 770 780 } 771 else # Running on Windows. No fork. 781 else # Running on Windows. No fork. 772 782 { 773 783 my @commandline = (); 774 784 my $arg; 775 785 776 786 while ($arg = shift) 777 787 { … … 780 790 push(@commandline, $arg); 781 791 } 782 792 783 793 # Now do the pipe. 784 794 open(SAFE_READ, "@commandline |")
Note: See TracChangeset
for help on using the changeset viewer.