git.maemo.org Git - dh-make-perl/blob - dev/i386/edit-release.pl

   1 #!/usr/bin/perl
   2
   3 local $/="\n\nl";
   4
   5 my $begin = 1;
   6 while (<>) {
   7 #    print "<$_>";
   8     if (/^(\S+)\s+\((\S+)\)\s+([^;]+)(.*)$/s && $begin) {
   9         my $name = $1;
  10         my $version = $2;
  11         $version =~ s/\+lenny//;
  12         $version =~ s/lenny//;
  13         $version =~ s/~debian.*//;
  14         print <<EOF;
  15 $name (${version}maemo1) fremantle; urgency=low
  16
  17   * New Maemo packaging
  18
  19 EOF
  20 print " -- Nito Martinez <Nito\@Qindel.ES>  Mon Apr 12 22:54:03 CEST 2010\n\nl";
  21       $begin=0;
  22     } else {
  23         print "$_" ;
  24     }
  25 }