system("ftp -n $gsRemoteMachine <<EOF> $gsStatusFile 2>&1\n\nuser $gsFtpId$gsGateConnect $gsFtpPwd\nverbose\n$gsFtpMode\nput $gsFeedsDir$gsFeedZipFile $gsRemoteDir$gsFeedZipFile\nclose\nbye\nEOF");

print "verifying FTP status...";

# Get FTP session record
if(!open(STATUSFILE, $gsStatusFile)) {
  print "\n".$gsSysErr."Cannot open file $gsStatusFile. FTP failed.\n";
  email_error($gsEmailAdmin, $gsErrSys, $gsErrSys."Cannot open file $gsStatusFile. FTP failed.");
}

@gaStatusLines = <STATUSFILE>;
close(STATUSFILE);

# check if "226 Transfer complete." occurs in gaStatusLines array
for( $ii=0; $ii<=$#gaStatusLines; $ii++) {
  if(@gaStatusLines[$ii] eq "226 Transfer complete.\n") {
	$gnFtpFailed = 0;
	    break;
    }
}

if( $gnFtpFailed ) { 

# "226 Transfer Complete" not found in gaStatusLines, so FTP failed.
# print FTP fail message
  print "\n".$gsSysErr."FTP failed.\n";
  print "\nFTP session:\n";
  print @gaStatusLines;

# send admin email
  email_error($gsEmailAdmin, $gsErrSys, $gsErrSys."FTP failed.\nFTP session:\n@gaStatusLines");
}