#

# 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";

	}

}