-#!/usr/bin/perl
-# Usage
-# Accepts a debian/changelog file as input
-# Example
-# $0 libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/debian/changelog
-
-$/="\n\nl";
-my $begin=1;
-my $date=`date -R`
-
-while (<>) {
-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> $date\n\nl";
- print "$_";
- $begin=0;
-} else {
- print "$_" ;
-}
-}