CVSROOT: loginfo (HEAD)

[Paweł Żurowski]

W liście z nie, 25-01-2004, godz. 15:14, serek pisze: 
> Log message:
> - hard test - do not kill me please...

dodawanie nazw plikow w temacie (diff w zalaczniku) chyba przydatne do
modulow SPECS, SOURCES i niewylkuczone, ze do innych

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:25:39 -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)":"").": ===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,16 @@
       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, ";
     }
   }
 }
+if($subj_files){
+  $subj_file_list =~ s/, $//;
+}else{
+  $subj_file_list="";
+}
+$subj =~ s/===FILES===/$subj_file_list/;
 
 
 goto end_diff unless $show_diff or $show_diffstat;