From 04f9f20bd04e478e8b76e53a566f8df468f99b6f Mon Sep 17 00:00:00 2001
From: Nito Martinez <Nito@Qindel.ES>
Date: Mon, 12 Apr 2010 23:09:33 +0200
Subject: [PATCH] Changed changelog...

---
 dev/i386/edit-release.pl |   25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 dev/i386/edit-release.pl

diff --git a/dev/i386/edit-release.pl b/dev/i386/edit-release.pl
new file mode 100755
index 0000000..5434eb5
--- /dev/null
+++ b/dev/i386/edit-release.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+local $/="\n\nl";
+
+my $begin = 1; 
+while (<>) {
+#    print "<$_>";
+    if (/^(\S+)\s+\((\S+)\)\s+([^;]+)(.*)$/s && $begin) { 
+	my $name = $1;
+	my $version = $2;
+	$version =~ s/\+lenny//;
+	$version =~ s/lenny//;
+	$version =~ s/~debian.*//;
+	print <<EOF;
+$name (${version}maemo1) fremantle; urgency=low
+
+  * New Maemo packaging
+
+EOF
+print " -- Nito Martinez <Nito\@Qindel.ES>  Mon Apr 12 22:54:03 CEST 2010\n\nl";
+      $begin=0;
+    } else {
+	print "$_" ;
+    }
+}
-- 
1.7.9.5