#
# Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# This component and the accompanying materials are made available
# under the terms of the License "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: 
# This script is designed to provide a working ethernet setup
# for EKA1 or EKA2.  It works by running Netcards.exe
# then taking the output from Netcards (ethernet.ini)
# and appending the ethernet settings to epoc.ini for EKA2
# or creating ethermac.dat and etherdriver.dat for EKA1
# The script can
# - create a working ethernet setup with "ethernet" config option
# - restore previous setup with "restore" config option
# Please note: The script assumes that target wins is running on EKA1
# Copied from configchange.pl to make use of environment varible for mac address
# Copied from configchangebats.pl to adapt for multiple network cards in "Blade" type servers.
#

use Getopt::Long;
use Cwd;

use Getopt::Long;
use Cwd;

my $config="default";
my $target="default";
my $kernel="default";
my $showhelp='0';

my $etherNif;
my $etherMac = $ENV{'WINSCW_MAC'};
my $etherSpeed; 

# this variable is passed as an argument to netcards.exe
# specifies which interface to use in case of multiple interfaces

my $interface=0;

$/ = "\n";

GetOptions('config=s' => \$config, 'kernel=s' => \$kernel, 'target=s' => \$target, 'variant=s' => \$variant, 'help' => \$showhelp, 'interface:i' => \$interface);

$config = lc( $config );
$kernel = lc( $kernel );
$target = lc( $target );
$variant = lc( $variant );



if( $showhelp || ( $kernel ne "eka1" && $kernel ne "eka2" ) ||
 ( $target ne "wins" && $target ne "winscw" ) ||
 ( $config ne "ethernetwithcommdb" && $config ne "restorecommdb" && $config ne "ethernetnocommdb" ) ||
 ( $variant ne "udeb" && $variant ne "urel" ) )
	{
	print "Command usage: configchange --config [ethernetWithCommDB|restoreCommDB|ethernetNoCommDB] --kernel [EKA1|EKA2] --target [wins|winscw] --variant [UDEB|UREL]\n";
	print "\t\t--config   \tSelect required configuration\n";
	print "\t\t--kernel   \tKernel variant\n";
	print "\t\t--target   \tTarget emulator\n";
	print "\t\t--variant  \tBuild type\n";
	print "\t\t--interface  \tInterface Number\n";
	print "\t\t--help   \tThis text\n";
	exit 0;
	}

my $epocroot = &getEpocroot;
my $drive = &getDrive;

if($ENV{'SERVER_TYPE'} && $ENV{'SERVER_TYPE'} =~ /blade/i){
  $interface=1;
}


my $netIF = "";
my $netConfigOutput  = `net config rdr`;

# Sample output:
#J:\epoc32\winscw\c>net config rdr
#Computer name                        \\SYWINPAP0005
#Full Computer name                   SYWINPAP0005.prod.ad.symbian.intra
#User name                            extkesavanathimoolam
#
#Workstation active on
#        NetbiosSmb (000000000000)
#        NetBT_Tcpip_{0B887A6F-A34C-4A43-85A4-FA5D58BEEE8A} (00215E2CB2F6)


# capture the network-interface info to compare it later with netcards output
if($netConfigOutput =~ /NetBT_Tcpip_\{(.*)?\}/i){
        $netIF = $1;
}


# netcards output sample
#J:\epoc32\winscw\c>\epoc32\tools\netcards.exe 1
#Adapters installed:
#N/A - \Device\NPF_GenericDialupAdapter
#        Adapter for generic dialup and VPN capture
#
#  1 - \Device\NPF_{0B887A6F-A34C-4A43-85A4-FA5D58BEEE8A}
#        Broadcom Advanced Server Program Driver for Windows Server 2003 with SNP
#
#
#  2 - \Device\NPF_{11F02767-7BDE-49FF-87F2-FD7F46FA8C60}
#        Broadcom L2 NDIS client driver
#
#  3 - \Device\NPF_{9672396E-2361-42BF-80CF-1E03AF7BD59F}
#        Broadcom L2 NDIS client driver
#
#Using adapter 1
#Physical address read: 00:21:5e:2c:b2:f6
#Writing settings to ethernet.ini.


