1 # Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).

     2 # All rights reserved.

     3 # This component and the accompanying materials are made available

     4 # under the terms of the License "Symbian Foundation License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.symbianfoundation.org/legal/sfl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Nokia Corporation - initial contribution.

    10 #

    11 # Contributors:

    12 #

    13 # Description:

    14 # Used within automated overnight testing system to insert results

    15 # of sysstart tests on hardware in test summary log.

    16 # 

    17 #

    18 

    19 use strict;

    20 

    21 my $file=@ARGV[0];

    22 my $fromString=@ARGV[1];

    23 my $insertString1=@ARGV[2];

    24 my $insertString2=@ARGV[3];

    25 

    26 my $outfile;

    27 

    28 if (not open (INFILE, "< $file"))

    29 	{

    30 	die "WARNING: insert.pl: Can't open $file";

    31 	}

    32 

    33 while (my $line = <INFILE>)

    34 	{

    35 	if ($line =~ /$fromString/)

    36 		{

    37 		$outfile .= $line;

    38 		$outfile .= $insertString1;

    39 		$outfile .= "\n";

    40 		$outfile .= $insertString2;

    41 		$outfile .= "\n";

    42 		}

    43 	else

    44 		{

    45 		$outfile .= $line;

    46 		}

    47 	}

    48 close(INFILE);

    49 

    50 open (OUTFILE, "> $file");

    51 print OUTFILE $outfile;

    52 close(OUTFILE);