Diff for /CVSROOT/loginfo.pl between versions 1.8 and 1.9

version 1.8, 2008/10/22 22:18:41 version 1.9, 2008/11/26 18:54:53
Line 25  my $cvsroot    = $ENV{CVSROOT}."/"; Line 25  my $cvsroot    = $ENV{CVSROOT}."/";
 # remove double trailing slash  # remove double trailing slash
 $cvsroot =~ s/\/\/$/\//;  $cvsroot =~ s/\/\/$/\//;
 my $cvsusers   = "/repository/CVSROOT/cvsusers";  my $cvsusers   = "/repository/CVSROOT/cvsusers";
   my $cvshost = "source.lon-capa.org";
   
 # get the id of this process group for use in figuring out  # get the id of this process group for use in figuring out
 # whether this is the last directory with checkins or not  # whether this is the last directory with checkins or not
Line 33  my $id = getpgrp(); Line 34  my $id = getpgrp();
 # the command line looks something like this for a normal commit:  # the command line looks something like this for a normal commit:
 #  ("user@example.com", "cvsuser",  #  ("user@example.com", "cvsuser",
 #   "module changedfile,1.1,1.2 addedfile,NONE,1.1 removedfile,1.1,NONE")  #   "module changedfile,1.1,1.2 addedfile,NONE,1.1 removedfile,1.1,NONE")
 my $mailfrom = shift;  my $mailto = shift;
 my $mailto = $mailfrom;  
 my $envaddr = $mailto;  my $envaddr = $mailto;
   
 my $cvsuser = shift;  my $cvsuser = shift;
Line 195  if (open FD, $cvsusers) { Line 195  if (open FD, $cvsusers) {
  close(FD);   close(FD);
 }  }
   
 $from ||= "$cvsuser <$mailfrom>";  $from ||= "$cvsuser <$cvsuser\@$cvshost>";
   
 # "Reply-to: $mailto\n".  # "Reply-to: $mailto\n".
 # "Date: ".localtime()."\n".  # "Date: ".localtime()."\n".

Removed from v.1.8  
changed lines
  Added in v.1.9


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>