#

# Copyright (c) 2010 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;

#Subroutines to update version information

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;

}

# Define variables

my $pkgtime = strftime($PLATFORM.",%y,%m%d", localtime());

my $mktime = strftime("%y%m%d", localtime());

my $epocroot = $ENV{'EPOCROOT'};

$epocroot =~ s/\\/\//;

my $rdderdir="../data/RDTest_02.der";

my $rdkeydir="../data/RDTest_02.key";

my $localisation_files = $epocroot . "epoc32/data/Z/resource/vpnecomnotifier.r05";

if (!(-e $localisation_files))

{

 	die "Localisation files are not available! Exiting..\n";

} 

my $numArgs = $#ARGV + 1;

if (!($#ARGV + 1 eq 1))

{

	die "wrong number of command line arguments.";

}

my $config = @ARGV[0];

# Creates temp pkg files with updated version information

if ($config eq "UREL")

{

# 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');

	print "Processing temp_nokia_vpn_client_localised_armv5_urel.pkg\n";

	system("makesis -v temp_nokia_vpn_client_localised_armv5_urel.pkg mVPN_RnD_" . $PLATFORM . "_" . $mktime . "_urel.sis") == 0 or 

		die "UREL sis creation failed";  		

	print "\nSigning created mVPN_RnD_" . $PLATFORM . "_" . $mktime . "_urel.sis\n";

	system("signsis mVPN_RnD_" . $PLATFORM . "_" . $mktime . "_urel.sis mVPN_RnD_" . $PLATFORM . "_" . $mktime . "_urel.sis " . $rdderdir . " " . $rdkeydir) == 0 or 

		die "UREL sis signing failed";

	# remove temp files

	unlink <temp_*_urel.pkg>;  

}

elsif ($config eq "UDEB")  

{

	# 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');

		print "Processing temp_nokia_vpn_client_localised_armv5_udeb.pkg\n";

		my $udeb_sis_file_name = "mVPN_RnD_" . $PLATFORM . "_" . $mktime . "_udeb.sis";

		system("makesis -v temp_nokia_vpn_client_localised_armv5_udeb.pkg " . $udeb_sis_file_name ) == 0 or 

			die "UDEB sis creation failed";			

		print "\nSigning created mVPN_RnD_" . $PLATFORM . "_" . $mktime . "_udeb.sis\n";

		system ("signsis " . $udeb_sis_file_name . " " . $udeb_sis_file_name . " "  . $rdderdir . " " . $rdkeydir)  == 0 or 

			die "UDEB sis signing failed";	

	# remove temp files

	unlink <temp_*_udeb.pkg>;

}

else

{

	die "Unknown config " . $config . "\n";

}