Drop debian/gitlog2changelog

1 files changed, 0 insertions, 110 deletions

diff --git a/debian/gitlog2changelog b/debian/gitlog2changelog
deleted file mode 100755
index be57518..0000000
--- a/debian/gitlog2changelog
+++ /dev/null
@@ -1,110 +0,0 @@
-#!/usr/bin/perl
-
-=head1 NAME
-
-gitlog2changelog - tiny tool to convert Git commit logs to GNU-style ChangeLog
-
-=head1 SYNOPSIS
-
-git log | gitlog2changelog > ChangeLog
-
-git log --no-merges --numstat --pretty=fuller | gitlog2changelog > ChangeLog
-
-(Use --no-merges to ignore merge commits.
- Use --numstat to show changed files.
- Use --pretty=fuller to show committer date instead of author date.)
-
-=head1 SEE ALSO
-
-GNU Coding Standards:
-    <http://www.gnu.org/prep/standards/html_node/index.html>
-    <http://www.gnu.org/prep/standards/html_node/Change-Logs.html>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2013 Tatsuya Kinoshita
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted without restriction, with NO WARRANTY.
-You may regard this as a work that is placed in the public domain.
-
-=cut
-
-use strict;
-use warnings;
-
-my $author = ""; my $date = ""; my $comment = ""; my @files = ();
-my $pre_header = "";
-
-sub print_entry {
-    my $header = "$date  $author";
-    $header =~ s/ </  </;
-    if ($header ne $pre_header) {
-	print "$header\n\n";
-	$pre_header = $header;
-    }
-    print "\t* ";
-
-    my $files_line_len = 10;
-    my $files_lines = "";
-    foreach my $file (@files) {
-	my $len = length($file);
-	if ($files_line_len > 10 && ($files_line_len + $len > 78)) {
-	    $files_lines =~ s/, $/:\n\t* /;
-	    $files_line_len = 10;
-	}
-	$files_lines .= "$file, ";
-	$files_line_len += $len + 2;
-    }
-
-    if ($files_lines) {
-	my $short_comment = "";
-	if ($comment =~ /^([^\n]+)/) {
-	    $short_comment = $1;
-	}
-	if ($short_comment =~ /:[ \t]|[^\(\[][:,\)\]][ \t]*$/ ||
-	    $files_line_len + length($short_comment) > 78) {
-	    $files_lines =~ s/, $/:\n\t/;
-	} else {
-	    $files_lines =~ s/, $/: /;
-	}
-	print "$files_lines";
-    }
-
-    $comment =~ s/\.?[ \t]*\n/.\n/;
-    $comment =~ s/\n([ \t]*\n)+/\n/g;
-    $comment =~ s/\n+$//;
-    $comment =~ s/\n/\n\t/g;
-    $comment =~ s/^\* //;
-    print "$comment\n\n";
-
-    $author = ""; $date = ""; $comment = ""; @files = ();
-}
-
-while (<>) {
-    if (/^Author:[ \t]+([^\n]+)/) {
-	$author = $1;
-    } elsif (/^(Commit|)Date:[ \t]+(Sun|Mon|Tue|Wed|Thu|Fri|Sat) +(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec) +(\d+) +\d+:\d+:\d+ +(\d+)/) {  # Assume git log --date=default or --date=local
-	my $mm = $3;
-	my $dd = $4;
-	my $yyyy = $5;
-	$mm =~ s/Jan/01/; $mm =~ s/Feb/02/; $mm =~ s/Mar/03/; $mm =~ s/Apr/04/;
-	$mm =~ s/May/05/; $mm =~ s/Jun/06/; $mm =~ s/Jul/07/; $mm =~ s/Aug/08/;
-	$mm =~ s/Sep/09/; $mm =~ s/Oct/10/; $mm =~ s/Nov/11/; $mm =~ s/Dec/12/;
-	$dd =~ s/^(\d)$/0$1/;
-	$date = "$yyyy-$mm-$dd";
-    } elsif (/^(Commit|)Date:[ \t]+(\d+-\d+-\d+)/) {  # Assume git log --date=short or --date=iso
-	$date = $2;
-    } elsif (/^(Commit|)Date:[ \t]+(.+)$/) {
-	$date = $2;
-    } elsif (/^    (.*)$/) {
-	$comment .= "$1\n";
-    } elsif (/^[-0-9]+\t[-0-9]+\t(.*)$/) {  # Assume git log --numstat
-	push @files, $1;
-    } elsif (/^commit / && $author && $date) {
-	&print_entry;
-    }
-}
-if ($author && $date) {
-    &print_entry;
-}