Merge missed changeset 11 (raptor v2.14 and helium 10.0)
#!/usr/bin/perl# Copyright (c) 2008-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:# e32toolp/genutil/listzip.pl# Utility for listing the contents of a zip file.# Syntax:# perl listzip.pl <prefix> <zipfile># This command will print all files in the <zipfile>. Each file name is prefixed by# <prefix> and is printed on a separate line.# ## Versionmy $MajorVersion = 1;my $MinorVersion = 1;my $PatchVersion = 0;sub _print_usage_and_die();sub _print_err_and_die(@);sub main(@){ my ($prefix, $zipf, @junk) = @_; _print_usage_and_die() if (!$prefix || !$zipf || @junk); _print_err_and_die("$prefix is not a directory.") unless -d $prefix; _print_err_and_die("$zipf doesn't exist.") unless -f $zipf; my @raw_data = qx/unzip -l $zipf/; for (@raw_data) { if ($_ =~ /^\s*\d+\s+\d\d[-|\/|\.]\d\d[-|\/|\.]\d\d\s+\d\d:\d\d\s+(.*)/) { my $line = "${prefix}/$1"; $line =~ s/\//\\/g if($^O =~ /^MSWin32$/i); # don't print directories under the <build> tags if (!($line =~ /[\\|\/]$/)) { print "$line\n"; } } }}sub _print_usage_and_die(){ print "LISTZIP zip files process tool V$MajorVersion.$MinorVersion.$PatchVersion\nusage: listzip.pl <prefix> <zipfile>\n"; exit 2;}sub _print_err_and_die(@){ print "listzip.pl: error: @_\n"; exit 1;}main(@ARGV);