/*

* Copyright (c) 2004-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:

* Implementation of the Netcards.exe adapter selection application.

* This version writes settings to an ethernet.ini file only.  The perl

* script "configchange.pl" can be used to run this version of Netcards.exe

* and extract the ethernet settings from ethernet.ini and place them in the

* correct setup files for EKA1 (ethermac.dat and etherdriver.dat) or EKA2 (epoc.ini).

* there is a bug in the rpcasync.h windows header file

* where the forward declaration for type _RPC_ASYNC_STATE

* type is locally scoped inside an extern C block, rather

* than outside it, so we have turned this warning off, as

* we can;t change the header file... 

* 

*

*/

/**

 @file NETCARDS.C 

 @internalTechnology

 @file

*/

#pragma warning (disable : 4115)

#include <windows.h>

#pragma warning (default : 4115)

#include <stdio.h>

#include <malloc.h>

#include <conio.h>

#define EPOC_INI_FILE			"ethernet.ini"

#define EPOC_INI_FILE_TEMP		"__temp__ethernet__.ini"

#define	ETHER_NIF_ENTRY			"ETHER_NIF"

#define	ETHER_MAC_ENTRY			"ETHER_MAC"

#define	ETHER_SPEED_ENTRY		"ETHER_SPEED"

#define MAX_VALUE		80

#define MAX_LINE		100

#define MAX_OID_DATA	256

#define OID_802_3_CURRENT_ADDRESS		   		0x01010102

char    AdapterList[10][1024];

// replace or write new 'value' for 'entry' in epoc.ini file

// returns 0 if ok, negative value if sth wrong

int replace_in_inifile(char * entry, char* value, BOOL valUnicode );

int main(int argc, char* argv[])

{

	// Packet.lib variables:

	LPADAPTER  lpAdapter = 0;

	PPACKET_OID_DATA pOidData = malloc( sizeof(PACKET_OID_DATA) + MAX_OID_DATA );

	NetType *type = malloc(sizeof(NetType));

	UINT speed_Mbps = 0;

	BOOL isWinNT = FALSE;

	int        i;

	DWORD dwVersion;

	DWORD dwWindowsMajorVersion;

	//unicode strings (winnt)

	WCHAR		AdapterName[8192]; // string that contains a list of the network adapters

	WCHAR		*temp,*temp1;

	//ascii strings (win95)

	char		AdapterNamea[8192]; // string that contains a list of the network adapters

	char		*tempa,*temp1a;

	int			AdapterNum=0,Open;

	unsigned long		AdapterLength;

	FILE * inifile;

	char		speed_value[10];

	char		*MAC_value = malloc( 13*sizeof(char) );

	char		*temp2 = malloc( 13*sizeof(char) );

	//interfaceArg specifies the interface # passed fron configchange.pl

	//set interfaceArg to argv[1] if arguments are passed

	int interfaceArg = 0;

	if ( argc>1 && argv[1] )

	{

		interfaceArg = atoi(argv[1]);

	}

	// obtain the name of the adapters installed on this machine

	//printf("Adapters installed:\n");

	i=0;

	// the data returned by PacketGetAdapterNames is different in Win95 and in WinNT.

	// We have to check the os on which we are running

	dwVersion=GetVersion();

	dwWindowsMajorVersion =  (DWORD)(LOBYTE(LOWORD(dwVersion)));

	if (!(dwVersion >= 0x80000000 && dwWindowsMajorVersion >= 4))

	{  // Windows NT

		isWinNT = TRUE;

		AdapterLength=sizeof(AdapterName);

		PacketGetAdapterNames((char*)AdapterName,&AdapterLength);

		temp=AdapterName;

		temp1=AdapterName;

		while ((*temp!='\0')||(*(temp-1)!='\0'))

		{

			if (*temp=='\0')

			{

				memcpy(AdapterList[i],temp1,(temp-temp1)*2);

				temp1=temp+1;

				i++;

			}

		temp++;

		}

		AdapterNum=i;

		// we want to automate the adaptor selection process

		// but if there are more than one to choose from, we can't

		// so

		if (AdapterNum>1)

		{

			for (i=0;i<AdapterNum;i++)

			{

				wprintf(L"\n%d- %s\n",i+1,AdapterList[i]);

   			}

			printf("\n");

  		}

	}

	else	//windows 95

	{

		AdapterLength=sizeof(AdapterNamea);

		PacketGetAdapterNames(AdapterNamea,&AdapterLength);

		tempa=AdapterNamea;

		temp1a=AdapterNamea;

		while ((*tempa!='\0')||(*(tempa-1)!='\0'))

		{

			if (*tempa=='\0')

			{

				memcpy(AdapterList[i],temp1a,tempa-temp1a);

				temp1a=tempa+1;

				i++;

			}

			tempa++;

		}

		AdapterNum=i;

		// we want to automate the adaptor selection process

		// but if there are more than one to choose from, we can't

		// so

		if (AdapterNum>1)

		{

			printf("Adapters installed:\n");

			for (i=0;i<AdapterNum;i++)

			{

				printf("\n%d- %s\n",i+1,AdapterList[i]);

   			}

			printf("\n");

  		}

	}

	// we want to automate the adaptor selection process

	// but if there are more than one to choose from, we can't

	// so

	//

	if (AdapterNum>1)

	{	

		if ( (interfaceArg>AdapterNum)||(interfaceArg<1) )

		{

			do

			{

				printf("Select the number of the adapter to use : ");scanf("%d",&Open);

				if (Open>AdapterNum) printf("\nThe number must be smaller than %d",AdapterNum);

			} while (Open>AdapterNum);

		}

		else

		{

			Open = interfaceArg;

		}

	}

	else

	{

		Open = AdapterNum;

 	}

	lpAdapter = PacketOpenAdapter(AdapterList[Open-1]);

	MAC_value[0] = '\0';

	temp2[0] = '\0';

	speed_value[0] = '\0';

	if( NULL != lpAdapter)

	{

		if ( TRUE == PacketGetNetType (lpAdapter, type) )

		{

			speed_Mbps = type->LinkSpeed / 1000000; // LinkSpeed is in bits per second

		}

		else

			printf("Could not read Ethernet card's speed\n");

		if ( type->LinkType != NdisMedium802_3)

			printf("NOT Ethernet802.3 card.\nNetwork Interface not supported\n");

		else

		{

			pOidData->Oid = OID_802_3_CURRENT_ADDRESS;

			pOidData->Length = MAX_OID_DATA;

			if ( TRUE == PacketRequest(lpAdapter, FALSE , pOidData) )

			{

				// get info obtained

//				printf("Physical address read: ");

	/*			printf("%x %x %x %x %x %x\n", pOidData->Data[0], pOidData->Data[1],

					pOidData->Data[2],pOidData->Data[3],

					pOidData->Data[4],pOidData->Data[5]

					);*/

				pOidData->Data[0] += 2; // changing address from global to local

				for( i=0; i<6; i++ )

				{

					strcpy( temp2, MAC_value);

					if( pOidData->Data[i] > 15 )

						// has 2 hex digits

						sprintf( MAC_value, "%s%x", temp2, pOidData->Data[i]);

					else

						sprintf( MAC_value, "%s0%x", temp2, pOidData->Data[i]);

				}

			}

			else

				printf("Failed to read physical address of Ethernet card\n");

		}

		free(pOidData);

		free(type);

		PacketCloseAdapter( lpAdapter );

	}

	else

	{

		// lpAdapter NULL

		printf("Problem with opening adapter (packet.lib issue)\n");

		return (1);

	}

	inifile = fopen(EPOC_INI_FILE, "a"); // to create if does exist

	if ( NULL != inifile )

		fclose(inifile);

	else

	{

		printf("Can't create or access %s.\n\n", EPOC_INI_FILE);

		return 0;

	}

	if ( 0 == replace_in_inifile( ETHER_NIF_ENTRY, AdapterList[Open-1], isWinNT ) )

		printf( "Netcards using adapter %d\n", Open );

	else

	{

		return 0;

	}

	if ( 0 != replace_in_inifile( ETHER_MAC_ENTRY, MAC_value, FALSE ) )

	{

		printf("Couldn't write MAC address to %s file\n", EPOC_INI_FILE);

		return (1);

	}

	if( 0 != speed_Mbps )

		sprintf( speed_value, "%dMbps", speed_Mbps);

	if ( 0 != replace_in_inifile( ETHER_SPEED_ENTRY, speed_value, FALSE ) )

	{

		printf("Couldn't write speed value to %s file\n", EPOC_INI_FILE);

		return (1);

	}

	//printf("Netcards has written settings to %s.\n\n", EPOC_INI_FILE);

	free(MAC_value);

	free(temp2);

	return (0);

}

