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". |