$netCardsCommand = "$drive\\$epocroot\\epoc32\\tools\\netcards $interface";
foreach (split("\n",`$netCardsCommand`)){
        if(/\s*(\d)\s+\-\s+.*?$netIF/){
               $interface = $1;
			   last;
	}
}


 

if( $config ne "restorecommdb" )
	{
	# must be creating some ethernet setup
	if( $config eq "ethernetwithcommdb" )
		{
		# write an appropriate commDB setup
		print( "Setting up CommDB for ethernet\n" );
		system( "$drive\\$epocroot\\epoc32\\release\\$target\\$variant\\ceddump" ) == 0 
				or die "Error running ceddump!\n";
		system( "move $drive\\$epocroot\\epoc32\\$target\\c\\cedout.cfg $drive\\$epocroot\\epoc32\\$target\\c\\nonethernetced.cfg" ) == 0
				or die "Failed to rename cedout.cfg!\n";
		system( "$drive\\$epocroot\\epoc32\\release\\$target\\$variant\\ced -dtextshell -- -i c:\\EthernetCed.xml") == 0
				or die "Error running ced!\n";
  		}
  	print( "Running Netcards to obtain adapter info\n" );
	system( "$drive\\$epocroot\\epoc32\\tools\\netcards $interface" ) == 0
			or die "Error running netcards!\n";

	open ( INFILE, "ethernet.ini" ) or die "Can't find netcards output file, ethernet.ini!\n";					 # get from current directory where netcards wrote it to

	if ($kernel eq "eka1")
		{
	   	open ( ETHERDRV, ">$drive\\$epocroot\\epoc32\\$target\\c\\system\\data\\etherdriver.dat" ) or die "Can't open $drive\\$epocroot\\epoc32\\$target\\c\\system\\data\\etherdriver.dat!\n";
	   	}

	while( <INFILE> )
		{
		chomp;
	   	my $sLine = $_;

		if( $sLine =~ /ETHER_NIF=(.*)/i )
			{
			#print "Matched ETHER_NIF\n";
			if ($kernel eq "eka1")
				{
				print ETHERDRV "$1";
    			}
			else
				{
				$etherNif = $1;
				}
			}
		elsif( $sLine =~ /ETHER_SPEED=(.*)/i )
			{
			#print "Matched ETHER_SPEED\n";
			if ($kernel eq "eka2")
				{
				$etherSpeed = $1;
    			}
			}
		#print "line: $sLine\n";
		}
	if ($kernel eq "eka1")
		{
		close( ETHERDRV );
  		}
  	else
  		{
  		# do the insertion to epoc.ini
  		&generateEpocIni;
    	}
	close( INFILE );
	}
else
	{
	if( -f "$drive\\$epocroot\\epoc32\\$target\\c\\nonethernetced.cfg" )
		{
		system( "$drive\\$epocroot\\epoc32\\release\\$target\\$variant\\ced -i c:\\nonethernetced.cfg" ) == 0
				or die "Can't find backup ced file!\n";
		system( "move $drive\\$epocroot\\epoc32\\$target\\c\\nonethernetced.cfg $drive\\$epocroot\\epoc32\\$target\\c\\cedout.cfg" ) == 0
				or die "Can't rename backup ced file!\n";
		}
	else
		{
		print "No restore file found!\n";
		}
	}




