#

# 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: 

#

// html_file_copier.pl

//

// Copyright (c) 2007 - 2008 Symbian Software Ltd.  All rights reserved.

//

use warnings;

use strict;

use File::Copy;

my $resDir = `testdriver resultpath`;

chomp $resDir;

print "$resDir\n";

if($resDir=~/^(.*testdriver\\[^\\]+\\armv5\\udeb\\)\d+\\$/)

	{

	print "$1\n";

	my $prevDir = $1;

	my @files = <$prevDir*>;

	foreach my $file (@files)

		{

		print "$file\n";

		if(-d $file)

			{

			print "Setting resDir: $resDir\n";

			$resDir = $file . "\\";

			next;

			}

		}

	}

if($resDir=~/^(.*testdriver\\)([^\\]+)\\armv5\\udeb\\(\d+)\\$/)

	{

	my $outputDir = $1;

	my $build = $2;

	my $run = $3;

	my $input = "$resDir" . "run$run\_$build.html";

	print "Input: $input\n";

	my $output = "$outputDir". "out.html";

	print "Output: $output\n";

	if(!copy($input, $output))

		{

		print "Couldn't copy results";

		exit (2);

		}

	}

else

	{

	print "Couldn't find results";

	exit(1);

	}