diff -r 000000000000 -r c6b0df440bee dbgsrv/coredumpserver/test/automatictests/testdriver/html_file_copier.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dbgsrv/coredumpserver/test/automatictests/testdriver/html_file_copier.pl	Tue Mar 02 10:33:16 2010 +0530
@@ -0,0 +1,65 @@
+#
+# 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);
+	}