update_debian_version.pl

   1 #!/usr/bin/perl -w
   2 # This script is meant to live in SoX git.
   3 # Its sole purpose is to update the versions in the debian directory
   4 # so users can always build a binary package after a git checkout.
   5 #
   6 # Written by Pascal Giard <evilynux@gmail.com>.
   7 use strict;
   8
   9 my $file = "configure.ac";
  10 my $changelog = "debian/changelog";
  11 my $rules = "debian/rules";
  12 my $version;
  13 my @content;
  14
  15 die "$file doesn't exist.\n" unless( -e $file );
  16 die "$changelog doesn't exist.\n" unless( -e $changelog );
  17 die "$rules exist.\n" unless( -e $rules );
  18
  19 # Get current version
  20 open( FH, $file );
  21 while( <FH> ) {
  22     if( $_ =~ m/AC_INIT\(SoX, (\d+\.\d+\.\d+)(git)?,/ ) {
  23         $version = $1;
  24         last;
  25     }
  26 }
  27 close( FH );
  28
  29 die "Can't determine version number.\n" unless( $version );
  30
  31 # Update debian/changelog
  32 my $date = `date +%Y%m%d`;
  33 chop($date);
  34 open( FH, $changelog );
  35 @content = <FH>;
  36 close( FH );
  37 die "Can't modify $changelog!\n"
  38   unless $content[0] =~ s/^(sox \()\d+\.\d+\.\d+(-\d+\+git)\d{8}(-1\).*)$/$1$version$2$date$3/;
  39
  40 open( FH, "> $changelog" );
  41 print FH @content;
  42 close( FH );
  43
  44 # Update debian/rules
  45 open( FH, $rules );
  46 @content = <FH>;
  47 close( FH );
  48 $_ =~ s/^(DEB_TAR_SRCDIR := sox-)\d+\.\d+\.\d+(.*)$/$1$version$2/
  49   foreach(@content);
  50 open( FH, ">" . $rules );
  51 print FH @content;
  52 close( FH );