# 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.
# 
#

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;
	    # don't print directories under the <build> tags
	    if (!($line =~ /\\$/)) {
		    print "$line\n";
		    }
        }
    }
}

sub _print_usage_and_die()
{
    print "usage: listzip.pl <prefix> <zipfile>\n";
    exit 2;
}

sub _print_err_and_die(@)
{
    print "listzip.pl: error: @_\n";
    exit 1;
}

main(@ARGV);