[SithNet-Patches] [CVS] Module CVSROOT: Change committed
Brought to you by:
darthsidious_
Menu
▾
▴
[SithNet-Patches] [CVS] Module CVSROOT: Change committed
|
From: Tim I. <dar...@us...> - 2003-07-29 21:21:55
|
Committer : Tim Ireland <dar...@us...>
CVSROOT : /cvsroot/sithnet-dev
Module : CVSROOT
Commit time: 2003-07-29 19:03:31 UTC
Modified files:
checkoutlist
Removed files:
all.template maillist new_commit_prep new_log_accum usermap
Log message:
Removed [CVS] Email commit script because it sucked
---------------------- diff included ----------------------
Index: CVSROOT/all.template
diff -u CVSROOT/all.template:1.1 CVSROOT/all.template:removed
--- CVSROOT/all.template:1.1 Wed Jul 9 15:38:41 2003
+++ CVSROOT/all.template Tue Jul 29 12:03:31 2003
@@ -1,3 +0,0 @@
-Author:
-Log message:
-
Index: CVSROOT/checkoutlist
diff -u CVSROOT/checkoutlist:1.4 CVSROOT/checkoutlist:1.5
--- CVSROOT/checkoutlist:1.4 Tue Jul 29 11:46:22 2003
+++ CVSROOT/checkoutlist Tue Jul 29 12:03:21 2003
@@ -12,10 +12,5 @@
#
# comment lines begin with '#'
-all.template Unable to check out template.
avail Unable to use CVS ACLs.
cvs_acls Unable to use CVS ACLs.
-new_commit_prep Won't be able to do mail logging.
-new_log_accum Won't be able to do mail logging.
-maillist Won't be able to do mail logging.
-usermap Won't be able to do mail logging.
Index: CVSROOT/maillist
diff -u CVSROOT/maillist:1.1 CVSROOT/maillist:removed
--- CVSROOT/maillist:1.1 Tue Jul 29 11:46:23 2003
+++ CVSROOT/maillist Tue Jul 29 12:03:31 2003
@@ -1,20 +0,0 @@
-# The "maillist" file is used to control commit log mails.
-# The (space-separated) addresses on the right will be added
-# to the list of addresses mail will be sent to. Using -m
-# on the new_logaccum command line will override the contents
-# of this file.
-#
-# The first entry on a line is a regular expression which is tested
-# against the module that the change is being committed to, relative
-# to the $CVSROOT. For the each match that is found, the remainder
-# of the line is the list of email addresses. Note this regular
-# expression is compared only against the *first* component of the
-# path!
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name "ALL" appears as a regular expression it is always used
-# in addition to the first matching regex or "DEFAULT".
-
-DEFAULT sit...@li...
Index: CVSROOT/new_commit_prep
diff -u CVSROOT/new_commit_prep:1.2 CVSROOT/new_commit_prep:removed
--- CVSROOT/new_commit_prep:1.2 Tue Jul 29 11:46:23 2003
+++ CVSROOT/new_commit_prep Tue Jul 29 12:03:31 2003
@@ -1,126 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Copyright (C) 2000,2002 by Kevin L. Mitchell <kl...@mi...>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-# 02111-1307, USA.
-#
-# Script to store the last visited directory for newlogaccum.pl.
-#
-# $Id: new_commit_prep,v 1.2 2003/07/29 18:46:23 darthsidious_ Exp $
-
-use strict;
-
-use vars qw($debug);
-
-# Don't touch this; use the -d command line option
-$debug = 0;
-
-# Debugging output
-sub debug (@) {
- print STDERR "$0: ", @_
- if ($debug);
-}
-
-# This routine removes everything in a directory
-sub clear_dir {
- my ($dir) = @_;
- my ($file);
-
- opendir(DIR, $dir) || die "Cannot clear directory $dir: $!";
- while ($file = readdir(DIR)) {
- next
- if ($file eq "." || $file eq "..");
-
- $file = "$dir/$file";
-
- if (-d $file) {
- # It's a directory, recurse into it, then delete it.
- clear_dir($file);
- rmdir($file);
- } else {
- # It's a file, delete it.
- unlink($file);
- }
- }
- closedir(DIR);
-}
-
-# This routine prepares a temporary directory, hopefully in a secure
-# fashion; it uses the process group to make secondary programs be able
-# to find it.
-sub tmpdir (;$) {
- my ($clear) = @_;
- my ($pgrp, $own, $mode, $tmpdir);
-
- $pgrp = getpgrp();
-
- die "Don't run $0 setuid!"
- unless ($< == $>);
-
- # Decide on the directory name, using various environment variables
- $tmpdir = ($ENV{TMPDIR} || $ENV{TMP} || $ENV{TEMP} || "/tmp") .
- "/.#cvs.$pgrp";
-
- # Doesn't exist, but we can't create it...
- die "Can't create temporary directory $tmpdir: $!"
- unless (-e $tmpdir || mkdir($tmpdir, 0700));
-
- die "Temporary directory $tmpdir is not a directory"
- unless (-d $tmpdir);
-
- # Check ownership and permissions
- (undef, undef, $mode, undef, $own, undef) = stat($tmpdir);
-
- die "Temporary directory $tmpdir not owned by $< (owned by $own)"
- unless ($own == $<);
-
- die "Temporary directory $tmpdir group-writable"
- if ($mode & 0020);
- die "Temporary directory $tmpdir other-writable"
- if ($mode & 0002);
-
- # If we're supposed to clear the directory, do so...
- clear_dir($tmpdir)
- if ($clear);
-
- return $tmpdir;
-}
-
-# This routine writes a single line to a file
-sub write_line ($$) {
- my ($fname, $line) = @_;
-
- debug "Writing line \"$line\" to \"$fname\"...\n";
-
- open(FILE, ">$fname") || die "Cannot open file $fname for writing";
- print FILE "$line\n";
- close(FILE);
-}
-
-# Create and empty the temporary directory
-my ($tmpdir) = (tmpdir(1));
-
-# Set debugging if necessary
-if ($ARGV[0] eq "-d") {
- shift(@ARGV);
- $debug++;
-}
-
-# Log command line
-debug "options \"", join("\" \"", @ARGV), "\"\n";
-
-# Store the directory name
-write_line("$tmpdir/lastdir", shift(@ARGV));
Index: CVSROOT/new_log_accum
diff -u CVSROOT/new_log_accum:1.3 CVSROOT/new_log_accum:removed
--- CVSROOT/new_log_accum:1.3 Tue Jul 29 11:46:23 2003
+++ CVSROOT/new_log_accum Tue Jul 29 12:03:31 2003
@@ -1,929 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Copyright (C) 2000,2002 by Kevin L. Mitchell <kl...@mi...>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-# 02111-1307, USA.
-#
-# Script to accumulate log messages for an entire tree and send them along
-# with the diffs; deals correctly with all manner of branching (I hope)
-#
-# $Id: new_log_accum,v 1.3 2003/07/29 18:46:23 darthsidious_ Exp $
-
-use strict;
-
-use vars qw($MAILER $CVS $debug $maillist $usermap);
-
-# Set this to the full path of a mailer that takes -s <subject> and a list
-# of email addresses as arguments...
-$MAILER = "/bin/mail";
-
-# Set this to the path of the CVS binary responsible for this tree...
-$CVS = "/usr/bin/cvs";
-
-# Don't touch this; use the -d command line option
-$debug = 0;
-
-# Don't touch this, just create (or delete) the file
-$maillist = "$ENV{CVSROOT}/CVSROOT/maillist";
-
-# Expand usernames to email addresses based on a map file?
-$usermap = "$ENV{CVSROOT}/CVSROOT/usermap";
-
-use POSIX qw(setsid);
-
-# Debugging output
-sub debug (@) {
- my (@args) = @_;
-
- if ($args[0] eq "-np") {
- shift(@args);
- } else {
- unshift(@args, "$0: ");
- }
-
- print STDERR @args
- if ($debug);
-}
-
-# We have to dissociate from our parent, so that the CVS commit can
-# complete, before we try to extract the diffs
-sub daemonize {
- debug "Daemonizing...";
- defined(my $pid = fork()) || die "Can't fork: $!";
- exit(0)
- if $pid;
- unless ($debug) {
- open(STDIN, "</dev/null");
- open(STDOUT, ">/dev/null");
- open(STDERR, ">&STDOUT");
- for (my $i = 2; $i < 255; $i++) {
- POSIX::close($i);
- }
- }
- chdir("/");
- setsid() || die "Can't start a new session: $!";
- debug "-np", "Done!\n";
-}
-
-# Constants used in the FSM below for parsing the log message
-sub STATE_NONE { 0 }
-sub STATE_MODIFIED { 1 }
-sub STATE_ADDED { 2 }
-sub STATE_REMOVED { 3 }
-sub STATE_LOG1 { 4 }
-sub STATE_LOG2 { 5 }
-
-# borrowed from cvs2cl.pl -- Let's have our usermap in here also :P~
-sub maybe_read_usermap ()
-{
- my %expansions;
-
- if ($usermap)
- {
- open (MAPFILE, "<$usermap")
- or die ("Unable to open $usermap ($!)");
-
- while (<MAPFILE>)
- {
- next if /^\s*#/; # Skip comment lines.
- next if not /:/; # Skip lines without colons.
-
- # It is now safe to split on ':'.
- my ($username, $expansion) = split ':';
- chomp $expansion;
- $expansion =~ s/^'(.*)'$/$1/;
- $expansion =~ s/^"(.*)"$/$1/;
-
- # If it looks like the expansion has a real name already, then
- # we toss the username we got from CVS log. Otherwise, keep
- # it to use in combination with the email address.
- if ($expansion =~ /^\s*<{0,1}\S+@.*/) {
- # Also, add angle brackets if none present
- if (! ($expansion =~ /<\S+@\S+>/)) {
- $expansions{$username} = "$username <$expansion>";
- }
- else {
- $expansions{$username} = "$username $expansion";
- }
- }
- else {
- $expansions{$username} = $expansion;
- }
- }
-
- close (MAPFILE);
- }
-
- return %expansions;
-}
-
-# This routine removes everything in a directory
-sub clear_dir {
- my ($dir) = @_;
- my ($file);
-
- opendir(DIR, $dir) || die "Cannot clear directory $dir: $!";
- while ($file = readdir(DIR)) {
- next
- if ($file eq "." || $file eq "..");
-
- $file = "$dir/$file";
-
- if (-d $file) {
- # It's a directory, recurse into it, then delete it.
- clear_dir($file);
- rmdir($file);
- } else {
- # It's a file, delete it.
- unlink($file);
- }
- }
- closedir(DIR);
-}
-
-# This routine prepares a temporary directory, hopefully in a secure
-# fashion; it uses the process group to make secondary programs be able
-# to find it.
-sub tmpdir (;$) {
- my ($clear) = @_;
- my ($pgrp, $own, $mode, $tmpdir);
-
- $pgrp = getpgrp();
-
- die "Don't run $0 setuid!"
- unless ($< == $>);
-
- # Decide on the directory name, using various environment variables
- $tmpdir = ($ENV{TMPDIR} || $ENV{TMP} || $ENV{TEMP} || "/tmp") .
- "/.#cvs.$pgrp";
-
- # Doesn't exist, but we can't create it...
- die "Can't create temporary directory $tmpdir: $!"
- unless (-e $tmpdir || mkdir($tmpdir, 0700));
-
- die "Temporary directory $tmpdir is not a directory"
- unless (-d $tmpdir);
-
- # Check ownership and permissions
- (undef, undef, $mode, undef, $own, undef) = stat($tmpdir);
-
- die "Temporary directory $tmpdir not owned by $< (owned by $own)"
- unless ($own == $<);
-
- die "Temporary directory $tmpdir group-writable"
- if ($mode & 0020);
- die "Temporary directory $tmpdir other-writable"
- if ($mode & 0002);
-
- # If we're supposed to clear the directory, do so...
- clear_dir($tmpdir)
- if ($clear);
-
- return $tmpdir;
-}
-
-# Routine to remove the temporary directory when done
-sub cleanup_dir ($) {
- # If we're debugging, we may want to look at the contents...
- return
- if ($debug);
-
- clear_dir($_[0]);
- rmdir($_[0]);
-}
-
-# Retrieve a single line from a specified file
-sub get_line ($) {
- my ($fname) = @_;
-
- open(FILE, "<$fname") || die "Cannot open file $fname for reading";
- my $line = <FILE>;
- close(FILE);
-
- # Chomp off the \n
- chomp $line;
-
- return $line;
-}
-
-# Routine that only allows one value to be pushed on the array;
-# implemented by making the first element of the array a hash-reference.
-# When we add a new value, we also increment the count of an element in
-# the hash with the key being the array value...
-sub push_once (\@@) {
- my ($array, @values) = @_;
-
- # If the array is empty, create our hash ref
- push @{$array}, {}
- if (@{$array} == 0);
-
- foreach my $value (@values) {
- push @{$array}, $value
- if (!exists($array->[0]{$value}));
-
- $array->[0]{$value}++;
- }
-
- return @{$array} - 1;
-}
-
-# Load a list of regular expressions and email addresses
-sub load_maillist ($) {
- my ($file) = @_;
- my ($mmap) = ({
- DEFAULT => [],
- ALL => [],
- re => {},
- });
-
- # Don't load the list if it doesn't exist
- return undef
- unless (-e $file);
-
- # Open the map file
- open(MAILFILE, "<$file");
- while (<MAILFILE>) {
- chomp;
-
- s/\#.*$//;
- next
- if (/^\s*$/);
-
- my ($re, @addrs) = split;
-
- # DEFAULT and ALL are treated specially
- if ($re eq "DEFAULT" || $re eq "ALL") {
- push_once(@{$mmap->{$re}}, @addrs);
- } else {
- $mmap->{re}{$re} = []
- unless (exists($mmap->{re}{$re}));
-
- # Remember the associated email addresses
- push_once(@{$mmap->{re}{$re}}, @addrs);
- }
- }
- close(MAILFILE);
-
- return $mmap;
-}
-
-# Given the module's name (and a mailmap structure), return the necessary
-# email addresses
-sub make_maillist ($$@) {
- my ($mmap, $module, @inaddrs) = @_;
- my ($matches, @addrs) = 0;
-
- # Return defaults passed in
- return @inaddrs
- unless (defined($mmap));
-
- # Everything in ALL gets a message
- push_once(@addrs, @{$mmap->{ALL}}[1..$#{$mmap->{ALL}}]);
- # Now check each pattern one by one
- foreach my $pat (keys(%{$mmap->{re}})) {
- if ($module =~ /$pat/) {
- $matches++;
- push_once(@addrs, @{$mmap->{re}{$pat}}[1..$#{$mmap->{re}{$pat}}]);
- }
- }
- # If no patterns matched, push on the defaults
- push_once(@addrs, @{$mmap->{DEFAULT}}[1..$#{$mmap->{DEFAULT}}])
- unless ($matches > 0);
-
- # Return the defaults if we came up with nothing
- return @inaddrs
- unless (@addrs > 0);
-
- # Return just the addresses
- return @addrs[1..$#addrs];
-}
-
-# Filter //, /./, and remove leading ./ or / from filenames
-sub fname_filter ($) {
- my ($fname) = @_;
-
- $fname =~ s,//,/,g;
- $fname =~ s,/\./,/,g;
- $fname =~ s,^\.?/,,g;
-
- return $fname;
-}
-
-# Store file data in a temporary file
-sub names_to_file ($$@) {
- my ($fname, $dir, @names) = @_;
-
- if (@names > 0) {
- open(FILE, ">>$fname") || die "Cannot open file $fname for appending";
-
- # Store the directory data
- print FILE "D $dir\n";
-
- foreach my $name (@names) {
- # Mark record as a file...
- print FILE "F ";
-
- # Store the tag, if there is one...
- print FILE "$name->{tag}"
- if (defined($name->{tag}));
-
- # Then store old revision, new revision, and file name
- print FILE ":$name->{old}:$name->{new}:$name->{file}\n";
- }
-
- close(FILE);
- }
-}
-
-# Retrieve file data from temporary file; updates branch tags with what it
-# reads
-sub file_to_names (\@$) {
- my ($btags, $fname) = @_;
- my ($dir) = (undef);
- my (@names) = ();
-
- debug "Reading file names from $fname...\n";
-
- # We may not have, say, added a file in this subdirectory...
- return ()
- if (!-e $fname);
-
- open(FILE, "<$fname");
- while(<FILE>) {
- chomp;
-
- # Get record type...
- my ($type, $data) = split(' ', $_, 2);
-
- # ok, it's a directory, remember that...
- if ($type eq "D") {
- $dir = $data;
-
- debug "Read directory $dir\n";
-
- next;
- }
-
- debug "Read file $data\n";
-
- # Get all the information about the file
- my ($tag, $old, $new, $file) = split(':', $data);
-
- # and store it all
- push(@names, { tag => $tag, old => $old, new => $new, file => $file,
- dir => $dir, name => fname_filter("$dir/$file") });
-
- # Remember the tags...
- push_once(@{$btags}, $tag)
- if (defined($tag) && $tag ne "");
- }
- close(FILE);
-
- return @names;
-}
-
-# Create a text-formatted list of names
-sub name_to_list (\@@) {
- my ($btags, @names) = @_;
- my (@nlist, @nline) = ();
-
- debug "Tags:", join(':', @{$btags}), "\n";
-
- # We group them by tag
- foreach my $tag ("", @{$btags}[1..$#{$btags}]) {
- debug "Processing tag $tag...\n";
-
- @nlist = ();
-
- # Get a list of files by the tag...
- foreach my $name (@names) {
- debug "Processing $name->{file}...\n";
-
- next
- if ($name->{tag} ne $tag);
-
- debug "Pushing $name->{name} on \@nlist...\n";
- push(@nlist, $name->{name});
- }
-
- # If the tag is not the empty string, list the tag...
- push(@nline, " Tag: $tag", " ")
- if ($tag ne "");
-
- # Now list each file name
- foreach my $name (@nlist) {
- # indent if we run past the end of line limit
- push(@nline, " ")
- if (@nline == 0 || ($nline[$#nline] ne " " &&
- length($nline[$#nline]) + length($name) + 1 > 70));
-
- # add the file name to the list
- debug "Adding $name to \@nline...\n";
- $nline[$#nline] .= " $name";
- }
- }
-
- return @nline;
-}
-
-# write the log message to a temporary file
-sub write_log ($@) {
- my ($fname, @text) = @_;
-
- open(FILE, ">$fname") || die "Cannot open file $fname for writing";
- print FILE join("\n", @text), "\n";
- close(FILE);
-}
-
-# load module list
-sub load_modules ($) {
- my ($tmpdir) = @_;
- my (@modlist);
-
- debug "Reading modules from $tmpdir/modules...\n";
-
- # We may not have, say, recorded any modules yet
- return ()
- if (!-e "$tmpdir/modules");
-
- open(MODLIST, "<$tmpdir/modules");
- push_once(@modlist, map { chomp; $_ } <MODLIST>);
- close(MODLIST);
-
- return @modlist;
-}
-
-# save module list
-sub save_modules (\@$) {
- my ($modlist, $tmpdir) = @_;
-
- debug "Writing modules out to $tmpdir/modules...\n";
-
- open(MODLIST, ">$tmpdir/modules");
- print MODLIST join("\n", @{$modlist}[1..$#{$modlist}]), "\n";
- close(MODLIST);
-}
-
-# Build the header of the commit message: CVSROOT, module name, any
-# branch tags, and the commit time
-sub build_header ($@) {
- my ($module, @branch_tags) = @_;
- my (@text);
- my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time());
- my ($user) = (getpwuid($<));
- my %usermap;
-
- %usermap = &maybe_read_usermap ();
-
- if (defined ($usermap{$user}) and $usermap{$user}) {
- $user = $usermap{$user};
- }
-
- push(@text, "Committer : $user");
- push(@text, "CVSROOT : $ENV{CVSROOT}");
- push(@text, "Module : $module");
- push(@text, "Branch tags: " . join(' ', @branch_tags[1..$#branch_tags]))
- if (@branch_tags > 0);
- push(@text, sprintf("Commit time: %04d-%02d-%02d %02d:%02d:%02d UTC",
- $year + 1900, $mon + 1, $mday, $hour, $min, $sec));
-
- return @text, "";
-}
-
-# Send the mail message
-sub send_mail (\@$@) {
- my ($mailto, $subject, @text) = @_;
-
- debug("Sending mail, subject \"$subject\", to ", join(' ', @{$mailto}),
- "\n");
- debug("-np", "> ", join("\n> ", @text), "\n");
-
- # Execute our mailer...
- my $pid = open(MAIL, "|-");
-
- exec($MAILER, '-s', $subject, @{$mailto})
- unless ($pid);
-
- print MAIL join("\n", @text), "\n";
- close(MAIL);
-}
-
-# Generates the diffs to include
-sub diff_files ($@) {
- my ($module, @files) = @_;
- my (@text);
-
- foreach my $file (@files) {
- debug "Diffing file $file->{name} (module $module)\n";
-
- # Run cvs rdiff, extracting a diff between the old and new versions
- my $pid = open(DIFF, "-|");
-
- exec($CVS, '-Q', 'rdiff', '-u', '-r', $file->{old}, '-r', $file->{new},
- "$module/$file->{name}")
- unless ($pid);
-
- # Chomp and store all the text...
- push(@text, map { chomp; $_ } <DIFF>);
-
- close(DIFF);
- }
-
- return @text;
-}
-
-# Read in and process log message
-sub read_log (\%\@\@\@\@\@) {
- my ($fversions, $modified, $added, $removed, $log, $branch_tags) = @_;
- my ($state, $tag) = (STATE_NONE, undef);
-
- while (<STDIN>) {
- chomp;
-
- debug "State $state, line:$_\n";
-
- # Ignore empty space at the beginning of the log message
- next
- if ($state == STATE_LOG1 && /^\s*$/);
-
- # We're done ignoring empty space
- if ($state == STATE_LOG1) {
- $state = STATE_LOG2;
- }
-
- if ($state == STATE_LOG2) {
- # Don't modify the lines at all if we're processing the log message
- push(@{$log}, $_);
- next;
- } else {
- # Strip out leading and trailing space
- s/^\s*(.*?)\s*$/$1/;
- }
-
- if (/^Modified Files/) {
- # Collect list of modified files
- debug "State switching to STATE_MODIFIED\n";
-
- $state = STATE_MODIFIED;
- $tag = undef;
-
- next;
-
- } elsif (/^Added Files/) {
- # Collect list of added files
- debug "State switching to STATE_ADDED\n";
-
- $state = STATE_ADDED;
- $tag = undef;
-
- next;
-
- } elsif (/^Removed Files/) {
- # Collect list of removed files
- debug "State switching to STATE_REMOVED\n";
-
- $state = STATE_REMOVED;
- $tag = undef;
-
- next;
-
- } elsif (/^Log Message/) {
- # Collect log message
- debug "State switching to STATE_LOG1\n";
-
- $state = STATE_LOG1;
- $tag = undef;
-
- next;
-
- } elsif (/^Revision\/Branch/) {
- # Parse old-style Revision/Branch field
- debug "Found a branch tag\n";
-
- /^[^:]+:\s*(.*)/;
-
- push_once(@{$branch_tags}, $1);
-
- warn "Tag == $tag"
- if (defined($tag));
-
- next;
- }
-
- # Ignore the stuff at the top of the commit report
- next
- if ($state == STATE_NONE);
-
- if (/^Tag:\s*(.*)$/) {
- # Remember the tag
- debug "Setting tag to $1\n";
- $tag = $1;
- next;
- }
-
- my (@tfiles) = ();
-
- # Find the file in our command line list of files
- foreach my $file (split) {
- die "Nothing known about file $file!"
- unless (exists($fversions->{$file}));
-
- push @tfiles, {
- file => $file,
- tag => $tag,
- old => $fversions->{$file}{old},
- new => $fversions->{$file}{new},
- };
- }
-
- # Store the file list in the correct array
- push(@{$modified}, @tfiles)
- if ($state == STATE_MODIFIED);
-
- push(@{$added}, @tfiles)
- if ($state == STATE_ADDED);
-
- push(@{$removed}, @tfiles)
- if ($state == STATE_REMOVED);
- }
-
- # Remove trailing blank lines from the log message
- while (@{$log} > 0 && $log->[$#{$log}] =~ /^\s*$/) {
- pop(@{$log});
- }
-}
-
-# Build and send message for a new directory
-sub send_newdir ($$\@\@@) {
- my ($module, $dir, $log, $branch_tags, @mailto) = @_;
- my (@text) = ();
-
- # If there was a sticky tag for the directory, make it a branch tag
- if ($log->[$#{$log}] =~ /^--> Using per-directory sticky tag \`(.*)\'$/) {
- push_once(@{$branch_tags}, $1);
- pop(@{$log});
- }
-
- # Build the message...
- push(@text, build_header($module, @{$branch_tags}));
- push(@text, "Log message:", "", @{$log});
-
- # and send it (synchronously)
- send_mail(@mailto, "[CVS] Module $module: New directory $dir", @text);
-}
-
-# Build and send message for an import
-sub send_import ($$\@\@@) {
- my ($module, $dir, $log, $branch_tags, @mailto) = @_;
- my (@text) = ();
-
- # Build the message...
- push(@text, build_header($module, @{$branch_tags}));
- push(@text, "Log message:", "", @{$log});
-
- # and send it (synchronously)
- send_mail(@mailto, "[CVS] Module $module: Imported $dir", @text);
-}
-
-# Find log file matching our log
-sub find_logfile ($$\@) {
- my ($module, $tmpdir, $log) = @_;
- my ($i);
-
- debug "Searching for log file index...";
-
- for ($i = 0; ; $i++) {
- my (@text);
-
- # found one that doesn't exist...
- last
- if (!-e "$tmpdir/mod.$module/logfile.$i");
-
- # read in the log file
- open(FILE, "<$tmpdir/mod.$module/logfile.$i");
- push(@text, map { chomp; $_ } <FILE>);
- close(FILE);
-
- # If the log file was empty, use it
- last
- if (@text == 0);
-
- # If the log messages are identical, use that
- last
- if (join(' ', @{$log}) eq join(' ', @text));
- }
-
- debug "-np", "$tmpdir/mod.$module/logfile.$i\n";
-
- return $i;
-}
-
-sub send_commit ($$@) {
- my ($module, $tmpdir, @mailto) = @_;
- my ($i, @text, @modified, @added, @removed, @files, @branch_tags);
-
- for ($i = 0; ; $i++) {
- # No more log files
- last
- if (!-e "$tmpdir/mod.$module/logfile.$i");
-
- # read modified list and list all modified files if non-empty
- @modified = file_to_names(@branch_tags,
- "$tmpdir/mod.$module/modified.$i");
- push(@text, "Modified files:", name_to_list(@branch_tags, @modified),
- "")
- if (@modified > 0);
-
- # read added list and list all added files if non-empty
- @added = file_to_names(@branch_tags, "$tmpdir/mod.$module/added.$i");
- push(@text, "Added files:", name_to_list(@branch_tags, @added), "")
- if (@added > 0);
-
- # read removed list and list all removed files if non-empty
- @removed = file_to_names(@branch_tags,
- "$tmpdir/mod.$module/removed.$i");
- push(@text, "Removed files:", name_to_list(@branch_tags, @removed), "")
- if (@removed > 0);
-
- # read and insert the log message
- open(FILE, "<$tmpdir/mod.$module/logfile.$i");
- push(@text, "Log message:", "");
- push(@text, map { chomp; $_ } <FILE>);
- push(@text, "");
- close(FILE);
-
- # remember all the files we looked at
- push(@files, @modified, @added, @removed);
- }
-
- # Now that name_to_list has rebuilt our list of branch tags, we can build
- # the header and prepend it to the message
- unshift(@text, build_header($module, @branch_tags));
-
- # sort the files out for our diff
- @files = sort { $a->{name} cmp $b->{name} } @files;
-
- # add the diff...
- push(@text, "---------------------- diff included ----------------------");
- push(@text, diff_files($module, @files));
- push(@text, "----------------------- End of diff -----------------------");
-
- # Now send the mail unless @text contains ChangeLog
- send_mail(@mailto, "[CVS] Module $module: Change committed", @text);
-}
-
-# Find the tmp directory
-my ($tmpdir) = (tmpdir());
-
-my (@mailto) = ();
-my (@files) = ();
-my (@path) = ();
-my ($module, $repdir, $dir, $mailmap) = (undef, undef, undef, undef);
-
-# Process command line arguments
-while (@ARGV > 0) {
- my ($arg) = (shift(@ARGV));
-
- if ($arg eq '-d') {
- # Turn on debugging
- $debug++;
- } elsif ($arg eq '-m') {
- # An address to mail the notification to
- die "Argument for -m missing"
- unless (@ARGV > 0);
-
- push(@mailto, shift(@ARGV));
- } else {
- # the list of filenames passed by CVS--you *must* use %{sVv}!
- die "Too many arguments!"
- unless (@files == 0);
-
- @files = split(" ", $arg);
- }
-}
-
-$mailmap = load_maillist($maillist)
- unless (@mailto > 0);
-
-die "Nobody to mail to"
- unless (@mailto > 0 || defined($mailmap));
-
-die "No files to process"
- unless (@files > 1);
-
-# The repository directory
-$repdir = shift(@files);
-
-# break it appart...
-@path = split("/", $repdir);
-
-# Now we know the module name, if it wasn't explicitly set
-$module = $path[0];
-
-# Figure out what our directory is
-if (@path == 1) {
- $dir = ".";
-} else {
- $dir = join("/", @path[1..$#path]);
-}
-
-# append a / to it...
-$dir .= "/";
-
-debug "module = $module\n";
-debug "dir = $dir\n";
-debug "path = ", join(":", @path), "\n";
-debug "files = ", join(":", @files), "\n";
-debug "tmpdir = $tmpdir\n";
-
-my (%fversions);
-
-# Unless its a new directory or imported sources, create file records
-unless (defined($files[1]) && defined($files[2]) &&
- (($files[1] eq "New" && $files[2] eq "directory") ||
- ($files[1] eq "Imported" && $files[2] eq "sources"))) {
-
- foreach my $fname (@files) {
- # You *must* use %{sVv} in the call in loginfo!
- die "Invalid filenames"
- unless ($fname =~ /^(.*),([0-9.]+|NONE),([0-9.]+|NONE)$/);
-
- $fversions{$1} = {
- old => ($2 eq "NONE" ? "0" : $2),
- new => ($3 eq "NONE" ? "0" : $3),
- };
- }
-}
-
-my (@modules) = load_modules($tmpdir);
-push_once(@modules, $module);
-save_modules(@modules, $tmpdir);
-
-die "Can't create per-module directory $tmpdir/mod.$module: $!"
- unless (-e "$tmpdir/mod.$module" || mkdir("$tmpdir/mod.$module", 0700));
-
-die "Per-module directory $tmpdir/mod.$module is not a directory"
- unless (-d "$tmpdir/mod.$module");
-
-my (@modified, @added, @removed, @log, @branch_tags);
-
-read_log(%fversions, @modified, @added, @removed, @log, @branch_tags);
-
-# If a new directory was added, we're done...
-if (defined($files[1]) && defined($files[2]) &&
- $files[1] eq "New" && $files[2] eq "directory") {
- debug "Sending log message for new directory $dir\n";
- send_newdir($module, $dir, @log, @branch_tags,
- make_maillist($mailmap, $module, @mailto));
-} elsif (defined($files[1]) && defined($files[2]) &&
- $files[1] eq "Imported" && $files[2] eq "sources") {
- debug "Sending log message for new import $dir\n";
- send_import($module, $dir, @log, @branch_tags,
- make_maillist($mailmap, $module, @mailto));
-} else {
- my $i = find_logfile($module, $tmpdir, @log);
-
- # Store modified, added, and removed file lists, along with the log message
- names_to_file("$tmpdir/mod.$module/modified.$i", $dir, @modified);
- names_to_file("$tmpdir/mod.$module/added.$i", $dir, @added);
- names_to_file("$tmpdir/mod.$module/removed.$i", $dir, @removed);
- write_log("$tmpdir/mod.$module/logfile.$i", @log);
-
- # Now check to see if we're at the end of our rope
- my ($lastdir) = (get_line("$tmpdir/lastdir"));
-
- debug "Checking $ENV{CVSROOT}/$repdir against lastdir $lastdir\n";
-
- # Nope, exit instead of sending a message
- exit(0)
- if ($lastdir ne "$ENV{CVSROOT}/$repdir");
-
- debug "At last, we've reached the end\n";
-
- # We have to daemonize and sleep so that there isn't any lock hanging
- # around when we get to the cvs rdiff below...
- daemonize();
- sleep(10);
-
- # Send a mail for each module involved
- foreach my $mod (@modules[1..$#modules]) {
- debug "Sending log message for module $mod\n";
- send_commit($mod, $tmpdir, make_maillist($mailmap, $mod, @mailto));
- }
-}
-
-# and clean up after ourselves
-cleanup_dir($tmpdir);
\ No newline at end of file
Index: CVSROOT/usermap
diff -u CVSROOT/usermap:1.2 CVSROOT/usermap:removed
--- CVSROOT/usermap:1.2 Tue Jul 15 17:16:07 2003
+++ CVSROOT/usermap Tue Jul 29 12:03:31 2003
@@ -1,6 +0,0 @@
-changelog:'ChangeLog <cha...@us...>'
-darthsidious_:'Tim Ireland <dar...@us...>'
-denspike:'Jochen Meesters <den...@us...>'
-privmath:'Mathieu Rene <pri...@us...>'
-r33d:'Reed Loden <r3...@us...>'
-ultike:'Matthias Crauwels <ul...@us...>'
----------------------- End of diff -----------------------
|
