Return to cvslog CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / bird2 / tools

Annotation of embedaddon/bird2/tools/cvslog, revision 1.1

1.1     ! misho       1: #!/usr/bin/perl
        !             2: # Process `cvs log' output to get a resonable changelog
        !             3: # (c) 2003--2004 Martin Mares <mj@ucw.cz>
        !             4: 
        !             5: use Digest::MD5;
        !             6: use POSIX;
        !             7: 
        !             8: my %names= (
        !             9:        'mj'    => 'Martin Mares <mj@ucw.cz>',
        !            10:        'feela' => 'Ondrej Filip <feela@network.cz>',
        !            11:        'pavel' => 'Pavel Machek <pavel@ucw.cz>'
        !            12: );
        !            13: 
        !            14: while (<STDIN>) {
        !            15:        chomp;
        !            16:        /^$/ && next;
        !            17:        /^[?]/ && next;
        !            18:        /^RCS file: / || die;
        !            19:        $_ = <STDIN>;
        !            20:        chomp;
        !            21:        my ($file) = /^Working file: (.*)$/ or die;
        !            22:        #print "$file\n";
        !            23:        do {
        !            24:                $_ = <STDIN> or die;
        !            25:        } while (!/^description:/);
        !            26:        $_ = <STDIN>;
        !            27:        for(;;) {
        !            28:                /^======/ && last;
        !            29:                if (/^------/) { $_ = <STDIN>; next; }
        !            30:                /^revision / || die;
        !            31:                $_ = <STDIN>;
        !            32:                my ($author) = /;\s*author:\s*([^;]+)/ or die;
        !            33:                my ($yy,$mm,$dd,$HH,$MM,$SS) = /^date: (....)\/(..)\/(..) (..):(..):(..);/ or die;
        !            34:                my $t = POSIX::mktime($SS,$MM,$HH,$dd,$mm-1,$yy-1900) or die;
        !            35:                my $T = sprintf("%06d", int(($t + 1800)/3600));
        !            36:                $d = "";
        !            37:                while ($_ = <STDIN>) {
        !            38:                        /^(-----|=====)/ && last;
        !            39:                        $d .= "  $_";
        !            40:                }
        !            41:                my $id = "$T:" . Digest::MD5::md5_hex($d);
        !            42:                if (!defined $msg{$id}) {
        !            43:                        $date{$id} = "$yy-$mm-$dd $HH:$MM:$SS";
        !            44:                        $msg{$id} = $d;
        !            45:                        $files{$id} = "";
        !            46:                        $author{$id} = $author;
        !            47:                }
        !            48:                $files{$id} .= "  * $file\n";
        !            49:                #print "\t$id\n";
        !            50:        }
        !            51: }
        !            52: 
        !            53: foreach $id (sort keys %date) {
        !            54:        if (!exists ($names{$author{$id}})) {
        !            55:                die "Unknown commiter $author{$id}";
        !            56:        }
        !            57:        print "### ", $date{$id}, "  ", $names{$author{$id}}, "\n\n";
        !            58:        print $files{$id}, "\n";
        !            59:        print $msg{$id}, "\n";
        !            60: }