#
# 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:
#
#


use strict;
use Time::Local;
use File::Copy;
use Getopt::Long;


# Parameters

my $window_title;
my @custom_version;
my $S60_platform;
my $S60_version;
my $date;
my $string;
my $fwstring;
my $file;
my $bt;
my $fwid;

my $result = GetOptions(
		'w=s' => \$window_title, 
		'c=s' => \@custom_version, 
		'p=s' => \$S60_platform, 
		'pv=s' => \$S60_version,
		'pd=s' => \$date, 
		'bt' => \$bt,
		'fw=s' => \$fwid);	
if (!$result){&error_msg("Required Argument(s) are missing or wrong");}

	
#
# Main program
#
if ((!defined $S60_platform) && (!scalar @custom_version) && (!defined $window_title) && (!defined $bt)) {
	&error_msg("Required Argument(s) are missing");
}

if (defined $S60_platform) {
	initial_s60();
	sw_version(); 
}
elsif (scalar @custom_version){
	initial_custom();
	sw_version(); 
}

if (defined $window_title) {
	window_title ();
}

if (defined $bt) {
	bt_port_value();
}

if (defined $fwid) {
	fwid_version();
}


#
# S60 initialisation
#
sub initial_s60 (){
	my $version_short;

	if (defined $date) {
		unless ($date=~/now/i || $date=~/today/i || $date=~/\d\d-\d\d-\d\d/ ) {  &error_msg("Wrong date format. ");}
	}

# convert platform version string to short format
# like: S60_X_Y -> S60-XY
	my @temp_version = split('_',$S60_platform);

	foreach (@temp_version) {
		if ($version_short eq "") {
			$version_short = $_;
			$version_short .= "-";
		}
		else {
			$version_short .= $_;
		}
	}
	
	# create version string
	#V S60_31_200616\n20-04-06\nS60-31\n(c)NMP
	if (defined $date) {
		$string='V '.$S60_platform.'_'.$S60_version.'\n*DD*-*MM*-*YY*\n'.$version_short.'\n(c)NMP';
	}
	else {
		$string='V '.$S60_platform.'_'.$S60_version.'\nxx-xx-xx\nxxx-xxx\n(c)NMP';
	}

	$fwstring='V '.$S60_platform.'_'.$S60_version;
	
# set today to date
	if ($date=~/now/i || $date=~/today/i) {
		my ($time,$sek, $min, $hour, $day, $month, $year);
	  ($sek, $min, $hour, $day, $month, $year) = (localtime)[0,1,2,3,4,5];
	  $month += 1;
	  $year += 1900;
	  
	  my $year_short=$year;
	  $year_short=~s/.*(\d\d)$/-$1/;
	  $date=$day.'-'.$month.$year_short
	}
	
	$string=~s/\*DD\*-\*MM\*-\*YY\*/$date/; 
}

#
# Custom initialisation
#
sub initial_custom (){
	foreach (@custom_version) {
		if ($string eq "") {
			$string=$_;
		}
		else {
			$string.='\n';
			$string.=$_;
		}
	}
}

#
# Write new version information for Version project
#
sub sw_version (){
	$file="\\sf\\os\\deviceplatformrelease\\version\\data\\sw.txt";
  open (to_file,">$file") || die " Cannot create $file Reason: $!\n";
  #
  # Writing the version string in the unicode format.
  #
  print to_file "\xFF\xFE";
  for (my $i = 0; $i < length($string); $i++) {
    printf to_file "%s\0", substr($string,$i, 1);
  }
  close (to_file);
}


#
# Write new fwid version information to fwid files
#
sub fwid_version (){
# $fwid (is path to fwid files) = \\s60_RnD\build_RnD\version_rnd\data\

	my $fwid_file=$fwid."fwid1.txt";
	write_unicode ($fwid_file, "id=core", "version=".$fwstring );

	my $fwid_file=$fwid."fwid2.txt";
	write_unicode ($fwid_file, "id=language", "version=".$fwstring." lang" );

	my $fwid_file=$fwid."fwid3.txt";
	write_unicode ($fwid_file, "id=customer", "version=".$fwstring." cust" );
}

