#!/usr/bin/perl
# Copyright (c) 2007-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:
# Script to automate copying of DirectGDI reference images to location where comparison tests can be run.
# 
#

use strict;
use Cwd;

my $srcloc = $ARGV[0] ;#or die "No argument given";
if (!$srcloc)
{
	print "Please specify the source directory which contains graphics component.\n";
	exit;
}
my $imagedir = "\\directgdi\\test\\images\\reference";
# Check argument given exists
if (! -d $srcloc.$imagedir)
{
	print "$srcloc is not a valid source code location for the graphics component.\n";
	exit;
}

# Must be run from \epoc32\winscw\c\ or \epoc32\data\c
if(getcwd() !~ /c\/img/i)
{
print "This tool should be run from \\epoc32\\winscw\\c\\img\\ or \\epoc32\\data\\c\\img\\\n";
exit
}

my $copycmd = "unzip -qo $srcloc$imagedir\\reference.zip -d .\\ref";
print $copycmd."\n";
print `$copycmd`;
my $copycmd2 = "unzip -qo $srcloc$imagedir\\replacements_from_directgdi\\replacement.zip -d .\\ref";
print $copycmd2."\n";
print `$copycmd2`;