diff --git a/dk2ChangeLog b/dk2ChangeLog deleted file mode 100644 index 97c72a2..0000000 --- a/dk2ChangeLog +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/bin/perl -w - -use strict; - -open(LOG, "darcs changes|") || die "Can't open 'dk changes': $!"; - -my $lastDate = ""; -while() -{ - if( /^(\w+)\s+(\w+)\s+(\d+)\s+([0-9:]+)\s+(\w+)\s+(\d+)\s+(.*)$/ ) - { - my $date = "$1 $2 $3 $6"; - if($date ne $lastDate) - { - $lastDate = $date; - print "$date $7\n"; - } - } else - { - s/^\s+//; - if(/\w/) - { - print "\t$_"; - } else - { - #print "\n"; - } - } -} - -close(LOG) -