CVSROOT: loginfo (HEAD)

[Paweł Żurowski]

W liście z nie, 25-01-2004, godz. 16:32, Paweł Żurowski pisze: 
> dodawanie nazw plikow w temacie (diff w zalaczniku) [...]
ciut ladniejsza wersja

pozdrawiam
-pawel

-- 
Pawel Zurowski
JID: <my_login>@jabber.org
-------------- następna część ---------
Index: cvslog.pl
===================================================================
RCS file: /cvsroot/CVSROOT/cvslog.pl,v
retrieving revision 1.9
diff -u -r1.9 cvslog.pl
--- cvslog.pl	25 Jan 2004 14:05:36 -0000	1.9
+++ cvslog.pl	25 Jan 2004 15:47:55 -0000
@@ -98,6 +98,8 @@
 # Whether you want the diff of changes to be sent in the message.
 $show_diff = 1;
 
+# Whether you want the affected files list in subject
+$subj_files=1;
 
 
 ### The code itself
@@ -268,7 +270,7 @@
 # Fill in subj and possibly cut it
 
 my ($subj);
-$subj = "Subject: [$project] $module".($tag?" ($tag)":"").": $logmsg";
+$subj = "Subject: [$project] $module".($tag?" ($tag)":"").($subj_files?": ===FILES=== ":": ").$logmsg;
 $subj =~ s/\n/ /g; $subj =~ s/ *$//;
 $subj = substr($subj, 0, 75) . '...' if (length($subj) > 78);
 
@@ -312,10 +314,13 @@
 
 
 # List the files being changed, plus the cvsweb URLs
+my $subj_file_list="";
 
 for (my $i = 0; $i < @dirs; $i++) {
   my $dirs = $dirs[$i];
   my $dir = $dirs->{name};
+  my $subdir = $dir;
+  $subdir ~= s!^[^/]*/?!!;
 
   print MAIL "$dir:\n";
 
@@ -335,9 +340,13 @@
       print MAIL "\n";
       print MAIL "    $cvsweb_url/$dir/$name?r1=$oldrev&r2=$newrev&f=u\n"
         if defined $cvsweb_url and $op ne 'add' and $op ne 'remove';
+      $subj_file_list.="$subdir/$name, ";
     }
   }
 }
+
+$subj_file_list =~ s/, $//;
+$subj =~ s/===FILES===/$subj_file_list/;
 
 
 goto end_diff unless $show_diff or $show_diffstat;