diff options
author | stuconnolly <stuart02@gmail.com> | 2011-01-11 20:28:40 +0000 |
---|---|---|
committer | stuconnolly <stuart02@gmail.com> | 2011-01-11 20:28:40 +0000 |
commit | 481ef5b0206604715449cbf6b1df83841ab4f2e5 (patch) | |
tree | 16df60ae379e2f6d37baa16d375e662c1aea3eb9 /Scripts/build-version.pl | |
parent | 7d2238af04e18999b4dc83a92d82ac1944c0916d (diff) | |
download | sequelpro-481ef5b0206604715449cbf6b1df83841ab4f2e5.tar.gz sequelpro-481ef5b0206604715449cbf6b1df83841ab4f2e5.tar.bz2 sequelpro-481ef5b0206604715449cbf6b1df83841ab4f2e5.zip |
Tidy up scripts and add create-test-stubs.pl to generate test stubs for the specified header. Run create-test-stubs.pl -h for usage.
Diffstat (limited to 'Scripts/build-version.pl')
-rwxr-xr-x | Scripts/build-version.pl | 62 |
1 files changed, 44 insertions, 18 deletions
diff --git a/Scripts/build-version.pl b/Scripts/build-version.pl index fa12bfdb..92dcc15b 100755 --- a/Scripts/build-version.pl +++ b/Scripts/build-version.pl @@ -1,22 +1,42 @@ -#! /usr/bin/perl -w - -## $Id$ -## -## Author: Stuart Connolly (stuconnolly.com) -## Copyright (c) 2009 Stuart Connolly. All rights reserved. -## -## Paramters: <none> -## -## Description: Updates the application/bundle's Info.plist CFBundleVersion to match that of the current -## Subversion revision. +#! /usr/bin/perl + +# +# $Id$ +# +# build-version.pl +# sequel-pro +# +# Created by Stuart Connolly (stuconnolly.com) +# Copyright (c) 2009 Stuart Connolly. All rights reserved. +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# More info at <http://code.google.com/p/sequel-pro/> + +# Updates the application/bundle's Info.plist CFBundleVersion to match that of the current +# Subversion revision. use strict; use warnings; +use Carp; + die "$0: Must be run from within Xcode. Exiting..." unless $ENV{"BUILT_PRODUCTS_DIR"}; my $revision = `svnversion -n ./`; -my $info_plist = "$ENV{BUILT_PRODUCTS_DIR}/$ENV{INFOPLIST_PATH}"; +my $plist_path = "$ENV{BUILT_PRODUCTS_DIR}/$ENV{INFOPLIST_PATH}"; my $version = $revision; @@ -24,12 +44,18 @@ my $version = $revision; die "$0: No Subversion revision found. Exiting..." unless $version; -open(INFO_FH, "$info_plist") or die "$0: $info_plist: $!"; -my $info = join("", <INFO_FH>); -close(INFO_FH); +open(my $plist, $plist_path) || croak "Unable to open plist file for reading: $!"; + +my $info = join('', <$plist>); + +close($plist); $info =~ s/([\t ]+<key>CFBundleVersion<\/key>\n[\t ]+<string>).*?(<\/string>)/$1$version$2/; -open(INFO_FH, ">$info_plist") or die "$0: $info_plist: $!"; -print INFO_FH $info; -close(INFO_FH); +open($plist, '>', $plist_path) || croak "Unable to open plist file for writing: $!"; + +print $plist $info; + +close($plist); + +exit 0 |