diff options
Diffstat (limited to 'winiss.pl')
| -rwxr-xr-x | winiss.pl | 30 |
1 files changed, 21 insertions, 9 deletions
@@ -6,15 +6,27 @@ # Usage: # -# $ ./winiss.pl 1234 gamedesc.txt > puzzles.iss +# $ ./winiss.pl 20140922.sdfsdf gamedesc.txt > puzzles.iss # -# where `1234' is the revision number which will be encoded in the -# installer's version indicators. +# where the first argument is the version number which will be encoded +# in the installer's version indicators. The first component of that +# version number will be expected to be a YYYYMMDD-format date. use warnings; +use Time::Local; + +$ver = shift @ARGV; + +# Parse the date out of $ver, and convert it into an integer number of +# days since an arbitrary epoch. This number is used for the Windows +# version resource (which wants a monotonic 16-bit integer). The epoch +# is chosen so that the first build using this date-based mechanism +# has a higher number than the last build in which that number was +# derived from a Subversion revision. +die "bad date format" if $ver !~ /^(\d{4})(\d{2})(\d{2})/; +$date = timegm(0,0,0,$3,$2-1,$1); +$integer_date = int($date / 86400) - 6000; -$rev = shift @ARGV; -($revclean=$rev) =~ s/M$//; $desc = shift @ARGV; open DESC, "<", $desc; while (<DESC>) { @@ -31,10 +43,10 @@ print '; -- Inno Setup installer script for Puzzles.'."\n"; print ''."\n"; print '[Setup]'."\n"; print 'AppName=Simon Tatham\'s Portable Puzzle Collection'."\n"; -print 'AppVerName=Puzzles revision '.$rev."\n"; -print 'VersionInfoTextVersion=Revision '.$rev."\n"; -print 'AppVersion=r'.$rev."\n"; -print 'VersionInfoVersion=0.0.'.$revclean.'.0'."\n"; +print 'AppVerName=Puzzles version '.$ver."\n"; +print 'VersionInfoTextVersion=Version '.$ver."\n"; +print 'AppVersion=r'.$ver."\n"; +print 'VersionInfoVersion=0.0.'.$integer_date.'.0'."\n"; print 'AppPublisher=Simon Tatham'."\n"; print 'AppPublisherURL=http://www.chiark.greenend.org.uk/~sgtatham/puzzles/'."\n"; print 'DefaultDirName={pf}\Simon Tatham\'s Portable Puzzle Collection'."\n"; |