--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/haitest/bspsvs/suite/bsp/uart/group/uartscript.pl	Tue Feb 02 01:39:10 2010 +0200
@@ -0,0 +1,79 @@
+#
+# 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();