ref: 74f6ba33956f58b83348a82de30a81a267ef59de
parent: 2133bb8ce597be0f63e48ecc04f55b5711cdc178
author: evilynux <evilynux>
date: Fri Feb 9 23:30:17 EST 2007
Little script to update the versions in the Debian files.
--- /dev/null
+++ b/update_debian_version.pl
@@ -1,0 +1,50 @@
+#!/usr/bin/perl -w
+# This script is meant to live in SoX CVS.
+# Its sole purpose is to update the versions in the debian directory
+# so users can always build a binary package after a CVS checkout.
+#
+# Written by Pascal Giard <evilynux@gmail.com>.
+use strict;
+
+my $file = "configure.ac";
+my $changelog = "debian/changelog";
+my $rules = "debian/rules";
+my $version;
+my @content;
+
+die "$file doesn't exist.\n" unless( -e $file );
+die "$changelog doesn't exist.\n" unless( -e $changelog );
+die "$rules exist.\n" unless( -e $rules );
+
+# Get current version
+open( FH, $file );
+while( <FH> ) {+ if( $_ =~ m/AC_INIT\(SoX, (\d+\.\d+\.\d+),/ ) {+ $version = $1;
+ last;
+ }
+}
+close( FH );
+
+die "Can't determine version number.\n" unless( $version );
+
+# Update debian/changelog
+open( FH, $changelog );
+@content = <FH>;
+close( FH );
+die "Can't modify $changelog!\n"
+ unless $content[0] =~ s/^(sox \()\d+\.\d+\.\d+(\.cvs-1\).*)$/$1$version$2/;
+
+open( FH, "> $changelog" );
+print FH @content;
+close( FH );
+
+# Update debian/rules
+open( FH, $rules );
+@content = <FH>;
+close( FH );
+$_ =~ s/^(DEB_TAR_SRCDIR := sox-)\d+\.\d+\.\d+(.*)$/$1$version$2/
+ foreach(@content);
+open( FH, ">" . $rules );
+print FH @content;
+close( FH );