--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/commsinfrastructureapitest/commsinfrastructuresvs/suite/group/InsertIpAddr.pl Thu Dec 17 09:22:25 2009 +0200
@@ -0,0 +1,95 @@
+#
+# 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]);