#!/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`;