1 files changed, 21 insertions, 0 deletions
diff --git a/changes2changelog b/changes2changelog
new file mode 100755
index 0000000..07c7afa
--- /dev/null
+++ b/changes2changelog
@@ -0,0 +1,21 @@
+#! /usr/bin/perl
+
+while (<>) {
+	if (/^(|-+)$/) {
+		next;
+	} elsif (/^(\S.*) - (.*@.*)$/) {
+		# print "[" . $1 . "]\n";
+		open FH, 'date -u +"* %a %b %d %Y" -d "' . $1 . '" |';
+		while (<FH>) {
+			chomp;
+			print $_ . " - " . $2 . "\n";
+		}
+		close FH;
+		next;
+	} elsif (/(- |  +)(?!\s)/) {
+		print;
+	} else {
+		print STDERR "Syntax error in line $. of changelog:\n$_\n";
+		exit 1;
+	}
+}