use strict;
use warnings;

use Date::Manip;
use Archive::Zip;
use Net::SFTP::Foreign;
use Data::Dumper;

BEGIN {
	Win32::SetChildShowWindow(0) if defined &Win32::SetChildShowWindow;
}

my $producer = "file_copy";

my $output_log = $producer . "_output_log.log";

my $error_log = $producer . "_error_log.log";

my $copy_log = $producer . "_log.log";

unlink( $error_log );

unlink( $output_log );
 
close(STDOUT);
open(STDOUT, ">>$output_log");

close(STDERR);
open(STDERR, ">>$error_log" );

# Nessus directory
my $nessus_dir = '/opt/sc4/orgs/1/VDB';

my $incoming_dir = 'C:\\Users\\Administrator\\Incoming';

# Data file directory
my $data_dir = 'C:\\Users\\Administrator\\Data';

my $host = '10.10.10.10';
my $user = 'user';
my $password = 'password';


# Check the copylog for the last set of files loaded

my $last_loaded_date;

open ( LOG_DATA, "<$copy_log");

while ( my $line = <LOG_DATA>) {
	chomp $line;
	next unless( $line =~ /Last Loaded/ );
	my @last_loaded_time_line = split( /:/, $line );
	$last_loaded_date =  $last_loaded_time_line[1];
	last;
}
close ( LOG_DATA);

print "Getting files more recent than $last_loaded_date\n";

my $dm1 = new Date::Manip::Date;
my $dm2 = $dm1->new_date;
my $now_date = $dm1->new_date;

my $time_stamp = time;
my $err = $now_date->parse( "epoch $time_stamp" );
my $current_date = $now_date->printf( "%Y-%m-%d %H:%M:%S" );

$last_loaded_date =~ s/^\s+//;
$last_loaded_date =~ s/\s+$//;

$dm1->parse( $last_loaded_date ); 

my $sftp = Net::SFTP::Foreign->new( $host, user => $user, password => $password, ssh_cmd => 'plink' );
$sftp->error and die "Unable to connect to remote host: " . $sftp->error;

# Get the files
chdir $incoming_dir;

my @ls1 = @{ $sftp->ls( $nessus_dir, names_only => 1, ordered => 1 ) };
my $last_loaded;

foreach my $dir_date ( @ls1 ) {
	next unless $dir_date =~ /\d{4}-\d{2}-\d{2}/;

	$dm2->parse( $dir_date );
	if ( $dm1->cmp( $dm2 ) == -1 ) {
		$sftp->mget( "$nessus_dir/$dir_date/*nessus-results.zip" ) or die "Unable to transfer files: " . $sftp->error;
		$last_loaded = $dir_date;
		print "Getting files from directory $dir_date\n";
	}
}

undef $sftp;

open( LOG,">../$copy_log ") or die $!;

print LOG "Copied Nessus reports from SecurityCenter\n";
print LOG "Last copy run on: $current_date\n";
print LOG "Last Loaded (directory name): $last_loaded\n";

close( LOG );