#!/usr/bin/perl -w

$base_dir = substr($0,0,rindex($0,"/"));
chop($hostname = `hostname`);

# include shared subroutines
do "$base_dir/subroutines.pl";

$sftphost = "remote.sftpserver.net"; 
$sftpuser = "username";
$sftppass = "password";
$remotedir = "TO REMOTE"; 

($scriptname = "$0") =~ s/.*\///;

# begin log string
$outSTR = log_divider("BEGIN: (" . localtime() . ")");
$outSTR .= "$hostname : $scriptname - $subject\n";

# create string with name of log file based on $scriptname
$logfile= substr($scriptname,0,rindex($scriptname,".")) . ".log";
$log_dir= "$base_dir/log";

# Set up first log entry
  $outSTR .= log_divider("Begin Test Connection Script");
  print $outSTR;
  log_it($log_dir,$logfile,$outSTR);
	
# Connect to remote SFTP server
  $sftp = sftpf_connect($sftphost,$sftpuser,$sftppass);
	
# List remote directory contents
  @$remotefiles=$sftp->ls($remotedir); 
	
# Loop @$remotefiles and print each filename
  foreach (@$remotefiles){
  $file=$_;
  $filename=$file->{filename};
    if($filename ne "." && $filename ne ".."){
    print"the filename is $filename";
  }
 }
  
#Disconnect from remote server
  sftpf_disconnect($sftp);
 
# Write to log file
  $outSTR .= log_divider("End Test Connection Script");
  print $outSTR;
  log_it($log_dir,$logfile,$outSTR);
  
  print $outSTR;