#
# Writing the version string in the unicode format.
#

sub write_unicode (){
  my $unicode_file = shift;
  my @unicode_lines = @_;


  open (to_file,">$unicode_file") || die " Cannot create $unicode_file Reason: $!\n";
	binmode to_file;

  print to_file "\xFF\xFE";
	my $size = scalar(@unicode_lines);

	foreach my $l (@unicode_lines) {
	  for (my $i = 0; $i < length($l); $i++) {
     printf to_file "%s\0", substr($l,$i, 1);
 	  }

  	$size--;

		if ($size) {
	  	print to_file "\x0D\x00\x0A\x00";
	  }
	}	
  close (to_file);
}

#
# Change window title for s60config project
# Set new window title to epoc*.ini files 
#
sub window_title ($){
  my(@files);
  # read configuration files from epoc.ini
	my $epoc_ini_file="\\s60\\mw\\uiresources\\uiconfig\\s60config\\src\\epoc.ini";
  open(INI,$epoc_ini_file) or die "Cannot open $epoc_ini_file\n";
  while (<INI>) {
	  chomp; #Remove line feed and carriage return  
	  if (/^configuration /) {
      $_ =~ s/^configuration //;
      push @files, $_;
    }
	}
  close INI;

# change window title to each configuration file
	foreach my $input_file (@files) {
	  my @lines;
		$file="\\s60\\mw\\uiresources\\uiconfig\\s60config\\src\\$input_file";
	  open(IN,$file) or die "Cannot open $file";
	  @lines=<IN>;
	  close IN;
	
	  foreach (@lines){
	  	$string = $_;
	    if (/^\s*WindowTitle\s+\S+/i) {
	      $_ = "WindowTitle ".$window_title."\n";
	    }
		}
		
	  open (OUT,">$file") || die "Cannot open $file for overwriting!\n";
	  print OUT @lines;
	  close OUT;
	}
}

#
# Change correct port value to allow emulator booting
#
sub bt_port_value(){
  my @lines;  
  my $bt_string;
	$file="\\epoc32\\release\\WINSCW\\UDEB\\Z\\private\\101f7989\\Esock\\bt.bt.esk";
  open(IN,$file) or die "Cannot open $file";
  @lines=<IN>;
  close IN;

  foreach (@lines){
  	$bt_string = $_;
    if (/^\s*port=\s+\S+/i) {
      $_ = "port= -1\n";
    }
	}
	
  open (OUT,">$file") || die "Cannot open $file for overwriting!\n";
  print OUT @lines;
  close OUT;
}


sub error_msg ($){
  my($ErrorMsg);
  ($ErrorMsg)=@_;
  my $given_command=$0;
  $given_command =~ s/.*\\(\w+\.\w+)$/$1/;
  print "";
  print "\n";
  print "Error: $ErrorMsg \n";
  print "\n";  
  print "Usage: $given_command [options]\n\n";
  print "  Options for change version information\n";
  print "    -p S60_platform [optional with -c]\n";
  print "    -pv S60_version [optional, require -p]\n";
  print "    -pd date [optional, require -p]\n";
  print "    -c custom_version [optional with -p]\n\n";
  print "  Option for change emulator window title\n";
  print "    -w window_title [optional]\n\n";
  print "  Option for change bt port to -1 for emulator\n";
  print "    -bt [optional]\n";
  print "    -fwid [optional](To update fwid files for Fota in rnd)\n"; 
  print "\n\n";  
  print "DATE uses dd-mm-yy format or you can give now/today\n\n";  
  print "Example: $given_command -p S60_3_1 -pv 200616 -pd now\n";  
  print "Example: $given_command -w 92_200614 -p S60_3_1 -pv 200616 -pd now -bt\n";  
  print "Example: $given_command -w 92_200614 -p S60_3_1 -pv 200616 -pd 26-04-06\n";  
  print "Example: $given_command -c \"custom\" -c \"version\"\n";  
  print "Example: $given_command -fw \s60_RnD\build_RnD\version_rnd\data\"\n";  
  die "\n";    
}