diff options
author | Jeremy Kolb <jkolb@brandeis.edu> | 2005-05-15 09:24:59 +0000 |
---|---|---|
committer | Jeremy Kolb <jkolb@brandeis.edu> | 2005-05-15 09:24:59 +0000 |
commit | d1a72bd189c28cff7ccbb720bbb12350aa5609d9 (patch) | |
tree | ebeef3fa170b14342214d1822f4e7c6bcc904cb3 /CVSROOT | |
parent | c344553756a8cc0a22cf9ba7a7afa041a3898d5c (diff) |
more
Diffstat (limited to 'CVSROOT')
-rwxr-xr-x | CVSROOT/log_accum.pl | 35 | ||||
-rw-r--r-- | CVSROOT/loginfo | 3 |
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 |