git.maemo.org Git - pkg-perl/blob - scripts/edit-release.pl

   1 #!/usr/bin/perl
   2 # Usage
   3 # Accepts a debian/changelog file as input
   4 # Example
   5 #  $0 libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/debian/changelog
   6
   7 $/="\n\nl";
   8 my $begin=1;
   9 my $date=`date -R`;
  10
  11 while (<>) {
  12 if (/^(\S+)\s+\((\S+)\)\s+([^;]+)(.*)$/s && $begin) {
  13    my $name = $1;
  14    my $version = $2;
  15
  16    $version =~ s/\+lenny//;
  17    $version =~ s/lenny//;
  18    $version =~ s/~debian.*//;
  19    print <<EOF;
  20 $name (${version}maemo1) fremantle; urgency=low
  21
  22   * New Maemo packaging
  23
  24 EOF
  25    print " -- Nito Martinez <Nito\@Qindel.ES>  $date\n\nl";
  26    print "$_";
  27   $begin=0;
  28 } else {
  29   print "$_" ;
  30 }
  31 }