--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/vpnclient_sis/group/update_versions.pl	Thu Dec 17 09:14:51 2009 +0200
@@ -0,0 +1,120 @@
+#
+# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+# Updates pkg-files' and vpnclient_sis.mk's version information with current date.
+# Creates temporary pkg-files with updated version.
+#
+
+use strict;
+use POSIX qw(strftime);
+use File::Copy;
+
+
+my $PLATFORM = "42";
+
+#
+# Creates a temp file and replaces line
+#
+sub replace_line_and_create_temp
+{
+	# arguments
+	my ($pattern, $replacement, $path) = @_;
+		
+	# create temp file
+	my $temp_path = "temp_".$path;
+	if (-e $temp_path)
+	{
+		chmod 0666, $temp_path;
+		unlink $temp_path;
+	}
+	copy($path, $temp_path);
+	chmod 0666, $temp_path;
+	
+	# update version information
+	my ($infile, $outfile);
+	open $infile, "<".$path or die "Can't open $path : $!";
+	open $outfile, ">".$temp_path or die "Can't open $temp_path : $!";
+	while (<$infile>)
+	{
+		my $line = $_;
+		if ($line =~ s/$pattern/$replacement/g)
+		{
+			print "Replaced line in $temp_path\n";
+		}
+		print $outfile $line;
+	}
+	close $infile;
+	close $outfile;
+}
+
+#
+# Replaces line
+#
+sub replace_line
+{
+	# arguments
+	my ($pattern, $replacement, $path) = @_;
+		
+	# Backup
+	if (-e "$path.BACKUP")
+	{
+		chmod 0666, "$path.BACKUP";
+		unlink "$path.BACKUP";
+	}
+	chmod 0666, $path;
+	rename $path, "$path.BACKUP";
+	
+	# update version information
+	my ($infile, $outfile);
+	open $infile, "<$path.BACKUP" or die "Can't open $path.BACKUP : $!";
+	open $outfile, ">$path" or die "Can't open $path : $!";
+	while (<$infile>)
+	{
+		my $line = $_;
+		if ($line =~ s/$pattern/$replacement/g)
+		{
+			print "Replaced line in $path\n";
+		}
+		print $outfile $line;
+	}
+	close $infile;
+	close $outfile;
+}
+
+my $pkgtime = strftime($PLATFORM.",%y,%m%d", localtime());
+my $mktime = strftime("%y%m%d", localtime());
+
+# nokia_vpn_vpnpolins_armv5.pkg
+replace_line_and_create_temp(
+    '^#{"Nokia VPN Policy Installer"},\(0xA0000131\),.*?,.*?,.*?, TYPE=SA, RU$',
+    "#{\"Nokia VPN Policy Installer\"},(0xA0000131),$pkgtime, TYPE=SA, RU",
+    'nokia_vpn_vpnpolins_armv5.pkg');
+    
+# nokia_vpn_client_localised_armv5_urel.pkg
+replace_line_and_create_temp(
+    '^\(0x101F5147\),.*?,.*?,.*?, TYPE=SA, RU$',
+    "(0x101F5147),$pkgtime, TYPE=SA, RU",
+    'nokia_vpn_client_localised_armv5_urel.pkg');
+
+# nokia_vpn_client_localised_armv5_udeb.pkg
+replace_line_and_create_temp(
+    '^\(0x101F5147\),.*?,.*?,.*?, TYPE=SA, RU$',
+    "(0x101F5147),$pkgtime, TYPE=SA, RU",
+    'nokia_vpn_client_localised_armv5_udeb.pkg');
+
+# vpnclient_sis.mk
+replace_line(
+    '^VERSION=.*?$',
+    "VERSION=$mktime",
+    'vpnclient_sis.mk');