diff options
author | Mike DePaulo <mikedep333@gmail.com> | 2014-03-04 17:24:43 -0500 |
---|---|---|
committer | Mike DePaulo <mikedep333@gmail.com> | 2014-03-04 17:24:43 -0500 |
commit | 6ceb82397b5899607e41c6638855a22bd8a0f419 (patch) | |
tree | 5aeff05b18a4dc4d21e0d626f22c08b2e5f2e326 /bin/generate-nsis-version.pl | |
parent | 7a45cd3ff55724d8aa20560bb5c37900e914f847 (diff) | |
download | buildscripts-6ceb82397b5899607e41c6638855a22bd8a0f419.tar.gz buildscripts-6ceb82397b5899607e41c6638855a22bd8a0f419.tar.bz2 buildscripts-6ceb82397b5899607e41c6638855a22bd8a0f419.zip |
Correction location of scripts
Diffstat (limited to 'bin/generate-nsis-version.pl')
-rw-r--r-- | bin/generate-nsis-version.pl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/bin/generate-nsis-version.pl b/bin/generate-nsis-version.pl new file mode 100644 index 0000000..cd3771b --- /dev/null +++ b/bin/generate-nsis-version.pl @@ -0,0 +1,28 @@ +#!/usr/bin/perl + +use strict; + +use POSIX qw(strftime); + +my $date = strftime "%Y.%m.%d", localtime; + +open(F,"<../GIT/nightly/x2goclient/version.h") or die; +my @lines=<F>; +close(F); + +my $text=join("",@lines); +my $version=(split("VERSION \"",$text))[1]; +my $version=(split("\"",$version))[0]; + +open(F,"<../GIT/nightly/x2goclient/nsis/x2goclient.nsi") or die; +@lines=<F>; +close(F); + +$text=join("",@lines); + +$text=~s/X2GOCLIENT_VERSION/$version-$date/; +#print $text; + +open(F,">../GIT/nightly/x2goclient/nsis/x2goclient.nsi") or die; +print F $text; +close(F); |