Develop and Download Open Source Software

Portal Application Laboratory

Browse CVS Repository

/[OSDN]/pal/CVSROOT/scripts/loginfo2mail.pl

Diff of /pal/CVSROOT/scripts/loginfo2mail.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by tigercat, Tue Jan 9 12:56:04 2007 UTC revision 1.2 by tigercat, Tue Jan 9 16:43:13 2007 UTC
# Line 27  Line 27 
27  # 2004-11-16 Changed mail-header: Return-path to Errors-To.  # 2004-11-16 Changed mail-header: Return-path to Errors-To.
28  # 2005-12-26 Fixed %{sVv} receiving issue.  # 2005-12-26 Fixed %{sVv} receiving issue.
29  # 2005-12-26 New feature: mail_from is set @domain, convert to $CVS_USER@domain.  # 2005-12-26 New feature: mail_from is set @domain, convert to $CVS_USER@domain.
30    # 2007-01-10 New feature: The account full name added into sender address.
31    
32    
33  use strict;  use strict;
# Line 38  use IO::File; Line 39  use IO::File;
39  $ENV{'PATH'} = "/usr/bin:/usr/sbin:/usr/lib:$ENV{'PATH'}";  $ENV{'PATH'} = "/usr/bin:/usr/sbin:/usr/lib:$ENV{'PATH'}";
40    
41  my $CMD_NAME ="cvs-$FindBin::Script";  my $CMD_NAME ="cvs-$FindBin::Script";
42  my $CMD_VERSION = "0.1.7.custom01";  my $CMD_VERSION = "0.1.7.custom02";
43    
44  # Options  # Options
45  # ======================================================================  # ======================================================================
# Line 168  foreach my $cvs_fileinfo (@cvs_fileinfo) Line 169  foreach my $cvs_fileinfo (@cvs_fileinfo)
169    
170  my $cvs_user = $ENV{'CVS_USER'};  my $cvs_user = $ENV{'CVS_USER'};
171  $cvs_user = getpwuid($EUID) if (!defined($cvs_user));  $cvs_user = getpwuid($EUID) if (!defined($cvs_user));
172    my $cvs_user_alias = (getpwnam($cvs_user))[6];
173  $cvs_user = $EUID if (!defined($cvs_user));  $cvs_user = $EUID if (!defined($cvs_user));
174    
175  # Make mail header  # Make mail header
# Line 186  if (defined($mail_return)) { Line 188  if (defined($mail_return)) {
188  }  }
189  if (defined($mail_from)) {  if (defined($mail_from)) {
190      if ($mail_from =~ m/^@/) {      if ($mail_from =~ m/^@/) {
191          $header .= "From: $cvs_user$mail_from\n";          $header .= "From: $cvs_user_alias<$cvs_user$mail_from>\n";
192      }      }
193      else {      else {
194          $header .= "From: $mail_from\n";          $header .= "From: $mail_from\n";
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help