cvs: /CVSROOT loginfo.pl
| From: | Andrei Zmievski | Date: | Fri, 12 May 2000 13:52:59 +0000 |
| Subject: | cvs: /CVSROOT loginfo.pl | ||
| Groups: | php.dev | ||
| Request: | Send a blank email to php-dev+get-18649@lists.php.net to get a copy of this message | ||
andrei Fri May 12 15:52:59 2000 EDT
Modified files:
/CVSROOT loginfo.pl
Log:
Improve the format a bit.
Index: CVSROOT/loginfo.pl
diff -u CVSROOT/loginfo.pl:1.27 CVSROOT/loginfo.pl:1.28
--- CVSROOT/loginfo.pl:1.27 Fri May 12 14:44:52 2000
+++ CVSROOT/loginfo.pl Fri May 12 15:52:59 2000
@@ -139,31 +139,27 @@
# build our email
my $msg = "";
-my $subj = "";
-my $list = "";
-
if($#added_files ne -1) {
- $list = &build_list(@added_files);
$msg .= "\n Added files:";
- $msg .= $list;
- $subj .= $list;
+ $msg .= &build_list(@added_files);
}
if($#removed_files ne -1) {
- $list = &build_list(@removed_files);
$msg .= "\n Removed files:";
- $msg .= $list;
- $subj .= $list;
+ $msg .= &build_list(@removed_files);
}
if($#modified_files ne -1) {
- $list = &build_list(@modified_files);
$msg .= "\n Modified files:";
- $msg .= $list;
- $subj .= $list;
+ $msg .= &build_list(@modified_files);
}
-# replace all whitespace with real spaces, and collapse consecutive spaces
-$subj =~ s/\s+/ /g;
+my $subj = "";
+my %dirfiles;
+my @dirs = &get_dirs(@added_files, @removed_files, @modified_files);
+foreach my $dir (@dirs) {
+ $subj .= "$dir @{ $dirfiles{$dir} } ";
+}
+
my $msgid = "Message-ID: <cvs$cvsuser".time()."\@cvsserver>\n";
my %handles;
@@ -203,7 +199,7 @@
"To: $mailto\n".
$msgid.
$rfc822date.
-"Subject: cvs: $subj\n".
+"Subject: cvs: $module$tag $subj\n".
"\n".
"$cvsuser\t\t".localtime()." EDT\n".
"$msg".
@@ -279,14 +275,14 @@
sub get_dirs {
my @files = sort @_;
- my %dirs;
foreach my $file (@files) {
(my $dir = $file) =~ s#[^/]+$##;
$dir =~ s/^$module//;
- $dirs{$dir} = 1;
- }
- return sort keys %dirs;
-}
+ $file =~ s#^.+/(.+)$#\1#;
+ push @{ $dirfiles{$dir} }, $file;
+ }
+ return sort keys %dirfiles;
+}
sub indent {
my ($msg,$nr) = @_;