#! /usr/bin/perl

use strict;
use warnings;
use Net::FTP;

my $test_exists = 0;

my $ftp = Net::FTP->new("machineB", Debug => 0) or die "Cannot connect to machineB: $@";

$ftp->login('usr','pass') or die "Cannot login ", $ftp->message;

my $result = $ftp->ls("/myincomming") or die "ls failed ", $ftp->message;

foreach (@{$result}) {
	print "$_\n";
	if ($_ =~ /(.)myincomming(.)test/i) {
		print "Dir Exists\n";
		$test_exists = 1;
		last;
	}
}

unless ($test_exists) { $ftp->mkdir("\\myincomming\\test") or die "mkdir failed ", $ftp->message; }

my $firstdir = "./Test";
&ProcessStruct("$firstdir");

sub ProcessStruct
{
	my $dir = shift;
	my $ftp_dir_exists = 0;

	my $file;

	print "DIR = $dir\n";
	opendir DIR, $dir || die "cannot check dir $dir : $!\n";

	my @files = readdir DIR;
	closedir DIR;

	foreach my $file(@files) {
		next if $file =~/^\./;

		if (-f "$dir/$file") {
			print "SEND $dir/$file to ftp server\n";
			&Put_File($dir, $file);
		}
		else {
			$file = "$dir/$file";
			my @ret = $ftp->ls("/Cubes/$file/..");
			foreach (@ret) {
				my @subdirs = split /\\/, $_;
				if ($file =~ /$subdirs[$#subdirs]/i) {
					$ftp_dir_exists = 1;
					last;
				}
			}

			unless ($ftp_dir_exists) { $ftp->mkdir("/myincomming/$file") or die " next mkdir failed ", $ftp->message; }
			$ftp_dir_exists = 0;
			&ProcessStruct("$file");
		}
	}
	close DIR;
}

sub Put_File
{
	my $dir		= shift;
	my $file 	= shift;

	my @ret = $ftp->ls("/myincomming/$dir");
	foreach (@ret) {
		if ($_ =~ /$file/i) {
			print "DONT PUT FILES = $_\n";
		}
		else {
			$ftp->put("$dir/$file", "/myincomming/$dir/$file") or die "Cannot put file ", $ftp->message;
		}
	}
}