#

# Copyright (c) 2005-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 Getopt::Long;

sub Usage()

	{

	print <<USAGE_EOF;

Usage

perl uartscript.pl --in=FileNameIn --out=FileNameOut --port=Port --baud=Baud --help

    --in=FileNameIn             : Input file name

    --out=FileNameOut           : Output file name

    --port=Port                 : Serial port number

    --baud=Baud                 : Baud rate of the port

    --help                      : This help

USAGE_EOF

	exit( 0 )

	}

sub main()

{

	my	$help='';

	my	$input="";

	my	$output="";

	my	$port="";

	my	$baud="";

	GetOptions(

		'in=s'		=> \$input,

		'out=s'		=> \$output,

		'port=s'	=> \$port,

		'baud=s'	=> \$baud,

		'help' 		=> \$help

	);

	if($help or ($input eq "") or ($output eq "") or ($port eq "") or ($baud eq ""))

		{

		Usage();

		exit(0);

		}

	open(FIN, $input);

	open(FOUT, ">$output");

	foreach (<FIN>)

	{

		if (/<port>/)

		{

			s/<port>/$port/;

		}

		if (/<baud>/)

		{

			s/<baud>/$baud/;

		}

		print FOUT $_;

	}

	close(FIN);

	close(FOUT);

}

main();