--- a/build/tools/check_environment.pl Wed Apr 28 13:55:34 2010 +0100
+++ /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