From: Nito Martinez <Nito@Qindel.ES>
Date: Mon, 12 Apr 2010 21:09:33 +0000 (+0200)
Subject: Changed changelog...
X-Git-Url: https://vcs.maemo.org/git/?a=commitdiff_plain;h=04f9f20bd04e478e8b76e53a566f8df468f99b6f;hp=2bd23ebba4f83da3918e098feb2a707e2a0a6699;p=dh-make-perl

Changed changelog...
---

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 "$_" ;
+    }
+}