summaryrefslogtreecommitdiff
path: root/CVSROOT
diff options
context:
space:
mode:
authorJeremy Kolb <jkolb@brandeis.edu>2005-05-15 09:24:59 +0000
committerJeremy Kolb <jkolb@brandeis.edu>2005-05-15 09:24:59 +0000
commitd1a72bd189c28cff7ccbb720bbb12350aa5609d9 (patch)
treeebeef3fa170b14342214d1822f4e7c6bcc904cb3 /CVSROOT
parentc344553756a8cc0a22cf9ba7a7afa041a3898d5c (diff)
more
Diffstat (limited to 'CVSROOT')
-rwxr-xr-xCVSROOT/log_accum.pl35
-rw-r--r--CVSROOT/loginfo3
2 files changed, 14 insertions, 24 deletions
diff --git a/CVSROOT/log_accum.pl b/CVSROOT/log_accum.pl
index a69377b..ebf38f5 100755
--- a/CVSROOT/log_accum.pl
+++ b/CVSROOT/log_accum.pl
@@ -6,7 +6,7 @@
# a directory. This script will group the lists of files by log
# message, and mail a single consolidated log message at the end of
# the commit.
-#
+#
# This file assumes a pre-commit checking program that leaves the
# names of the first and last commit directories in a temporary file.
#
@@ -276,6 +276,8 @@ sub change_summary {
}
&append_line($out, sprintf("%-13s%-12s%s", $rev, $delta, $rcsfile));
+ &append_line($out, sprintf("%s%s", "http://cvs.freedesktop.org/xcb/",
+ $rcsfile));
}
}
@@ -284,9 +286,10 @@ sub build_header {
local($header);
delete $ENV{'TZ'};
local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
- $header = sprintf("CVSROOT:\t%s\nModule name:\t%s\nChanges by:\t%s@%s\t%02d/%02d/%02d %02d:%02d:%02d",
+ $header = sprintf("CVSROOT:\t%s\nModule name:\t%s\nRepository:\t%s\nChanges by:\t%s@%s\t%02d/%02d/%02d %02d:%02d:%02d",
$cvsroot,
$modulename,
+ $dir,
$login, $hostdomain,
$year%100, $mon+1, $mday,
$hour, $min, $sec);
@@ -300,15 +303,9 @@ sub mail_notification {
$tagprinted = 0;
$fromrealname = (getpwuid($<))[6];
- $fromrealname =~ s/[,<>]/ /g;
- if ($sender ne "") {
- $fromline = "$fromrealname <$sender\@$fromdomain>";
- } else {
- $fromline = "$fromrealname <$login\@$fromdomain>";
- }
open(MAIL, "| $MAILER $mailto");
+ print MAIL "From: $fromrealname <$login\@$fromdomain>\n";
print MAIL "To: " . $mailto . "\n";
- print MAIL "From: " . $fromline . "\n";
if ($replyto ne '') {
print MAIL "Reply-To: " . $replyto . "\n";
}
@@ -353,19 +350,15 @@ $debug = 0;
$id = getpgrp(); # note, you *must* use a shell which does setpgrp()
$state = $STATE_NONE;
$login = getlogin || (getpwuid($<))[0] || "nobody";
-# this works good enough for us on Linux systems (i.e. fd.o) -daniels
-chop($hostname = `hostname --fqdn`);
-#chop($domainname = `domainname`);
-#if ($domainname !~ '^\..*') {
-# $domainname = '.' . $domainname;
-#}
+chop($hostname = `hostname`);
+chop($domainname = `domainname`);
+if ($domainname !~ '^\..*') {
+ $domainname = '.' . $domainname;
+}
-#$hostdomain = $hostname . $domainname;
+$hostdomain = $hostname . $domainname;
-#$fromdomain = "$hostdomain";
-$fromdomain = "$hostname";
-$hostdomain = "$hostname";
-$sender = "";
+$fromdomain = "$hostdomain";
chop($osname = `uname -sr`);
chop($cvsvers = `cvs -v | fgrep client`);
@@ -401,8 +394,6 @@ while (@ARGV) {
$modulename = shift @ARGV;
} elsif ($arg eq '-F') {
$fromdomain = shift @ARGV;
- } elsif ($arg eq '-S') {
- $sender = shift @ARGV;
} elsif ($arg eq '-s') {
$do_status = 0;
} elsif ($arg eq '-w') {
diff --git a/CVSROOT/loginfo b/CVSROOT/loginfo
index ca0754b..08fde8b 100644
--- a/CVSROOT/loginfo
+++ b/CVSROOT/loginfo
@@ -25,7 +25,6 @@
# or
#DEFAULT (echo ""; id; echo %{sVv}; date; cat) >> $CVSROOT/CVSROOT/commitlog
#DEFAULT $CVSROOT/CVSROOT/logmail xcb-commit@lists.freedesktop.org %{sVv}
-#ALL /usr/local/bin/ciabot_cvs.pl %p %{s} %n $USER xcb
+ALL /usr/local/bin/ciabot_cvs.pl %p %{s} %n $USER xcb
#DEFAULT $CVSROOT/CVSROOT/syncmail -u %{sVv} xcb-commit@lists.freedesktop.org
DEFAULT $CVSROOT/CVSROOT/log_accum.pl -r -s -h -F lists.freedesktop.org -m xcb-commit@lists.freedesktop.org -R xcb-commit@lists.freedesktop.org %{sVv}
-ALL /usr/local/bin/ciabot_cvs.pl %p %{s} %n $USER xcb