summaryrefslogtreecommitdiff
path: root/createBuildNumber.pl
diff options
context:
space:
mode:
authorFridrich Štrba <fridrich.strba@bluewin.ch>2011-05-17 10:59:34 +0200
committerFridrich Štrba <fridrich.strba@bluewin.ch>2011-05-17 10:59:34 +0200
commitb30ffe08194f5b1573ba7ce101dea356bb9fdb54 (patch)
treeac53b1e725aa41ee81489c3aa0053f897f8106f8 /createBuildNumber.pl
Initial skeleton of libvisio
Diffstat (limited to 'createBuildNumber.pl')
-rw-r--r--createBuildNumber.pl50
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";