#!/usr/bin/perl -w
use Archive::Zip qw( :CONSTANTS );
use POSIX;
use File::Basename;
use File::Copy;
use strict;

##############################################################
#
# $Author: $
# $Date:   $
# $Locker: $
#
# When       - 28 Mar 2001
# Purpose    - (sensored)
#
## MANY thanks to Ned Konz.  He is the author and maintainer
## of the Archive::Zip module.  He was integral in assisting
## me in getting this blasted thing to work the way I needed
## it to work.
##
#
# History:
#
# TODO:
#
##############################################################

my $sandbox = "/tmp/sandbox";

opendir(D,"$sandbox") or warn("Could not open $sandbox\n");
my @FILES = grep(/(\.EXE)/,readdir(D)) or die("Read error in $sandbox at line " . __LINE__ . "\n");;
close(D);

chdir("$sandbox");

for ( @FILES ) {
    my $file = $_ ;
    my $unzip = Archive::Zip->new("$file");
    warn("Read error in $file at line " . __LINE__ . "!\n") if ( ! defined($unzip) ) and next;

    foreach my $member ( $unzip->members() ) {
	print "**** File to be extracted: " . $member->fileName() . "\n";
        warn("Hmm, there was a problem\n") 
	    if ( !defined($member->extractToFileNamed( "$sandbox/" . $member->fileName() )) );
    }
}

0