From 6cd40ff1360c8313ac083429ba10f03aadb34aac Mon Sep 17 00:00:00 2001 From: Valient Gough Date: Wed, 17 Jun 2015 20:47:13 -0700 Subject: [PATCH] drop old script --- dk2ChangeLog | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 dk2ChangeLog 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) -