diff -r 8962128a2656 -r c29f8e059978 vpnclient_sis/group/update_versions.pl
--- a/vpnclient_sis/group/update_versions.pl	Fri Apr 16 16:02:48 2010 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,120 +0,0 @@
-#
-# 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');