use strict;
use warnings;
package isomake;
use Fcntl;
our $package = 'ISOMake';
local $| = 1;

our $drive = $ARGV[0];
our $P00 = $ARGV[1];
our $path = $ARGV[2];

if(!defined $ARGV[0]){
    print "No drive letter Specified!\n";
	exit;
}
if(!defined $ARGV[1]){
    print "No item ID specified!\n";
	exit;
}
if(!defined $ARGV[2]){
    print "No path specified!\n";
	exit;
}

our $DIR = undef;
opendir($DIR,$drive) or die "Could not open $drive, Error :$!\n";
our @dirlist = sort readdir $DIR;
close $DIR;
undef $DIR;
@dirlist or die "No Directories found in $drive\n";
our @badfilelist=();
our $nP00 = 0;
our $nbad = 0;
our $problem = 0;

#my $KB = 1024;
my $KB = 1000;
#my $MB = 1048576;
my $MB = 1000000;
#my $GB = 1073741824;
my $GB = 1000000000;
		
print "\n***************Looking for Files and Directories***************\n";
foreach my $item (@dirlist) {
		#Read the source directory
		my @sfiles = ();                                                            # List of files in the source
		my $ssize = 0;                                                              # Count of file size
		my @dirlisting = ();
		my $ndir = 0;
		$dirlisting[0] = $drive;
		my $problem = 0;
		print "\n*****************Checking drive $drive*****************\n";
		FILE:
		foreach my $file (@dirlisting) {                                            # Look at each file
			print "\nChecking for files and folders in $drive\n";
			if (not -e $file) {
				print "$item seems to have an error\n";
				$problem++;
				next FILE;
			}
			my $DDIR = undef;
			if (not opendir($DDIR,$file)) {                                         # Open the directory
				print "Could not open Directory $item, Error: $!\n";
				$problem++;
				next FILE;
			}
			my @ddir = readdir $DDIR;                                               # Find out what is there
			close $DDIR;
			DIR:
			foreach my $dfile (@ddir) {                                             # And add it to the list
				if ($dfile =~ qr{^\.\.*$}) {next DIR;};
				my $dpath = $file . $dfile;
				if (-d $dpath) {
					$dpath .= '\\';
					push @dirlisting,$dpath;
					print "Found directory $dpath\n";
					$ndir++;
					next DIR;
				}
				my $file = undef;
				if (not open($file,'<',$dpath)) {                                    # Check you can read the file
					print "You cannot open $dpath, Error: $!\n";
					$problem++;
					next DIR;
				}
				my $x = '';
				my $rsize = 0;
				while (my $bytes = sysread($file,$x,32768,O_BINARY)) {
					if (not defined $bytes) {
						print "Error Reading File $dpath: $!\n";
						$problem++;
					}
					$rsize += $bytes;
				}
				close $item;
				my $fsize = (stat($dpath))[7];                                         # How big is it?
				if (not($fsize == $rsize)) {
					print "Byte Check Error in $dpath, Counted $rsize bytes, expected $fsize bytes\n";
					$problem++;
				}
				$ssize += $fsize;
				push @sfiles,$dpath;                                                   # Add it to the list of files to show
				print "Found file: $dpath, size = $fsize bytes\n";
			}
		}
		#$problem and die "Found $problem problems examining ISO $drive mounted on drive $drive\n";
		my $nfiles = @sfiles;
		print "\nFound $ndir directories on drive $drive\n";
		if ($ssize < $KB)
		{
		   print "Found $nfiles files on drive $drive, total size is approx $ssize bytes in size!\n";
		}
		elsif (($ssize > $KB) && ($ssize < $MB) )
		{
		   $ssize = $ssize / $KB;
		   my $ffsize = sprintf "%.2f",$ssize;
		   print "Found $nfiles files on $drive, total size is approx $ffsize KB in size!\n";
		}
		elsif ( ($ssize > $MB) && ($ssize < $GB) )
		{
		   $ssize = $ssize / $MB;
		   my $ffsize = sprintf "%.2f",$ssize;
		   print "Found $nfiles files on drive $drive, total size is approx $ffsize MB in size!\n";
		}
		else
		{
		   $ssize = $ssize / $GB;
		   my $ffsize = sprintf "%.2f",$ssize;
		   print "Found $nfiles files on drive $drive, total size is approx $ffsize GB in size!\n";
		}
	}
if ($nbad) {
	open (BADLIST, ">$path/BadFileList.txt") or die "$! error trying to overwrite";
	print BADLIST "****BAD FILE LISTING****\n";
	foreach my $L (@badfilelist)
				{
					print BADLIST "$L\n";
				}
	print BADLIST "\n$nbad possible bad images";
	close BADLIST;
}
print "\nFound $nbad bad file/s";

##</code><code>##

use strict; 
use warnings;
use File::Find qw(find); #Use File::Find module
#no warnings 'File::Find'; #This turns off the warnings for File::Find e.g. Folder access issues.

our $drive = $ARGV[0];

if(!defined $ARGV[0]){
    print "No drive letter Specified!\n";
	exit;
}
#*****************SET Variables************************
our $drivepath = $drive;
our @drivelisting=(); #Initialise the array
#******************************************************* 

find(\&all, $drivepath);
    foreach my $p (@drivelisting) #For each line (file/folder found) $p in the array @drivelisting
    {
        print "$p\n"; #Print each line in the array to screen
    }
				
sub all {#Sub routine for File::Find. on all locations
    my $fn = $File::Find::name;
    push @drivelisting, $fn if($fn ne "$drive");
}