[pld-discuss-pl] cdg: logi_cvs (NEW)

[Jan Rekorajski]

On Sun, 01 Feb 2004, wolf wrote:

> 
> Module name:	cdg
> Changes by:	wolf	04/02/01 00:48:31
> 
> Added files:
> 	logi_cvs
> 
> Log message:
> - i niech się dzieje co chce...
> 
> --- NEW FILE: logi_cvs ---
> Czy uważasz że należy przywrócić stary układ logów cvs?
> 
> Dla przypomnienia, aktualna forma została narzucona przez Grupę Trzymającą
> Władzę, bez konsultacji z resztą developerów.

Przesadzasz, nowy uklad nie jest zly. Niech tylko ktos z "+w" w CVSROOT
zaaplikuje taka late, bo cos takiego jak "TRUNK" to w cvs nie istnieje.

Index: cvslog.pl
===================================================================
RCS file: /cvsroot/CVSROOT/cvslog.pl,v
retrieving revision 1.47
diff -u -r1.47 cvslog.pl
--- cvslog.pl   27 Jan 2004 16:08:58 -0000      1.47
+++ cvslog.pl   1 Feb 2004 01:32:45 -0000
@@ -181,7 +181,7 @@
   }
 }

-$htag = $tag ? $tag : "<TRUNK>";
+$htag = $tag ? $tag : "HEAD";

 while (<STDIN>) {
   $logmsg .= $_;
@@ -346,7 +346,7 @@
 $subj = "Subject: $module".($tag?" ($tag)":"").": ".($subj_files?$subj_file_list:"").$logmsg;
 $subj =~ s/\n/ /g; $subj =~ s/ *$//;
 $subj = substr($subj, 0, $subj_maxlength-3) . '...' if (length($subj) > $subj_maxlength);
-my $keywords="DEV-$user, MOD-$module, TAG-".($tag?$tag:"TRUNK").", ". $subj_file_list;
+my $keywords="DEV-$user, MOD-$module, TAG-".($tag?$tag:"HEAD").", ". $subj_file_list;

 print MAIL <<EOM;
 From: $from_email

Janek
-- 
Jan Rękorajski            |  ALL SUSPECTS ARE GUILTY. PERIOD!
baggins<at>mimuw.edu.pl   |  OTHERWISE THEY WOULDN'T BE SUSPECTS, WOULD THEY?
BOFH, MANIAC              |                   -- TROOPS by Kevin Rubio