#!/usr/bin/perl  
use warnings;
use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use Time::localtime;
use Cwd;

my $dir = cwd;
system "cls";
die "Zip.pl\nUsage: <(c)ompress> <e(x)tract>\n"	unless(@ARGV == 1 or @ARGV == 2);
my $opt = shift @ARGV;
if($opt =~ /c/i){
	print "Running compress routine\n";
	GlobFiles();
}
if($opt =~/x/i){
	GlobFiles2();
}

sub GlobFiles{
	@_ = glob ('*');
	ZipFiles(@_);
	}

sub GlobFiles2{
	@_ = glob ('*');
	UnZip(@_);
}
	
sub ZipFiles{
	my $expr;
	
	if(@ARGV == 1){
		 $expr = shift @ARGV;
	}else{
		$expr = "tif\n"
	}
	chomp $expr;
	my $Zip = Archive::Zip->new();
	my ($wday, $month, $day, $t, $year)=split(/\s+/, ctime);
	my ($hour, $min, $sec)=split(/\:/, $t);
	my $new_t = "$hour-$min";
	my $ZipName = "$year $month\-$day $new_t";
	foreach(@_){
		next unless($_ =~ m/($expr)$/);
		my $member = $Zip->addFile($_);
		$member->desiredCompressionLevel( 9 );
		if($Zip->writeToFileNamed("$ZipName.zip") == AZ_OK) {
			# Below is used to remove the files once the files are zipped AZ_OK
			#unlink($_);
			print "$_ written to $ZipName.zip\n";
			}
			else{
				warn "Error writing $_ to $ZipName.zip\nTrying to continue\n";
			}
		}
		if( -e "$ZipName.zip"){
			print "Done creating $ZipName.zip\n";
		}else{
			print "No $expr files found in current directory\n";
		}
		undef $Zip;
	}

sub UnZip{
	my $zip = Archive::Zip->new();				# Allows the use of the zip module
	#my $FoldPath;
	foreach(@_){						# Searches through each file passed to the sub 
		next unless($_ =~ m/(zip)$/);			#skips all but zip files
		print "Opening $_ for extraction\n\n";
		#FoldNameCheck($Folder1);
		die "Error reading zip file" if $zip->read($_) != AZ_OK;
									# Errors if the zip file is not properly read.
		## !! Below is used for foldername. Does return name but does not make folder and extract to peroperly
		#FoldNameCheck($_);
		#sub returnname{
		#	no warnings;
		#	$FoldPath = shift @_;
		#	}
		my @members = $zip->members();			# used to view each item in the zip file
		no warnings;					# needed to keep module errors from popping up
		foreach (@members){			# Used to loop through each item in the zip
			#print "$_->{fileName}\n";	#Used to test if the default var would work.
			
			## !! used for foldername !! #
			#my $newname = "$FoldPath/$_";
			#$zip->extractMember($_, $FoldPath,$_);
			$zip->extractMember($_);		# Actually extracting file from zip
			print "Extracted $_->{fileName}\n";	# Display msg saying completion for each file
			}
		print "Done extracting files\n\n";			# Completion message
	}
}

sub FoldNameCheck{
	my $Folder = shift @_;
	$Folder =~ s/(\d+\s\w+\-\d+\s\d+\-\d+)(.+)/$1/;
	if(-e $Folder){
		print "Extracting ...\n";
	}else{
		#mkdir "$Folder" or die "Error creating $Folder\n";
		print "Making folder $Folder\n";
	}
	return returnname($Folder);
}