--- a/build/tools/check_environment.pl	Sat Feb 20 00:39:01 2010 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,121 +0,0 @@
-#
-# 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:
-#
-#!/usr/bin/perl
-
-# 
-# ==============================================================================
-#  Name        : unzip_check.pl
-#  Description : This script provides comparison functions to create a filelist
-#				 and to check if all files in the list are available on the
-#				 environment.
-# ==============================================================================
-# 
-
-use strict;
-
-use Getopt::Std;
-use vars qw($opt_c $opt_g);
-
-getopts("c:g:");
-
-if ($opt_g =~ m/-c/i || $opt_c =~ m/-g/i)
-{
-	&error_msg("Cannot generate and check at the same time!");
-}
-
-if ($opt_g)
-{
-	&generate();
-}
-elsif ($opt_c)
-{
-	&check();
-}
-else
-{
-	&error_msg("Please define the action and filename!");
-}
-
-
-sub error_msg
-{
-	my($ErrorMsg);
-	($ErrorMsg)=@_;
-	my $given_command=$0;
-	$given_command =~ s/.*\\(\w+\.\w+)$/$1/;
-	print STDERR "\nERROR: $ErrorMsg \n\n" unless ($ErrorMsg =~ /^$/);
-	print STDERR "\nUsage:\n\t$given_command <parameters>\n";
-	print STDERR "\nParameters:\n";
-	print STDERR "\t-g\tGenerate filelist from the environment into file specified after this parameter\n";
-	print STDERR "\t-c\tCheck if all the files are in the environment that are listed in the file specified after this parameter\n";
-	print STDERR "\nExamples:\n\t$given_command -g filelist.txt\n";
-	print STDERR "\t$given_command -c filelist.txt\n";
-	print STDERR "\n";  
-	die "\n";
-}
-
-
-sub generate
-{
-	unless ($opt_g =~ m/^$/)
-	{
-		open (STDOUT, ">".$opt_g);
-	}
-	
-	open (DIRS,"dir /s/b/a-d 2>nul |");
-	
-	my $current_dir = `cd`;
-	for ($current_dir)
-	{
-		s/^\s+//;
-		s/\s+$//;
-		s/^.\:\\//;
-	}
-	#$current_dir = $current_dir."\\";
-
-	while (my $file=<DIRS>)
-	{
-		chomp;
-		for ($file)
-		{
-			s/^\s+//;
-			s/\s+$//;
-			s/^.\:\\//;
-		}
-		substr($file, 0, length($current_dir)+1) = '';
-		{
-			print STDOUT $file."\n";
-		}
-	}
-}
-
-sub check
-{
-	open (INPUTFILE,$opt_c) or error_msg("Filelist $opt_c not found!");
-		
-	while (my $line=<INPUTFILE>)
-	{
-		chomp;
-		for ($line)
-		{
-			s/^\s+//;
-			s/\s+$//;
-		}
-		stat($line);
-		next if -f _;
-		print "MISSING: ".$line."\n";
-	}
-}
\ No newline at end of file