diff options
author | Fridrich Štrba <fridrich.strba@bluewin.ch> | 2011-05-17 10:59:34 +0200 |
---|---|---|
committer | Fridrich Štrba <fridrich.strba@bluewin.ch> | 2011-05-17 10:59:34 +0200 |
commit | b30ffe08194f5b1573ba7ce101dea356bb9fdb54 (patch) | |
tree | ac53b1e725aa41ee81489c3aa0053f897f8106f8 /createBuildNumber.pl |
Initial skeleton of libvisio
Diffstat (limited to 'createBuildNumber.pl')
-rw-r--r-- | createBuildNumber.pl | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/createBuildNumber.pl b/createBuildNumber.pl new file mode 100644 index 0000000..6fc2949 --- /dev/null +++ b/createBuildNumber.pl @@ -0,0 +1,50 @@ +#!/usr/bin/perl +# ***** BEGIN LICENSE BLOCK ***** +# Version: LGPL 2.1 +# +# The Original Code is Mozilla Calendar Code. +# +# Copyright (C) 2002 Christopher S. Charabaruk (ccharabaruk@meldstar.com). +# Copyright (C) 2004 Fridrich Strba (fridrich.strba@bluewin.ch). +# All Rights Reserved. +# +# This program is free software; you can redistribute it and/or +# modify it under the terms of the GNU Lesser 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 +# Library General Public License for more details. +# +# You should have received a copy of the GNU Library General Public +# License along with this library; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# For further information visit http://libwpd.sourceforge.net +# +# +# "This product is not manufactured, approved, or supported by +# Corel Corporation or Corel Corporation Limited." +# +# ***** END LICENSE BLOCK ***** + +# create a build id to be used by build/win32/compile-resource +@timevars = localtime(time); +$buildid = sprintf("%1.1d%.2d%.2d", ($timevars[5] - 100) , ($timevars[4] + 1) , $timevars[3]); + +#print our build id +print $buildid . "\n"; + +foreach $file (@ARGV) +{ + # print filename + print "Working on " . $file . "\n"; + + open(OUT,">" . $file) or die "cannot open " . $file . "-temp for write\n"; + print OUT $buildid . "\n"; + close (OUT); +} + +print "All done!\n"; |