+++ /dev/null
-#!/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 "$_" ;
-}
-}
+++ /dev/null
-#!/bin/bash
-# Usage
-# Accepts a debian/changelog file as input
-# Example
-# $0 libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/debian/changelog
-
-basedir=`dirname $0`
-
-help() {
- cat <<EOF
-$0 <list of debian/changelog files to modify>
-
-Example:
-
-$0 libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/debian/changelog
-
-EOF
-
-}
-
-if [ $# -eq 0 ]; then
- help
-fi
-for i in $@; do
- $basedir/edit-release.pl $i
-done