#!/usr/bin/perl

use strict;
use diagnostics;
use File::Path;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

############################################
# Prints the usage file if requested or if #
# called incorrectly                       #
############################################

if (@ARGV != 1        ||
    $ARGV[0] eq '--help'||
    $ARGV[0] eq '-help' ||
    $ARGV[0] eq '?')
{
  &printUsage; #Ommited for ease of review
}


# These variables store the locations of 
# the directory containing the zip
# Files to be tested, as well as the 
# location of the processed and error   
# files.                                                    

my $basePath = "C:/DocumentQC/Document Manipulation Area/Zip Test";

my $inputDirectoryName = "Input";
my $outputDirectoryName = "Output";
my $inputDirectory = "$basePath/$inputDirectoryName/";
my $outputDirectory = "$basePath/$outputDirectoryName/";

# Checks to see if all necessary directories 
# exist, and creates them if they don't.

my $outputDirectoryExists = 0;

opendir(PARENT_DIRECTORY, $basePath) || die ("Cannot open directory, m
+ake sure you've edited the $basePath variable in breakUpZipFiles1_0_0
+.pl.");
my @parentDirectoryArray = readdir(PARENT_DIRECTORY);
closedir(PARENT_DIRECTORY);

for my $i (0 .. $#parentDirectoryArray) {
  if ($parentDirectoryArray[$i] eq $outputDirectoryName) {
    $outputDirectoryExists = 1;
  }
}

if ($outputDirectoryExists == 0) {
  mkdir("$basePath/$outputDirectoryName", 0755);
}

# Opens the input directory and reads all files 
# to the @input array.

opendir(INPUT_DIRECTORY, $inputDirectory) || die("Cannot open input di
+rectory $inputDirectory - $!");
my @input = readdir(INPUT_DIRECTORY);
closedir(INPUT_DIRECTORY);

# Do the nasty!

#YOU MAY NEED Archive::Zip::setChunkSize( 4096 ); TO DEAL WITH THESE L
+ARGE FILES

my $fileIterator = 1;
my $zeroFill = "000"; #change later to fill properly

MAIN_LOOP: for (my $i = 0; $i < @input; $i++) {

#-------------------------------#
# Ignore if it isn't a zip file #
#-------------------------------#

  if ($input[$i] !~ /^(.*)\.zip$/) {
    print "\nSKIP FILE: \t\t$input[$i]";
    next MAIN_LOOP;
  }
  print "\nARCHIVE ENCOUNTERED: \t$input[$i]";
  my $baseFileName = $1;

#--------------------------------------------------#  
# Create a zip object for the file to break apart, #
# and a zip object for your smaller archive        #
#--------------------------------------------------#

  my $inputZipFile = Archive::Zip->new();
  unless ( $inputZipFile->read("$inputDirectory$input[$i]") == AZ_OK) 
+{
    die "Error reading zip file: $input[$i]";
  }
  
  my $outputZipFile = Archive::Zip->new();

#------------------------------------------------------#
# Create a list of the files in the current zip object #
#------------------------------------------------------#



#---------------------------------------------------#
# Add files from the old zip object sequentially to #
# the new zip object, delete it from the old one    #
#---------------------------------------------------#

# USE Archive::Zip::MemberRead (Page 4)

#-----------------------------------------------------#
# Iterate until there are 250 files in the new object #
#-----------------------------------------------------#

#---------------------------------------------------------#
# Zip the new object and place it in the pickup directory #
#---------------------------------------------------------#

  unless ( $outputZipFile->writeToFileNamed("$outputDirectory$baseFile
+Name\_$zeroFill$fileIterator\.zip") == AZ_OK) {
    die "Error reading zip file: $input[$i]";
  }

#------------------------------------------------------------------#
# If there are no more files in the old zip directory, destroy it  #
#------------------------------------------------------------------#

}
[download]