int replace_in_inifile(char * entry_str, char* value, BOOL valUnicode)

{

	int err = 0; // 0 - ok, negative sth wrong

	int replaced = 0;

	int len = strlen(entry_str);

	FILE *	file;

	FILE *	tmp_file;

	char*  s = malloc(MAX_LINE);

	char *line = malloc(MAX_LINE);

	if ( NULL == (tmp_file = fopen(EPOC_INI_FILE_TEMP, "w")) )

	{

      printf( "Could not create '%s'\n", EPOC_INI_FILE_TEMP );

	  return -1;

	}

	if ( NULL == (file  = fopen(EPOC_INI_FILE, "r+")) )

	{

		fclose( tmp_file );

		remove( EPOC_INI_FILE_TEMP  );

		printf( "Could not open '%s'\n", EPOC_INI_FILE );

		return -1;

	}

	rewind(file);

	while( fgets(line, MAX_LINE, file) != NULL)

    {

		if (sscanf( line, "%s", s ) > 0) // to trim blank chars

		{

			s[len] = '\0';

			if( 0 == strcmp(entry_str, s))

			{

				fprintf(tmp_file, "%s=", entry_str);

				if( valUnicode == TRUE )

					fwprintf(tmp_file, L"%s\n", value);

				else

					fprintf(tmp_file, "%s\n", value);

				replaced = 1;

			}

			else

				if( EOF == fputs(line, tmp_file) )

				{

					err = -1;

					break;

				}

		}

	}

	free(line);

	free(s);

	if( (0 == replaced) && (0 == err) )

	{

		// no entry encountered - add new

		if( 0 != fseek( tmp_file, 0, SEEK_END ) )

					err = -1;

		fprintf( tmp_file, "\n%s=", entry_str);

		if ( valUnicode )

			fwprintf( tmp_file, L"%s\n", value);

		else

			fprintf( tmp_file, "%s\n", value);

	}

	if ( 0 != fclose(file ) )

	{

      printf( "Could not close %s file\n", EPOC_INI_FILE );

	  return -1;

	}

	if ( 0 != fclose( tmp_file ) )

	{

      printf( "Could not close %s file\n", EPOC_INI_FILE_TEMP );

	  return -1;

	}

	if( remove( EPOC_INI_FILE  ) == -1 )

	{

		printf( "Could not overwrite %s file\n", EPOC_INI_FILE );

		return -1;

	}

	if( rename( EPOC_INI_FILE_TEMP, EPOC_INI_FILE ) != 0 )

	{

		printf( "\nCould not rename '%s' to '%s'\n", EPOC_INI_FILE_TEMP, EPOC_INI_FILE );

		return -1;

	}

	return 0;

}