#
# Determines, validates, and returns EPOCROOT.
#
sub getEpocroot
{
    my $epocroot = $ENV{EPOCROOT};
    die "ERROR: Must set the EPOCROOT environment variable.\n"
	if (!defined($epocroot));
    $epocroot =~ s-/-\\-go;	# for those working with UNIX shells
    die "ERROR: EPOCROOT must be an absolute path, " .
	"not containing a drive letter.\n" if ($epocroot !~ /^\\/);
    die "ERROR: EPOCROOT must not be a UNC path.\n" if ($epocroot =~ /^\\\\/);
    die "ERROR: EPOCROOT must end with a backslash.\n" if ($epocroot !~ /\\$/);
    die "ERROR: EPOCROOT must specify an existing directory.\n"
	if (!-d $epocroot);
    return $epocroot;
}

#
# Determines and returns the current drive, if any.
#
sub getDrive
{
    my $wd = cwd;
    my $drive;
    if($wd =~ /^([a-zA-Z]:)/) {
	$drive = $1;
    } else {
	# Perhaps we're on a machine that has no drives.
	$drive = "";
    }
    return $drive;
}

#
#
#
sub generateEpocIni
{
	my @outLines;
	my $length = 0;
	my $needToAppend = TRUE;
	my $epocIniAlreadyExists = FALSE;
	my $finished = FALSE;
 	print "generating epoc ini\n";
	if ( -e "$drive\\$epocroot\\epoc32\\data\\epoc.ini" )
	   {
	   $epocIniAlreadyExists = TRUE;
 	   open( EPOCINI, "+<$drive\\$epocroot\\epoc32\\data\\epoc.ini" );
	   seek( EPOCINI, 0, 0 );
	   while( <EPOCINI> )
	   		{
			chomp;
	   		my $sLine = $_;
			if( $sLine =~ /ETHER_NIF=(.*)/i )
				{
				#print "matched etherNIF\n";
				$length = length( $etherNif );
				
    			substr( $sLine, (index( $sLine, "=" )+1), $length ) = $etherNif;
				$needToAppend = FALSE;
				}
			elsif( $sLine =~ /ETHER_MAC=(.*)/i )
				{
				print "Matched ETHER_MAC\n";
				$length = length( $etherMac );
				substr( $sLine, (index( $sLine, "=" )+1), $length ) = $etherMac;
				$needToAppend = FALSE;
	    		}
			elsif( $sLine =~ /ETHER_SPEED=(.*)/i )
				{
				#print "Matched etherSpeed\n";
    			$length = length( $etherSpeed );
				substr( $sLine, (index( $sLine, "=" )+1), $length ) = $etherSpeed;
				$needToAppend = FALSE;
	   			}
			push( @outLines, $sLine );
			push( @outLines, "\n" );
	   		}
	   	if ( $needToAppend eq FALSE )
	   	   	{
	   	   	print "Writing new settings into epoc.ini\n";
	   	   	# we have read the entire file and replaced what we need to
	   	   	# now lets write it back to the file
		   	seek( EPOCINI, 0, 0 );
	   	   	print EPOCINI @outLines;
	   	   	$finished = TRUE;
           	}
        close ( EPOCINI );
		}

	if ( $finished eq FALSE )
	    {
       	if ( ($needToAppend eq TRUE) && ($epocIniAlreadyExists eq TRUE) )
       	    {
       	    print "Appending settings to current epoc.ini\n";
       	  	# we must append all the settings onto the end of the current epoc.ini
	   	  	open( EPOCINI, ">>$drive\\$epocroot\\epoc32\\data\\epoc.ini" ) or die "Can't open epoc.ini!\n";
       	  	}
    	elsif ( $epocIniAlreadyExists eq FALSE )
       	 	{
       	 	print "Creating new epoc.ini\n";
       	  	# create new file
	   	  	open( EPOCINI, ">$drive\\$epocroot\\epoc32\\data\\epoc.ini" );
       	  	}

		print EPOCINI "\nETHER_NIF=";
	   	print EPOCINI "$etherNif\n";
	   	print EPOCINI "ETHER_MAC=";
	   	print EPOCINI "$etherMac\n";
	   	print EPOCINI "ETHER_SPEED=";
	   	print EPOCINI "$etherSpeed\n";
	   	close ( EPOCINI );
     	}
}





