update_debian_version.pl

   1 #!/usr/bin/perl -w
   2 # This script is meant to live in SoX CVS.
   3 # Its sole purpose is to update the versions in the debian directory
   4 # so users can always build a binary package after a CVS 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+),/ ) {
  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 open( FH, $changelog );
  33 @content = <FH>;
  34 close( FH );
  35 die "Can't modify $changelog!\n"
  36   unless $content[0] =~ s/^(sox \()\d+\.\d+\.\d+(\+cvs-1\).*)$/$1$version$2/;
  37
  38 open( FH, "> $changelog" );
  39 print FH @content;
  40 close( FH );
  41
  42 # Update debian/rules
  43 open( FH, $rules );
  44 @content = <FH>;
  45 close( FH );
  46 $_ =~ s/^(DEB_TAR_SRCDIR := sox-)\d+\.\d+\.\d+(.*)$/$1$version$2/
  47   foreach(@content);
  48 open( FH, ">" . $rules );
  49 print FH @content;
  50 close( FH );