perlquestion
spstansbury
<p>Greetings Monks.</p><p>I'm hoping someone with more ActivePerl experience that I can shed some light on the behavior that I'm seeing.</p><p>I have a script ( below ) that copies some Nessus scans to another machine for further processing.</p>
<p>When I run the script via perl.exe ( <code>>perl copy_files.wpl</code> ) it runs perfectly.</p>
<p>When I run it via wperl.exe, either on the command line ( <code>>wperl copy_files.wpl</code> ) or via Windows Task Scheduler, it fails with the error: <code>Unable to connect to remote host: Bad ssh command: Invalid argument at C:\Users\Administrator\RiskView\copy_files.wpl line 76.</code>
<p>I believe I have all the required tweaks for wperl - suppressing the window, redirecting STDERR and STDOUT to files, but as wperl.exe is supposed to be identical to perl.exe except for the need to launch a window, I'm at a loss to explain why it won't run the Net::SFTP::Foreign module without error.</p>
<p>As always, thanks for any input!</p>
<p>Best regards, Scott...</p>
<p>file_copy.wpl:</p>
<code>
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 );
</code>