commsinfrastructureapitest/commsinfrastructuresvs/suite/group/InsertIpAddr.pl
author Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>
Thu, 17 Dec 2009 09:22:25 +0200
changeset 0 dfb7c4ff071f
permissions -rw-r--r--
Revision: 200951 Kit: 200951

#
# 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 InsertIpAddr.pl --in=FileNameIn --out=FileNameOut [--connection=Connection] --tag=Tag --help

    --in=FileNameIn             : Input file name

    --out=FileNameOut           : Output file name

    --connection=Connection     : Name of connection to get IP address of
                                  defaults to "Local Area Connection"

    --tag=Tag                   : Tag in input file to replace with the IP address

    --help                      : This help
USAGE_EOF
	exit( 0 )
	}

sub trim($)
{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}

sub main($$$$)
{
	my	($fileNameIn, $fileNameOut, $connectionName, $tagName) = @_;

	my	$help='';
	my	$input="";
	my	$output="";
	my	$connection="Local Area Connection";
	my	$tag="";

	GetOptions(
		'in=s'			=> \$input,
		'out=s'			=> \$output,
		'connection=s'	=> \$connection,
		'tag=s'			=> \$tag,
		'help' 			=> \$help
	);

	if($help or ($input eq "") or ($output eq "") or ($connection eq "") or ($tag eq ""))
		{
		Usage();
		exit(0);
		}

	my	$ipAddr=trim(`perl -S getipaddr.pl -connection=\"$connection\"`);
	print $ipAddr, "\n";
	if ($ipAddr == "")
	{
		print "ERROR: No IP Address\n";
		exit(-1);
	}

	my	@newLines = ();
	open(FIN, $input);
	open(FOUT, ">$output");

	foreach (<FIN>)
	{
		if (/$tag/)
		{
			s/$tag/$ipAddr/;
		}
		print FOUT $_;
	}
	close(FIN);
	close(FOUT);
}

main($ARGV[0], $ARGV[1], $ARGV[2], $ARGV[3]);