Select Code to Download

Select or download this

sub cleanExit
  {
        my( $Sftp, $errstr, $errcode) = @_;
...
                  cleanExit( $Sftp, "Cannot upload $srcfile ", 5);
            }
         }

Select or download this

perl copyXmlToExternalSftp.pl --xmlfile XMLG2WF007 --sourcedir /opt/si
+pTL1/XMLs --ftpip 10.242.251.26  --destdir /pub/OntSw/Download
OpenSSH_6.6.1, OpenSSL 1.0.1e-fips 11 Feb 2013
debug1: Reading configuration data /etc/ssh/ssh_config
...
Transferred: sent 2928, received 1888 bytes, in 0.2 seconds
Bytes per second: sent 15231.8, received 9821.6
debug1: Exit status -1