1 files changed, 0 insertions, 84 deletions
diff --git a/gnuify-changelog.pl b/gnuify-changelog.pl
deleted file mode 100755
index 7f6d3bf7c..000000000
--- a/gnuify-changelog.pl
+++ /dev/null
@@ -1,84 +0,0 @@
-#!/usr/bin/perl -w
-
-# a script to munge the output of 'svn log' into something approaching the
-# style of a GNU ChangeLog.
-#
-# to use this, just fill in the 'hackers' hash with the usernames and
-# name/emails of the people who work on your project, go to the top level
-# of your working copy, and run:
-#
-# $ svn log | /path/to/gnuify-changelog.pl > ChangeLog
-
-require 5.0;
-use strict;
-
-my %hackers = (
-    "fiddlosopher" => 'John MacFarlane <jgm@berkeley.edu>',
-    "jgm"          => 'John MacFarlane <jgm@berkeley.edu>',
-    "roktas"       => 'Recai Oktaş <roktas@debian.org>',
-);
-
-my $parse_next_line = 0;
-my $last_line_empty = 0;
-my $last_rev = "";
-
-while (my $entry = <>) {
-
-  # Axe windows style line endings, since we should try to be consistent, and
-  # the repos has both styles in its log entries
-  $entry =~ s/\r\n$/\n/;
-
-  # Remove trailing whitespace
-  $entry =~ s/\s+$/\n/;
-
-  my $this_line_empty = $entry eq "\n";
-
-  # Avoid duplicate empty lines
-  next if $this_line_empty and $last_line_empty;
-
-  # Don't fail on valid dash-only lines
-  if ($entry =~ /^-+$/ and length($entry) >= 72) {
-
-    # We're at the start of a log entry, so we need to parse the next line
-    $parse_next_line = 1;
-
-    # Check to see if the final line of the commit message was blank,
-    # if not insert one
-    print "\n" if $last_rev ne "" and !$last_line_empty;
-
-  } elsif ($parse_next_line) {
-
-    # Transform from svn style to GNU style
-    $parse_next_line = 0;
-
-    my @parts = split (/ /, $entry);
-    $last_rev  = $parts[0];
-    my $hacker = $parts[2];
-    my $tstamp = $parts[4];
-
-    # Use alias if we can't resolve to name, email
-    $hacker = $hackers{$hacker} if defined $hackers{$hacker};
-
-    printf "%s  %s\n", $tstamp, $hacker;
-
-  } elsif ($this_line_empty) {
-
-    print "\n";
-
-  } else {
-
-    print "\t$entry";
-
-  }
-
-  $last_line_empty = $this_line_empty;
-}
-
-# As a HERE doc so it also sets the final changelog's coding
-print <<LOCAL;
-;; Local Variables:
-;; coding: utf-8
-;; End:
-LOCAL
-
-1;