diff options
author | Mystery Man <unknown@mandriva.org> | 2002-09-16 23:15:36 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2002-09-16 23:15:36 +0000 |
commit | 149a1ae6fb71e09063cfcc4d58e50281182e182f (patch) | |
tree | f6a20501f74950ca1d93cfd85e1c9ff09f8813fb /tools/cvslog2changelog.pl | |
parent | 694d98ab3e187c3a2e8f47822b5ccc31e7342520 (diff) | |
download | drakx-backup-do-not-use-1_1_9_49mdk.tar drakx-backup-do-not-use-1_1_9_49mdk.tar.gz drakx-backup-do-not-use-1_1_9_49mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_49mdk.tar.xz drakx-backup-do-not-use-1_1_9_49mdk.zip |
This commit was manufactured by cvs2svn to create tag 'V1_1_9_49mdk'.V1_1_9_49mdk
Diffstat (limited to 'tools/cvslog2changelog.pl')
-rwxr-xr-x | tools/cvslog2changelog.pl | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/tools/cvslog2changelog.pl b/tools/cvslog2changelog.pl deleted file mode 100755 index 7109ad306..000000000 --- a/tools/cvslog2changelog.pl +++ /dev/null @@ -1,84 +0,0 @@ -#!/usr/bin/perl - -while (<>) { - if ($e = /^description:/ .. /^={77}/) { - next if $e == 1 || $e =~ /E0/; - if (/^-{28}/ .. /^date: /) { - if (/^date: (\S+)\s.*author: (\S+);/) { - ($date, $user) = ($1, $2); - } - } elsif (!/^branches: / && !/file .* was initially added on branch/ && !/empty log message/ && !/no_comment/) { - $l{$date}{$user}{$file} .= $_; - } - } elsif (/Working file: (.*)/) { - $file = $1; - } -} - -foreach $date (reverse sort keys %l) { - foreach $user (sort keys %{$l{$date}}) { - $fuser = $users{$user} || $user; - print "$date $fuser\n\n"; - my %inv; - while (($file, $log) = each %{$l{$date}{$user}}) { - $log =~ s/^\s+( \*)?//ms; - $log =~ s/\s+$//ms; - $log = "\n$log" if $log =~ /^-/; - push @{$inv{$log}}, $file; - } - foreach $log (keys %inv) { - $line = join(', ', @{$inv{$log}}) . ($log !~ /^\(/ && ':') . " $log"; - print "\t* ", join("\n\t", auto_fill($line, 72)), "\n\n"; - } - } -} - -1; - -sub auto_fill { - my ($line, $col) = @_; - map { - my @l; - my $l = ''; - $_ = " $_" if /^-/; - while ($_) { - s/^(\s*)(\S*)//; - my $m = "$l$1$2"; - if (length $m > $col) { - push @l, $l; - $l = $2; - } else { - $l = $m - } - } - @l, $l; - } split("\n", $line); -} - -BEGIN { - %users = ( - 'gc' => 'Guillaume Cottenceau <gc@mandrakesoft.com>', - 'fpons' => 'François Pons <fpons@mandrakesoft.com>', - 'pablo' => 'Pablo Saratxaga <pablo@mandrakesoft.com>', - 'damien' => 'dam\'s <dams@idm.fr>', - 'install' => 'DrakX <install@mandrakesoft.com>', - 'prigaux' => 'Pixel <pixel@mandrakesoft.com>', - 'flepied' => 'Frederic Lepied <flepied@mandrakesoft.com>', - 'chmouel' => 'Chmouel Boudjnah <chmouel@mandrakesoft.com>', - 'uid526' => 'dam\'s <damien@mandrakesoft.com>', - 'uid533' => 'François Pons <fpons@mandrakesoft.com>', - 'uid535' => 'Guillaume Cottenceau <gc@mandrakesoft.com>', - 'uid553' => 'Pixel <pixel@mandrakesoft.com>', - 'tvignaud' => 'Thierry Vignaud <tvignaud@mandrakesoft.com>', - 'sbenedict'=>'Stew Benedict <sbenedict@mandrakesoft.com>', - 'tkamppeter' => 'Till Kamppeter <till@mandrakesoft.com>', - 'yduret' => 'Yves Duret <yduret@mandrakesoft.com>', - 'daouda' => 'Daouda Lo <daouda@mandrakesoft.com>', - 'dchaumette' => 'Damien Chaumette <dchaumette@mandrakesoft.com>', - 'cbelisle' => 'Christian Belisle <cbelisle@mandrakesoft.com>', - 'warly' => 'Warly <warly@mandrakesoft.com>', - 'jgotti' => 'Jonathan Gotti <jgotti@mandrakesoft.com>', - 'fcrozat' => 'Frederic Crozat <fcrozat@mandrakesoft.com>', - 'baudens' => 'David Baudens <baudens@mandrakesoft.com>', - ); -} |