#

# Copyright (c) 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:

#

#print "$ARGV[0]\n";

#print "$ARGV[1]\n";

#print "$ARGV[2]\n";

open(FILE, "$ARGV[0]") or die "can't open file $ARGV[0] : $!\n";

while ($line = <FILE>)

	{

	$line = "$ARGV[2]\n" if $line =~ /^$ARGV[1]/;

	push(@newfile, $line);

	};

close(FILE);

#print "finished reading file.... now writing to file\n";

open(FILE2, ">$ARGV[0]") or die "can't write to file $ARGV[0] : $!\n";

foreach $part (@newfile)

	{

	print FILE2 "$part";

#print "$part";

	};

close(FILE2);

#print "FINISHED \n";