ssh-sftp-perl-users — For users and developers of the Perl SSH and SFTP modules

[Ssh-sftp-perl-users] Net-SSh2 for Active Perl 5.10

[Yuri S. <yu...@ju...>]

Hi,

Is there a PPD for this version of perl?

-- 

Yuri

Re: [Ssh-sftp-perl-users] new Net-SFTP-0.10 module install on solaris 10 sparc machine???

[Salvador F. <sfa...@ya...>]

Hi,

It seems that gcc can not find the assembler. Adjust your $PATH or install the assembler.

I have been able to compile Math::Pari under Solaris 10 and the bundled
Perl 5.8.4 using the SUN compiler (that is "gratis", available from
sun.com). It is recommended to use the same C compiler that was used
for compiling Perl.

Another option is to just compile a new Perl using gcc and use it instead of the one that comes with the OS.

Cheers,

 - Salva




----- Original Message ----
> From: "Arifuddin, Arif" <Ari...@xe...>
> To: Salvador Fandino <sfa...@ya...>; ssh...@li...
> Sent: Mon, October 19, 2009 7:35:35 PM
> Subject: Re: [Ssh-sftp-perl-users] new Net-SFTP-0.10 module install on solaris 10 sparc machine???
> 
> # cd Math-Pari-2.010801
> # ls
> blib              libPARI          Makefile.PL       pari-2.1.7.tgz    patches  
>          test_eng
> Changes           libPARI.dumb.pod  MANIFEST          PariInit.pm      
> pm_to_blib        TODO
> func_codes.h      libPARI.pod       META.yml          Pari.pm           README  
>           typemap
> INSTALL           Makefile          pari-2.1.7        Pari.xs           t        
>          utils
> # bash
> # /usr/perl5/bin/perlgcc Makefile.PL
> Setting up Math::Pari with Perl 5.008004 on solaris version 2.10;
>    cc=gcc, gccversion=, ccflags='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 
> -D_TS_ERRNO',
>    ld=gcc, ldflags='', optimize='-O2 -fno-strict-aliasing'.
> Found GP/PARI build directory in ./pari-2.1.7
>      (integer-formatted version 2001007).
> ...Will not overwrite libPARI/paricfg.h...  (remove it manually if needed)
>    You may also want to remove libPARI/paricfg.h if your configuration changed
>    from the time of the first build in this directory...
> Have /usr/perl5/5.8.4/lib/Sun/Solaris/PerlGcc
> Want /usr/perl5/5.8.4/lib/sun4-solaris-64int
> Your perl and your Config.pm seem to have different ideas about the
> architecture they are running on.
> Perl thinks: [PerlGcc]
> Config says: [sun4-solaris-64int]
> This may or may not cause problems. Please check your installation of perl
> if you have problems building this extension.
> ...Processor of family `sparcv9' detected
> ...I will use assembler build of type 'sparcv8_micro'.
> sh: as: not found
> sh: as: not found
> ...Assembler is not GNU assembler
> Have /usr/perl5/5.8.4/lib/Sun/Solaris/PerlGcc
> Want /usr/perl5/5.8.4/lib/sun4-solaris-64int
> Your perl and your Config.pm seem to have different ideas about the
> architecture they are running on.
> Perl thinks: [PerlGcc]
> Config says: [sun4-solaris-64int]
> This may or may not cause problems. Please check your installation of perl
> if you have problems building this extension.
> Writing Makefile for Math::PARI::libPARI
> Writing Makefile for Math::Pari
> 
> 
> # /usr/sfw/bin/gmake
> Skip blib/lib/Math/libPARI.dumb.pod (unchanged)
> Skip blib/lib/Math/PariInit.pm (unchanged)
> Skip blib/lib/Math/Pari.pm (unchanged)
> Skip blib/lib/Math/libPARI.pod (unchanged)
> cd libPARI && make LIBPERL_A="libperl.a" LINKTYPE="dynamic" OPTIMIZE="-O2 
> -fno-strict-aliasing" PREFIX="/usr/perl5/5.8.4" PASTHRU_DEFINE="" PASTHRU_INC=""
> /bin/sh: make: not found
> gmake: *** [libPARI/libPARI.a] Error 1
> 
> 
> 
> # /usr/sfw/bin/gmake test
> cd libPARI && make LIBPERL_A="libperl.a" LINKTYPE="dynamic" OPTIMIZE="-O2 
> -fno-strict-aliasing" PREFIX="/usr/perl5/5.8.4" PASTHRU_DEFINE="" PASTHRU_INC=""
> /bin/sh: make: not found
> gmake: *** [libPARI/libPARI.a] Error 1
> 
> 
> # /usr/sfw/bin/gmake install
> cd libPARI && make LIBPERL_A="libperl.a" LINKTYPE="dynamic" OPTIMIZE="-O2 
> -fno-strict-aliasing" PREFIX="/usr/perl5/5.8.4" PASTHRU_DEFINE="" PASTHRU_INC=""
> /bin/sh: make: not found
> gmake: *** [libPARI/libPARI.a] Error 1
> 
> 
> Thanks for your help!
> 
> regards,
> 
> Ari...@Xe...
> 
> 
> 
> 
> 
> -----Original Message-----
> From: Salvador Fandino [mailto:sfa...@ya...]
> Sent: Fri 10/16/2009 9:01 PM
> To: Arifuddin, Arif
> Subject: Re: [Ssh-sftp-perl-users] new Net-SFTP-0.10 module install on solaris 
> 10 sparc machine???
> 
> Hi
> 
> Post the error you get when trying to compile Math::Pari
> 
> Or try using Net::SFTP::Foreign that's far easier to install than Net::SFTP
> 
> Cheers,
> 
> - Salva
> 
> 
> 
> 
> 
> ----- Original Message ----
> > From: "Arifuddin, Arif" 
> > To: ssh...@li...
> > Sent: Sat, October 17, 2009 3:14:48 AM
> > Subject: [Ssh-sftp-perl-users] new Net-SFTP-0.10 module install on solaris 10 
> sparc machine???
> > 
> > Most of the prerequisites modules installed using
> > 
> > /usr/perl5/bin/perlgcc Makefile.PL
> > /usr/sfw/bin/gmake
> > /usr/sfw/bin/gmake test
> > /usr/sfw/bin/gmake install
> > 
> > except for the Math/Pari.pm which is looking for make...and cant find? what 
> > should i do?
> > 
> > 
> > bash-3.00# ./sftp.pl
> > Can't locate Math/Pari.pm in @INC (@INC contains: 
> > /usr/perl5/5.8.4/lib/sun4-solaris-64int /usr/perl5/5.8.4/lib 
> > /usr/perl5/site_perl/5.8.4/sun4-solaris-64int /usr/perl5/site_perl/5.8.4 
> > /usr/perl5/site_perl /usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int 
> > /usr/perl5/vendor_perl/5.8.4 /usr/perl5/vendor_perl .) at 
> > /usr/perl5/site_perl/5.8.4/Net/SSH/Perl/Util/SSH2MP.pm line 6.
> > BEGIN failed--compilation aborted at 
> > /usr/perl5/site_perl/5.8.4/Net/SSH/Perl/Util/SSH2MP.pm line 6.
> > Compilation failed in require at 
> /usr/perl5/site_perl/5.8.4/Net/SSH/Perl/Util.pm 
> > line 56.
> > BEGIN failed--compilation aborted at 
> > /usr/perl5/site_perl/5.8.4/Net/SFTP/Buffer.pm line 9.
> > Compilation failed in require at 
> > /usr/perl5/site_perl/5.8.4/Net/SFTP/Attributes.pm line 7.
> > BEGIN failed--compilation aborted at 
> > /usr/perl5/site_perl/5.8.4/Net/SFTP/Attributes.pm line 7.
> > Compilation failed in require at /usr/perl5/site_perl/5.8.4/Net/SFTP.pm line 
> 8.
> > BEGIN failed--compilation aborted at /usr/perl5/site_perl/5.8.4/Net/SFTP.pm 
> line 
> > 8.
> > Compilation failed in require at ./sftp.pl line 3.
> > BEGIN failed--compilation aborted at ./sftp.pl line 3.
> > 
> > thanks!
> > 
> > regards,
> > 
> > Ari...@Xe...
> > 
> > 
> > 
> > 
> > ------------------------------------------------------------------------------
> > Come build with us! The BlackBerry(R) Developer Conference in SF, CA
> > is the only developer event you need to attend this year. Jumpstart your
> > developing skills, take BlackBerry mobile applications to market and stay 
> > ahead of the curve. Join us from November 9 - 12, 2009. Register now!
> > http://p.sf.net/sfu/devconference
> > _______________________________________________
> > Ssh-sftp-perl-users mailing list
> > Ssh...@li...
> > https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
> 
> 
> 
> ------------------------------------------------------------------------------
> Come build with us! The BlackBerry(R) Developer Conference in SF, CA
> is the only developer event you need to attend this year. Jumpstart your
> developing skills, take BlackBerry mobile applications to market and stay 
> ahead of the curve. Join us from November 9 - 12, 2009. Register now!
> http://p.sf.net/sfu/devconference
> _______________________________________________
> Ssh-sftp-perl-users mailing list
> Ssh...@li...
> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users

[Ssh-sftp-perl-users] Error connecting with Net::SFT

[Bhattacharya, M. K. <man...@ci...>]

Hi
I am facing an issue when trying to establish an SFTP connection to an sftp server. If I run sftp from command line the connection goes through and I am able to connect and issue commands to the sftp server.

But from the Net::SFTP module I get the below:

mtrxps5-phys: Reading configuration data /home/mtrxsftp/.ssh/config
mtrxps5-phys: Reading configuration data /etc/ssh_config
mtrxps5-phys: Connecting to emetrnp1.eur.nsroot.net, port 22.
mtrxps5-phys: Remote version string: SSH-2.0-OpenSSH_3.8.1p1

mtrxps5-phys: Remote protocol version 2.0, remote software version OpenSSH_3.8.1p1
mtrxps5-phys: Net::SSH::Perl Version 1.30, protocol version 2.0.
mtrxps5-phys: No compat match: OpenSSH_3.8.1p1.
mtrxps5-phys: Connection established.
mtrxps5-phys: Sent key-exchange init (KEXINIT), wait response.
mtrxps5-phys: Algorithms, c->s: 3des-cbc hmac-sha1 none
mtrxps5-phys: Algorithms, s->c: 3des-cbc hmac-sha1 none
mtrxps5-phys: Entering Diffie-Hellman Group 1 key exchange.
mtrxps5-phys: Sent DH public key, waiting for reply.
mtrxps5-phys: Received host key, type 'ssh-dss'.
mtrxps5-phys: Host 'emetrnp1.eur.nsroot.net' is known and matches the host key.
mtrxps5-phys: Computing shared secret key.
mtrxps5-phys: Verifying server signature.
mtrxps5-phys: Waiting for NEWKEYS message.
mtrxps5-phys: Enabling incoming encryption/MAC/compression.
mtrxps5-phys: Send NEWKEYS, enable outgoing encryption/MAC/compression.
mtrxps5-phys: Sending request for user-authentication service.
Connection closed by remote host. at /opt/MATRIX/common/perl//Net/SSH/Perl/AuthMgr.pm line 59

Regards,
Manish Bhattacharya

Re: [Ssh-sftp-perl-users] new Net-SFTP-0.10 module install on solaris 10 sparc machine???

[Arifuddin, A. <Ari...@xe...>]

# cd Math-Pari-2.010801
# ls
blib              libPARI           Makefile.PL       pari-2.1.7.tgz    patches           test_eng
Changes           libPARI.dumb.pod  MANIFEST          PariInit.pm       pm_to_blib        TODO
func_codes.h      libPARI.pod       META.yml          Pari.pm           README            typemap
INSTALL           Makefile          pari-2.1.7        Pari.xs           t                 utils
# bash
# /usr/perl5/bin/perlgcc Makefile.PL
Setting up Math::Pari with Perl 5.008004 on solaris version 2.10;
   cc=gcc, gccversion=, ccflags='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TS_ERRNO',
   ld=gcc, ldflags='', optimize='-O2 -fno-strict-aliasing'.
Found GP/PARI build directory in ./pari-2.1.7
     (integer-formatted version 2001007).
...Will not overwrite libPARI/paricfg.h...  (remove it manually if needed)
   You may also want to remove libPARI/paricfg.h if your configuration changed
   from the time of the first build in this directory...
Have /usr/perl5/5.8.4/lib/Sun/Solaris/PerlGcc
Want /usr/perl5/5.8.4/lib/sun4-solaris-64int
Your perl and your Config.pm seem to have different ideas about the
architecture they are running on.
Perl thinks: [PerlGcc]
Config says: [sun4-solaris-64int]
This may or may not cause problems. Please check your installation of perl
if you have problems building this extension.
...Processor of family `sparcv9' detected
...I will use assembler build of type 'sparcv8_micro'.
sh: as: not found
sh: as: not found
...Assembler is not GNU assembler
Have /usr/perl5/5.8.4/lib/Sun/Solaris/PerlGcc
Want /usr/perl5/5.8.4/lib/sun4-solaris-64int
Your perl and your Config.pm seem to have different ideas about the
architecture they are running on.
Perl thinks: [PerlGcc]
Config says: [sun4-solaris-64int]
This may or may not cause problems. Please check your installation of perl
if you have problems building this extension.
Writing Makefile for Math::PARI::libPARI
Writing Makefile for Math::Pari


# /usr/sfw/bin/gmake
Skip blib/lib/Math/libPARI.dumb.pod (unchanged)
Skip blib/lib/Math/PariInit.pm (unchanged)
Skip blib/lib/Math/Pari.pm (unchanged)
Skip blib/lib/Math/libPARI.pod (unchanged)
cd libPARI && make LIBPERL_A="libperl.a" LINKTYPE="dynamic" OPTIMIZE="-O2 -fno-strict-aliasing" PREFIX="/usr/perl5/5.8.4" PASTHRU_DEFINE="" PASTHRU_INC=""
/bin/sh: make: not found
gmake: *** [libPARI/libPARI.a] Error 1



# /usr/sfw/bin/gmake test
cd libPARI && make LIBPERL_A="libperl.a" LINKTYPE="dynamic" OPTIMIZE="-O2 -fno-strict-aliasing" PREFIX="/usr/perl5/5.8.4" PASTHRU_DEFINE="" PASTHRU_INC=""
/bin/sh: make: not found
gmake: *** [libPARI/libPARI.a] Error 1


# /usr/sfw/bin/gmake install
cd libPARI && make LIBPERL_A="libperl.a" LINKTYPE="dynamic" OPTIMIZE="-O2 -fno-strict-aliasing" PREFIX="/usr/perl5/5.8.4" PASTHRU_DEFINE="" PASTHRU_INC=""
/bin/sh: make: not found
gmake: *** [libPARI/libPARI.a] Error 1


Thanks for your help!

regards,

Ari...@Xe...





-----Original Message-----
From: Salvador Fandino [mailto:sfa...@ya...]
Sent: Fri 10/16/2009 9:01 PM
To: Arifuddin, Arif
Subject: Re: [Ssh-sftp-perl-users] new Net-SFTP-0.10 module install on solaris 10 sparc machine???
 
Hi

Post the error you get when trying to compile Math::Pari

Or try using Net::SFTP::Foreign that's far easier to install than Net::SFTP

Cheers,

- Salva





----- Original Message ----
> From: "Arifuddin, Arif" <Ari...@xe...>
> To: ssh...@li...
> Sent: Sat, October 17, 2009 3:14:48 AM
> Subject: [Ssh-sftp-perl-users] new Net-SFTP-0.10 module install on solaris 10 sparc machine???
> 
> Most of the prerequisites modules installed using
> 
> /usr/perl5/bin/perlgcc Makefile.PL
> /usr/sfw/bin/gmake
> /usr/sfw/bin/gmake test
> /usr/sfw/bin/gmake install
> 
> except for the Math/Pari.pm which is looking for make...and cant find? what 
> should i do?
> 
> 
> bash-3.00# ./sftp.pl
> Can't locate Math/Pari.pm in @INC (@INC contains: 
> /usr/perl5/5.8.4/lib/sun4-solaris-64int /usr/perl5/5.8.4/lib 
> /usr/perl5/site_perl/5.8.4/sun4-solaris-64int /usr/perl5/site_perl/5.8.4 
> /usr/perl5/site_perl /usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int 
> /usr/perl5/vendor_perl/5.8.4 /usr/perl5/vendor_perl .) at 
> /usr/perl5/site_perl/5.8.4/Net/SSH/Perl/Util/SSH2MP.pm line 6.
> BEGIN failed--compilation aborted at 
> /usr/perl5/site_perl/5.8.4/Net/SSH/Perl/Util/SSH2MP.pm line 6.
> Compilation failed in require at /usr/perl5/site_perl/5.8.4/Net/SSH/Perl/Util.pm 
> line 56.
> BEGIN failed--compilation aborted at 
> /usr/perl5/site_perl/5.8.4/Net/SFTP/Buffer.pm line 9.
> Compilation failed in require at 
> /usr/perl5/site_perl/5.8.4/Net/SFTP/Attributes.pm line 7.
> BEGIN failed--compilation aborted at 
> /usr/perl5/site_perl/5.8.4/Net/SFTP/Attributes.pm line 7.
> Compilation failed in require at /usr/perl5/site_perl/5.8.4/Net/SFTP.pm line 8.
> BEGIN failed--compilation aborted at /usr/perl5/site_perl/5.8.4/Net/SFTP.pm line 
> 8.
> Compilation failed in require at ./sftp.pl line 3.
> BEGIN failed--compilation aborted at ./sftp.pl line 3.
> 
> thanks!
> 
> regards,
> 
> Ari...@Xe...
> 
> 
> 
> 
> ------------------------------------------------------------------------------
> Come build with us! The BlackBerry(R) Developer Conference in SF, CA
> is the only developer event you need to attend this year. Jumpstart your
> developing skills, take BlackBerry mobile applications to market and stay 
> ahead of the curve. Join us from November 9 - 12, 2009. Register now!
> http://p.sf.net/sfu/devconference
> _______________________________________________
> Ssh-sftp-perl-users mailing list
> Ssh...@li...
> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users

[Ssh-sftp-perl-users] new Net-SFTP-0.10 module install on solaris 10 sparc machine???

[Arifuddin, A. <Ari...@xe...>]

Most of the prerequisites modules installed using
 
/usr/perl5/bin/perlgcc Makefile.PL
/usr/sfw/bin/gmake
/usr/sfw/bin/gmake test
/usr/sfw/bin/gmake install

except for the Math/Pari.pm which is looking for make...and cant find? what should i do?


bash-3.00# ./sftp.pl
Can't locate Math/Pari.pm in @INC (@INC contains: /usr/perl5/5.8.4/lib/sun4-solaris-64int /usr/perl5/5.8.4/lib /usr/perl5/site_perl/5.8.4/sun4-solaris-64int /usr/perl5/site_perl/5.8.4 /usr/perl5/site_perl /usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int /usr/perl5/vendor_perl/5.8.4 /usr/perl5/vendor_perl .) at /usr/perl5/site_perl/5.8.4/Net/SSH/Perl/Util/SSH2MP.pm line 6.
BEGIN failed--compilation aborted at /usr/perl5/site_perl/5.8.4/Net/SSH/Perl/Util/SSH2MP.pm line 6.
Compilation failed in require at /usr/perl5/site_perl/5.8.4/Net/SSH/Perl/Util.pm line 56.
BEGIN failed--compilation aborted at /usr/perl5/site_perl/5.8.4/Net/SFTP/Buffer.pm line 9.
Compilation failed in require at /usr/perl5/site_perl/5.8.4/Net/SFTP/Attributes.pm line 7.
BEGIN failed--compilation aborted at /usr/perl5/site_perl/5.8.4/Net/SFTP/Attributes.pm line 7.
Compilation failed in require at /usr/perl5/site_perl/5.8.4/Net/SFTP.pm line 8.
BEGIN failed--compilation aborted at /usr/perl5/site_perl/5.8.4/Net/SFTP.pm line 8.
Compilation failed in require at ./sftp.pl line 3.
BEGIN failed--compilation aborted at ./sftp.pl line 3.

thanks!

regards,

Ari...@Xe...

Re: [Ssh-sftp-perl-users] Uncaught exception in ...Net/SSH/Perl/AuthMgr.pm

[Howard, C. <Ho...@pr...>]

You're sure that nothing changed on the server end?

________________________________

From: Morrison, Lee [mailto:Lee...@ww...]
Sent: Fri 10/9/2009 2:09 PM
To: ssh...@li...
Subject: [Ssh-sftp-perl-users] Uncaught exception in ...Net/SSH/Perl/AuthMgr.pm



On a perl application that has been running fine for years it now consistently gets errors as shown below.  Any advice is appreciated.  No known environment changes.

 

I have re-installed Net::SFTP, Net::SSH::Perl, Net::SSH::Perl::Auth. 

 

Running sftp directly from the command line connecting to the same remote server with the same user/password works fine. 

 

Run with debug => 'true'

 

dstar: Reading configuration data /root/.ssh/config

dstar: Reading configuration data /etc/ssh_config

dstar: Allocated local port 1023.

dstar: Connecting to secure-ftp.entriq.net, port 22.

dstar: Remote protocol version 2.0, remote software version OpenSSH_4.3

dstar: Net::SSH::Perl Version 1.34, protocol version 2.0.

dstar: No compat match: OpenSSH_4.3.

dstar: Connection established.

dstar: Sent key-exchange init (KEXINIT), wait response.

dstar: Algorithms, c->s: 3des-cbc hmac-sha1 none

dstar: Algorithms, s->c: 3des-cbc hmac-sha1 none

dstar: Entering Diffie-Hellman Group 1 key exchange.

dstar: Sent DH public key, waiting for reply.

dstar: Received host key, type 'ssh-dss'.

dstar: Host 'secure-ftp.entriq.net' is known and matches the host key.

dstar: Computing shared secret key.

dstar: Verifying server signature.

dstar: Waiting for NEWKEYS message.

dstar: Send NEWKEYS.

dstar: Enabling encryption/MAC/compression.

dstar: Sending request for user-authentication service.

Uncaught exception from user code:

        Connection closed by remote host. at /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/AuthMgr.pm line 44

 at /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/Packet.pm line 52

        Net::SSH::Perl::Packet::read('Net::SSH::Perl::Packet', 'Net::SSH::Perl::SSH2=HASH(0xa8aab6c)') called at /usr/lib/

perl5/site_perl/5.8.8/Net/SSH/Perl/AuthMgr.pm line 44

        Net::SSH::Perl::AuthMgr::init('Net::SSH::Perl::AuthMgr=HASH(0xa048128)') called at /usr/lib/perl5/site_perl/5.8.8/

Net/SSH/Perl/AuthMgr.pm line 31

        Net::SSH::Perl::AuthMgr::new('Net::SSH::Perl::AuthMgr', 'Net::SSH::Perl::SSH2=HASH(0xa8aab6c)') called at /usr/lib

/perl5/site_perl/5.8.8/Net/SSH/Perl/SSH2.pm line 94

        Net::SSH::Perl::SSH2::_login('Net::SSH::Perl::SSH2=HASH(0xa8aab6c)') called at /usr/lib/perl5/site_perl/5.8.8/Net/

SSH/Perl/SSH2.pm line 69

        Net::SSH::Perl::SSH2::login('Net::SSH::Perl::SSH2=HASH(0xa8aab6c)', '*******', *******', 'supress_shell') called at 

/usr/lib/perl5/site_perl/5.8.8/Net/SFTP.pm line 62

        Net::SFTP::init('Net::SFTP=HASH(0xa8aab84)', 'password', *******', 'debug', 'true', 'user', '*******') called at /us

r/lib/perl5/site_perl/5.8.8/Net/SFTP.pm line 24

        Net::SFTP::new('Net::SFTP', *******', 'password', '*******', 'debug', 'true', 'user', '*******') called at /u02/.scripts/test_sftp.pl line 48

[root@dstar entriq]#

 

 

[Ssh-sftp-perl-users] Uncaught exception in ...Net/SSH/Perl/AuthMgr.pm

[Morrison, L. <Lee...@ww...>]

On a perl application that has been running fine for years it now
consistently gets errors as shown below.  Any advice is appreciated.  No
known environment changes.

 

I have re-installed Net::SFTP, Net::SSH::Perl, Net::SSH::Perl::Auth. 

 

Running sftp directly from the command line connecting to the same
remote server with the same user/password works fine. 

 

Run with debug => 'true'

 

dstar: Reading configuration data /root/.ssh/config

dstar: Reading configuration data /etc/ssh_config

dstar: Allocated local port 1023.

dstar: Connecting to secure-ftp.entriq.net, port 22.

dstar: Remote protocol version 2.0, remote software version OpenSSH_4.3

dstar: Net::SSH::Perl Version 1.34, protocol version 2.0.

dstar: No compat match: OpenSSH_4.3.

dstar: Connection established.

dstar: Sent key-exchange init (KEXINIT), wait response.

dstar: Algorithms, c->s: 3des-cbc hmac-sha1 none

dstar: Algorithms, s->c: 3des-cbc hmac-sha1 none

dstar: Entering Diffie-Hellman Group 1 key exchange.

dstar: Sent DH public key, waiting for reply.

dstar: Received host key, type 'ssh-dss'.

dstar: Host 'secure-ftp.entriq.net' is known and matches the host key.

dstar: Computing shared secret key.

dstar: Verifying server signature.

dstar: Waiting for NEWKEYS message.

dstar: Send NEWKEYS.

dstar: Enabling encryption/MAC/compression.

dstar: Sending request for user-authentication service.

Uncaught exception from user code:

        Connection closed by remote host. at
/usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/AuthMgr.pm line 44

 at /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/Packet.pm line 52

        Net::SSH::Perl::Packet::read('Net::SSH::Perl::Packet',
'Net::SSH::Perl::SSH2=HASH(0xa8aab6c)') called at /usr/lib/

perl5/site_perl/5.8.8/Net/SSH/Perl/AuthMgr.pm line 44

 
Net::SSH::Perl::AuthMgr::init('Net::SSH::Perl::AuthMgr=HASH(0xa048128)')
called at /usr/lib/perl5/site_perl/5.8.8/

Net/SSH/Perl/AuthMgr.pm line 31

        Net::SSH::Perl::AuthMgr::new('Net::SSH::Perl::AuthMgr',
'Net::SSH::Perl::SSH2=HASH(0xa8aab6c)') called at /usr/lib

/perl5/site_perl/5.8.8/Net/SSH/Perl/SSH2.pm line 94

 
Net::SSH::Perl::SSH2::_login('Net::SSH::Perl::SSH2=HASH(0xa8aab6c)')
called at /usr/lib/perl5/site_perl/5.8.8/Net/

SSH/Perl/SSH2.pm line 69

 
Net::SSH::Perl::SSH2::login('Net::SSH::Perl::SSH2=HASH(0xa8aab6c)',
'*******', *******', 'supress_shell') called at 

/usr/lib/perl5/site_perl/5.8.8/Net/SFTP.pm line 62

        Net::SFTP::init('Net::SFTP=HASH(0xa8aab84)', 'password',
*******', 'debug', 'true', 'user', '*******') called at /us

r/lib/perl5/site_perl/5.8.8/Net/SFTP.pm line 24

        Net::SFTP::new('Net::SFTP', *******', 'password', '*******',
'debug', 'true', 'user', '*******') called at /u02/.scripts/test_sftp.pl
line 48

[root@dstar entriq]#

 

 

[Ssh-sftp-perl-users] (sorry) Still a problem: Getting 'full close' and connection dies when logging in

[Bård K. <bar...@gm...>]

Argh, After the upgrade, I've connected to the 'working' server.

From: Bård Kregnes <bar...@gm...>
Date: 2009/10/7
Subject: Getting 'full close' and connection dies when logging in
To: ssh...@li...


Hi.


Using Net::Sftp 0.10 and perl 5.8.8 on Debian 2.6.17-2-686 .
My script works fine against out 'own' server, but when I try to
connect to a customers server I'm getting 'connection closed at line
xx' , thats the line $sftp = Net::SFTP->new($host,%args) ;

I'm able to connect and up/download files to our customers using the
sftp program.

It seems to me the problem is identical to this :
http://forums.vandyke.com/showthread.php?t=1083

I've spoken to the sysadm at the customer's site and he can see that
I'm able to log in, but the 'I' disapear.. :-/

TIA

Regards

Bård

[Ssh-sftp-perl-users] Promblem solved, I've reinstalled net::Sftp

[Bård K. <bar...@gm...>]

Hi.

Sorry about the inconvenience; I've tried 'everything',  and I
reinstalled net::sftp as last effort and that solved my problem.

Regards

Bård Kregnes

[Ssh-sftp-perl-users] Getting 'full close' and connection dies when logging in

[Bård K. <bar...@gm...>]

Hi.


Using Net::Sftp 0.10 and perl 5.8.8 on Debian 2.6.17-2-686 .
My script works fine against out 'own' server, but when I try to
connect to a customers server I'm getting 'connection closed at line
xx' , thats the line $sftp = Net::SFTP->new($host,%args) ;

I'm able to connect and up/download files to our customers using the
sftp program.

It seems to me the problem is identical to this :
http://forums.vandyke.com/showthread.php?t=1083

I've spoken to the sysadm at the customer's site and he can see that
I'm able to log in, but the 'I' disapear.. :-/

TIA

Regards

Bård

[Ssh-sftp-perl-users] Cannot connect with Net::SSH::Perl module to localhost

[Bogdan C. <cri...@gm...>]

I have used the following snippet:

my $scon = Net::SSH::Perl->new ("localhost");
$scon->login("bogdan","xxx");
print "looking around ...\n";
my ($output,$errors,$exit) = $scon->cmd("ls -l");
print $output;

and I get the following warnings/error:

Math::BigInt: couldn't load specified math lib(s), fallback to 
Math::BigInt::FastCalc at /usr/lib/perl5/site_perl/5.10.0/Crypt/DH.pm line 6
Permission denied at ./trial_ssh.pl line 8

Using ssh I am able to connect to localhost, but I would like to have the 
ability to provide a password as command line argument for the ssh client. I 
use openSUSE 11.1, x86_64. Could someone suggest how to fix the above code ?

Re: [Ssh-sftp-perl-users] Handling Invalid Login Credentials

[Russ B. <us...@gm...>]

Leon,

eval is generally the correct approach for retaining control when a failed
login is encountered.

Here is an example:

# using PKI key pairs so no password is defined below

eval {
    $sftp = Net::SFTP->new("$target_server", debug=>0)
};

if ($@) {
    print "Log-in problem on server $target_server\n";
    # jump to error handling subroutine of choice here
    # send email warning if desired here
} else {
    print "Login succeeded to server $target server\n";
}

The above code reliably traps login errors.

However, there are some circumstances where eval alone can not trap the
failure because $@ is not generated during the failure.  An example is the
SFTP "get" command, where $@ is generated when the "get" failure is on the
local server but is not generated when the "get" failure is on the remote
server.

For example, if you try to get a file and pull it onto your local server and
place it into a non-existent local directory then eval will generate $@ as
expected.  However, if you try to get a file from a directory that does not
exist on a remote server, then $@ is not generated. (Note that SFTP 'get'
has this peculiarity but SFTP 'put' does not).

I too gave up on $SIG{__DIE__} because it reports other problems such as
discrepancies not related to what I am trying to trap.  So I turned to
$SIG{__WARN__} as follows:

$SIG{__WARN__} = \&alarm;

sub alarm {
    print "While in subroutine $function\n";
    print "Perl 'WARN' SIGNAL: @_\n";
    $sig_warn_alarm = "true";
    # used for Net::SFTP 'get' success analysis
}

Having defined the above when the script initiates, it is available for use
when a subroutine needs it, such as:

sub get_files_from_target_server {

    $sig_warn_alarm = "false";
    eval {
        $sftp->get($remote_path_to_file, $local_path_for_file);
    };

    if (($@ || ($sig_warn_alarm eq "true")) {
         # then the get failed -- but where is the problem?
        if ($@) {
            print "SFTP 'get' error on local server\n";
            print "Get ERROR = $@\n";
        }

       if ($sig_warn_alarm eq "true") {
            print "SFTP 'get' error caused by a problem on remote server\n";
            # note the 'alarm' subroutine has its own print statements
        }
    } else {
        print "Detected no problems during SFTP 'get' command\n";
    }

    # reset the $sig_warn_alarm variable so it is ready for the next get
attempt
    # it does not reset automatically and neither does $SIG{__WARN__}
    $sig_warn_alarm = "false";

} # end of subroutine 'get_files_from_target_server

The failed get will trigger $SIG{_WARN__} for both local and remote centered
errors.  But $@ is only generated for locally centered 'get' errors. Thus $@
is insufficient to prove no get error occurred.

eval blocks are important beyond error trapping.  For instance, the do_stat
command has its own difficulties.  A failed do_stat command will kill your
script without notice of any kind unless protected in an eval block that
also holds a 'die' statement.

eval {
       $attrs = $sftp->do_stat($path_to_remote_file) or die "The do_stat
failed: $!";
};

Related commands also require 'eval' protection to keep failures from
silently killing your script:

eval {
        $remote_file_size = $attrs->size;
}

Once the evals are in place, monitoring $@ can reliably be used to trap the
results of do_stat related commands and the 'eval' prevents sudden silent
script death when the command fails, such as would happen if the remote file
did not exist.

I hope this helps.

I am so skittish about reliably detecting remote 'get' problems that I
usually do a file size comparison  between the local file and the remote
file (stat for the local file and do_stat for the remote) to further prove
there was no undetected 'get' failure.

Russ










On Tue, Sep 1, 2009 at 6:15 PM, Leon Kowalski <leo...@ya...>wrote:

> I'm testing a script that uses Net::SFTP, and if I provide a bogus
> password, the ssh->login kills my script with a "die":
>
> Permission denied at
> /usr/local/pkg/perl/5.8.4/lib/site_perl/5.8.4/Net/SFTP.pm line 62
>
> I am unable to find any way to handle this. I want to catch the error
> (which is not very specific BTW) and call my own failure handler code to
> exit the script on my terms.
>
> Is there a way to configure the call to Net::SFTP->new so that if it fails,
> control returns back to my script?
>
> I tried using a warn handler, which had no effect. I also tried an ssh_args
> containing "LogLevel QUIET" to no avail. If I use a $SIG{__DIE__}, it
> catches all sorts of events prior to the "Permission denied" die signal.
>
>
>
>
>
> ------------------------------------------------------------------------------
> Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
> trial. Simplify your report design, integration and deployment - and focus
> on
> what you do best, core application coding. Discover what's new with
> Crystal Reports now.  http://p.sf.net/sfu/bobj-july
> _______________________________________________
> Ssh-sftp-perl-users mailing list
> Ssh...@li...
> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
>

Re: [Ssh-sftp-perl-users] Handling Invalid Login Credentials

[Rodney R. <rri...@gm...>]

Perhaps an eval() with $@ would work for your scenario?

On 9/1/09, Leon Kowalski <leo...@ya...> wrote:
> I'm testing a script that uses Net::SFTP, and if I provide a bogus password,
> the ssh->login kills my script with a "die":
>
> Permission denied at
> /usr/local/pkg/perl/5.8.4/lib/site_perl/5.8.4/Net/SFTP.pm line 62
>
> I am unable to find any way to handle this. I want to catch the error (which
> is not very specific BTW) and call my own failure handler code to exit the
> script on my terms.
>
> Is there a way to configure the call to Net::SFTP->new so that if it fails,
> control returns back to my script?
>
> I tried using a warn handler, which had no effect. I also tried an ssh_args
> containing "LogLevel QUIET" to no avail. If I use a $SIG{__DIE__}, it
> catches all sorts of events prior to the "Permission denied" die signal.
>
>
>
>
> ------------------------------------------------------------------------------
> Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
> trial. Simplify your report design, integration and deployment - and focus
> on
> what you do best, core application coding. Discover what's new with
> Crystal Reports now.  http://p.sf.net/sfu/bobj-july
> _______________________________________________
> Ssh-sftp-perl-users mailing list
> Ssh...@li...
> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
>

-- 
Sent from my mobile device

[Ssh-sftp-perl-users] Handling Invalid Login Credentials

[Leon K. <leo...@ya...>]

I'm testing a script that uses Net::SFTP, and if I provide a bogus password, the ssh->login kills my script with a "die":

Permission denied at /usr/local/pkg/perl/5.8.4/lib/site_perl/5.8.4/Net/SFTP.pm line 62

I am unable to find any way to handle this. I want to catch the error (which is not very specific BTW) and call my own failure handler code to exit the script on my terms.

Is there a way to configure the call to Net::SFTP->new so that if it fails, control returns back to my script?

I tried using a warn handler, which had no effect. I also tried an ssh_args containing "LogLevel QUIET" to no avail. If I use a $SIG{__DIE__}, it catches all sorts of events prior to the "Permission denied" die signal.


      

Re: [Ssh-sftp-perl-users] Net::SSH::Perl - Error

[Thierry C. <thi...@gm...>]

The problem come from the installation. It seems to me that Math::BigInt is 
not installed in the good way.



Le lundi 24 août 2009, James A Teater a écrit :
> I know the username and password is not a good approach, but I really want
> to get the Net::SSH::Perl;
> working.  Here is the code that I have.
>
> print "Creating ssh object... ";
>
> my $host     = 'server.mda.server.com';
> my $user     = 'james';
> my $password = 'passwrd';
>
> my $ssh = Net::SSH::Perl->new($host, protocol => 2);
>
> print "Starting Login ...\n";
> $ssh->login($user, $password) || die "error: could not log in";
> print "Ending Login ...\n";
> $ssh->cmd($cmd);
>
> Everything runs fine until I get to the Starting Login
> Here are the error messages
>
> Math::BigInt: couldn't load specified math lib(s), fallback to
> Math::BigInt::FastCalc at serverpath/KeyChain.pm line 6
> Math::BigInt: couldn't load specified math lib(s), fallback to
> Math::BigInt::FastCalc at serverpath/Key.pm line 6
> Math::BigInt: couldn't load specified math lib(s), fallback to
> Math::B+igInt::FastCalc at serverpath/Util.pm line 6
> Not an ARRAY reference at serverpath/Calc.pm line 25
>
> program stops there and never finsihes anything below the login.
>
>
> James

[Ssh-sftp-perl-users] Net::SSH::Perl - Error

[James A T. <jat...@le...>]

I know the username and password is not a good approach, but I really want 
to get the Net::SSH::Perl;
working.  Here is the code that I have.

print "Creating ssh object... ";
 
my $host     = 'server.mda.server.com';
my $user     = 'james';
my $password = 'passwrd';

my $ssh = Net::SSH::Perl->new($host, protocol => 2);

print "Starting Login ...\n";
$ssh->login($user, $password) || die "error: could not log in";
print "Ending Login ...\n"; 
$ssh->cmd($cmd);

Everything runs fine until I get to the Starting Login
Here are the error messages

Math::BigInt: couldn't load specified math lib(s), fallback to 
Math::BigInt::FastCalc at serverpath/KeyChain.pm line 6
Math::BigInt: couldn't load specified math lib(s), fallback to 
Math::BigInt::FastCalc at serverpath/Key.pm line 6
Math::BigInt: couldn't load specified math lib(s), fallback to 
Math::B+igInt::FastCalc at serverpath/Util.pm line 6
Not an ARRAY reference at serverpath/Calc.pm line 25

program stops there and never finsihes anything below the login.


James

[Ssh-sftp-perl-users] Eric Almond is out of the office.

[<eri...@wa...>]

I will be out of the office starting  08/06/2009 and will not return until
08/10/2009.

I will have limited access to email.  If this is an emergency please
contact Todd Hedrick, Bill Lockley, or Don Boenitz.  If you need management
escalation please contact Tom Mclaughlin.

Re: [Ssh-sftp-perl-users] Error Handling / Log4Perl and Net::SFTP

[Linke M. (K. 11) <mar...@cr...>]

excellent, thank you.

________________________________

From: Russ Brewer [mailto:us...@gm...] 
Sent: Donnerstag, 6. August 2009 17:14
To: Linke Markus (KSTB 11)
Cc: ssh...@li...; mar...@li...
Subject: Re: [Ssh-sftp-perl-users] Error Handling / Log4Perl and
Net::SFTP


This is how I do it:


my $sftp;

eval {
    $sftp = Net::SFTP->new($sftpserver, user=>$sftpuser, debug=>1)
};

if ($@) {
   print "Login problem on host $sftpserver for user $sftpuser\n";
   print "ERROR = $@\n";
} else {
  print "Successful login for user $sftpuser on server $sftpserver\n";
}

Best wishes, 

Russ


On Thu, Aug 6, 2009 at 3:38 AM, Linke Markus (KSTB 11)
<mar...@cr...> wrote:


	Hi, 

	I'm trying to use Net::SFTP and log the warnings/errors via
Log4Perl, but the script always dies when connecting: 

	if ($debug =~ /VERBOSE/g) {$debug=1;} 
	my $sftp = Net::SFTP->new($sftpserver, user=>$sftpuser,
debug=>$debug) 
	   or $logger->logdie ("Cannot connect to $sftpserver as
$sftpuser"); 

	2009-08-06 09:10:50 [sftp.pl:main]  INFO> host name: xxx 
	2009-08-06 09:10:50 [sftp.pl:main]  INFO> user name: xxx 
	2009-08-06 09:10:50 [sftp.pl:main]  INFO> file name: xxx 
	2009-08-06 09:10:50 [sftp.pl:main]  INFO> target directory:
/xxx/ 
	zus45a-5402: Reading configuration data /xxx/.ssh/config 
	zus45a-5402: Reading configuration data /etc/ssh_config 
	zus45a-5402: Connecting to xxx, port 22. 
	[...] 
	zus45a-5402: Trying pubkey authentication with key file
'/xxx/id_dsa' 
	Received disconnect message: Too many authentication failures
for xxx 
	 at
/app/CMpkg2/perl_588/lib/site_perl/5.8.8/Net/SSH/Perl/AuthMgr.pm line
142       

	Is it possible to get the error back from the Net::SFTP->new
call? 

	Thanks, 
	Markus 


	
------------------------------------------------------------------------
------
	Let Crystal Reports handle the reporting - Free Crystal Reports
2008 30-Day
	trial. Simplify your report design, integration and deployment -
and focus on
	what you do best, core application coding. Discover what's new
with
	Crystal Reports now.  http://p.sf.net/sfu/bobj-july
	_______________________________________________
	Ssh-sftp-perl-users mailing list
	Ssh...@li...
	https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
	
	

Re: [Ssh-sftp-perl-users] Error Handling / Log4Perl and Net::SFTP

[Russ B. <us...@gm...>]

This is how I do it:


my $sftp;

eval {
    $sftp = Net::SFTP->new($sftpserver, user=>$sftpuser, debug=>1)
};

if ($@) {
   print "Login problem on host $sftpserver for user $sftpuser\n";
   print "ERROR = $@\n";
} else {
  print "Successful login for user $sftpuser on server $sftpserver\n";
}

Best wishes,

Russ

On Thu, Aug 6, 2009 at 3:38 AM, Linke Markus (KSTB 11) <
mar...@cr...> wrote:

>  Hi,
>
> I'm trying to use Net::SFTP and log the warnings/errors via Log4Perl, but
> the script always dies when connecting:
>
> if ($debug =~ /VERBOSE/g) {$debug=1;}
> my $sftp = Net::SFTP->new($sftpserver, user=>$sftpuser, debug=>$debug)
>    or $logger->logdie ("Cannot connect to $sftpserver as $sftpuser");
>
> 2009-08-06 09:10:50 [sftp.pl:main]  INFO> host name: xxx
> 2009-08-06 09:10:50 [sftp.pl:main]  INFO> user name: xxx
> 2009-08-06 09:10:50 [sftp.pl:main]  INFO> file name: xxx
> 2009-08-06 09:10:50 [sftp.pl:main]  INFO> target directory: /xxx/
> zus45a-5402: Reading configuration data /xxx/.ssh/config
> zus45a-5402: Reading configuration data /etc/ssh_config
> zus45a-5402: Connecting to xxx, port 22.
> [...]
> *zus45a-5402: Trying pubkey authentication with key file '/xxx/id_dsa'*
> *Received disconnect message: Too many authentication failures for xxx*
> * at /app/CMpkg2/perl_588/lib/site_perl/5.8.8/Net/SSH/Perl/AuthMgr.pm line
> 142      *
>
> Is it possible to get the error back from the Net::SFTP->new call?
>
> Thanks,
> Markus
>
>
> ------------------------------------------------------------------------------
> Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
> trial. Simplify your report design, integration and deployment - and focus
> on
> what you do best, core application coding. Discover what's new with
> Crystal Reports now.  http://p.sf.net/sfu/bobj-july
> _______________________________________________
> Ssh-sftp-perl-users mailing list
> Ssh...@li...
> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
>
>

[Ssh-sftp-perl-users] Error Handling / Log4Perl and Net::SFTP

[Linke M. (K. 11) <mar...@cr...>]

Hi,

I'm trying to use Net::SFTP and log the warnings/errors via Log4Perl,
but the script always dies when connecting:

if ($debug =~ /VERBOSE/g) {$debug=1;}
my $sftp = Net::SFTP->new($sftpserver, user=>$sftpuser, debug=>$debug) 
   or $logger->logdie ("Cannot connect to $sftpserver as $sftpuser");

2009-08-06 09:10:50 [sftp.pl:main]  INFO> host name: xxx
2009-08-06 09:10:50 [sftp.pl:main]  INFO> user name: xxx
2009-08-06 09:10:50 [sftp.pl:main]  INFO> file name: xxx
2009-08-06 09:10:50 [sftp.pl:main]  INFO> target directory: /xxx/
zus45a-5402: Reading configuration data /xxx/.ssh/config
zus45a-5402: Reading configuration data /etc/ssh_config
zus45a-5402: Connecting to xxx, port 22.
[...]
zus45a-5402: Trying pubkey authentication with key file '/xxx/id_dsa'
Received disconnect message: Too many authentication failures for xxx
 at /app/CMpkg2/perl_588/lib/site_perl/5.8.8/Net/SSH/Perl/AuthMgr.pm
line 142       

Is it possible to get the error back from the Net::SFTP->new call?

Thanks,
Markus

[Ssh-sftp-perl-users] CAN connect via sftp command-line but NOT via perl sftp module

[<joh...@us...>]

<br><font size=2 face="sans-serif">trying to connect via perl Net::SFTP
we keep getting &quot;connection closed&quot; type message immediately..
here is the log.. any help much appreciated :</font>
<br>
<br>
<br><font size=2 face="sans-serif">scsefgsdcs01: Reading configuration
data /home/nbs6hzw/.ssh/config</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Reading configuration
data /etc/ssh_config</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Connecting to sftp.primebroker.com,
port 22.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Remote protocol version
2.0, remote software version 6.0.11.5 SSH Tectia Server</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Net::SSH::Perl Version
1.27, protocol version 2.0.</font>
<br><font size=2 face="sans-serif">.csefgsdcs01: No compat match: 6.0.11.5
SSH Tectia Server</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Connection established.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Sent key-exchange init
(KEXINIT), wait response.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Algorithms, c-&gt;s: 3des-cbc
hmac-sha1 none</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Algorithms, s-&gt;c: 3des-cbc
hmac-sha1 none</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Entering Diffie-Hellman
Group 1 key exchange.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Sent DH public key, waiting
for reply.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Received host key, type
'ssh-dss'.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Host 'sftp.primebroker.com'
is known and matches the host key.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Computing shared secret
key.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Verifying server signature.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Waiting for NEWKEYS message.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Enabling incoming encryption/MAC/compression.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Send NEWKEYS, enable outgoing
encryption/MAC/compression.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Sending request for user-authentication
service.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Service accepted: ssh-userauth.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Trying empty user-authentication
request.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Authentication methods
that can continue: password,publickey,keyboard-interactive.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Next method to try is
password.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Trying password authentication.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Login completed, opening
dummy shell channel.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 0: new [client-session]</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Requesting channel_open
for channel 0.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 0: open confirm
rwindow 65536 rmax 32768</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Got channel open confirmation,
requesting shell.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Requesting service shell
on channel 0.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 1: new [client-session]</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Requesting channel_open
for channel 1.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 0: rcvd close</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 0: output open
-&gt; drain</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 0: input open
-&gt; closed</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 0: close_read</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Sending subsystem: sftp</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: Requesting service subsystem
on channel 1.</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 1: open confirm
rwindow 65536 rmax 32768</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 0: obuf empty</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 0: output drain
-&gt; closed</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 0: close_write</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 0: send close</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: channel 0: full closed</font>
<br><font size=2 face="sans-serif">scsefgsdcs01: sftp: Sending SSH2_FXP_INIT</font>
<br><font size=2 face="sans-serif">Connection closed at /Falcon/stockloan/PROJECTS/DEV/nbs6hzw/lib/calFileUtil.pm
line 428</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; ...caught
at /Falcon/stockloan/PROJECTS/DEV/nbs6hzw/lib/calFileUtil.pm line 431.</font>
<br><font size=2 face="sans-serif">&nbsp;at /Falcon/stockloan/PROJECTS/DEV/nbs6hzw/lib/calFileUtil.pm
line 431</font>
<br><font size=2 face="sans-serif"><br>
John Varga<br>
Director, BNP Paribas RCC, Inc<br>
Securities Lending Technology<br>
201.850.5468 (W) 646.460.3800 (C)<br>
joh...@us... <br>
NYK...@am... </font>
<pre>

This message and any attachments (the "message") is intended solely for 
the addressees and is confidential. If you receive this message in error, 
please delete it and immediately notify the sender. Any use not in accord 
with its purpose, any dissemination or disclosure, either whole or partial, 
is prohibited except formal approval. The internet can not guarantee the 
integrity of this message. BNP PARIBAS (and its subsidiaries) shall (will) 
not therefore be liable for the message if modified. Please note that certain 
functions and services for BNP Paribas may be performed by BNP Paribas RCC, Inc.</pre>

Re: [Ssh-sftp-perl-users] login using scripted password?

[Mike W. <mwa...@uu...>]

Yeah, but I goofed on the output I provided <sheepish>  Both samples had 
"interactive=>'false'" set, but in one case, I manually entered the 
password when prompted.

When "interactive=>'false'" is commented out, here's what the output 
*really* looks like:

user@desktop ~/development/perl $ ./myscript.pl
desktop: Reading configuration data /home/user/.ssh/config
desktop: Reading configuration data /etc/ssh_config
desktop: Connecting to 192.168.244.26, port 22.
desktop: Remote protocol version 2.0, remote software version OpenSSH_5.2
desktop: Net::SSH::Perl Version 1.34, protocol version 2.0.
desktop: No compat match: OpenSSH_5.2
desktop: Connection established.
desktop: Sent key-exchange init (KEXINIT), wait response.
desktop: Algorithms, c->s: 3des-cbc hmac-sha1 none
desktop: Algorithms, s->c: 3des-cbc hmac-sha1 none
desktop: Entering Diffie-Hellman Group 1 key exchange.
desktop: Sent DH public key, waiting for reply.
desktop: Received host key, type 'ssh-dss'.
desktop: Host '192.168.244.26' is known and matches the host key.
desktop: Computing shared secret key.
desktop: Verifying server signature.
desktop: Waiting for NEWKEYS message.
desktop: Send NEWKEYS.
desktop: Enabling encryption/MAC/compression.
desktop: Sending request for user-authentication service.
desktop: Service accepted: ssh-userauth.
desktop: Trying empty user-authentication request.
desktop: Authentication methods that can continue: 
publickey,keyboard-interactive.
desktop: Next method to try is publickey.
desktop: Publickey: testing agent key ''
desktop: Authentication methods that can continue: 
publickey,keyboard-interactive.
desktop: Next method to try is publickey.
Permission denied at ./myscript.pl line 14
user@desktop ~/development/perl $

Notice that it gives me the error message "Permission denied at 
./myscript.pl line 14".  The only thing that changed in this example is 
that I added the "#" to the beginning of line 11.

Sorry for the confusion -- multitasking just provides new opportunities 
to embarrass yourself on-line :/

--Mike

Howard, Chris wrote:
> When you had interactive=>false didn't it give you the uname output?
> 
>> -----Original Message-----
>> From: Mike Wallette [mailto:mwa...@uu...]
>> Sent: Thursday, July 09, 2009 4:59 PM
>> To: Howard, Chris
>> Subject: Re: [Ssh-sftp-perl-users] login using scripted password?
>>
>> No, it's prompting for a password.  I was trying to hard-code the
>> password in the script so that it could work unattended.  The ultimate
>> aim is to have an array of hosts to check, then cycle through the hosts
>> in a "for" loop.  I'm wanting to audit 103 hosts; I really don't want
>> to
>> type the password by hand that many times :)
>>
>> --Mike
>>
>> Howard, Chris wrote:
>>> Looks to me like it worked!
>>>
>>>
>>>
>>>> -----Original Message-----
>>>> From: Mike Wallette [mailto:mwa...@uu...]
>>>> Sent: Thursday, July 09, 2009 2:27 PM
>>>> To: ssh...@li...
>>>> Subject: [Ssh-sftp-perl-users] login using scripted password?
>>>>
>>>> Hello!
>>>>
>>>> I am trying to write a script using the Net::SSH:Perl module to
>>>> automatically login to several remote machines on my network.  I
>>>> understand the security implications of this; the script is a one-
>> off
>>>> to
>>>> automate what would be a really tedious job to do by hand.
>>>>
>>>> Unfortunately, the $ssh->login($username, $password) portion of the
>>>> script seems to be ignoring the $password.  Here's the script:
>>>>
>>>>
>>>> ----------------------------Start Script----------------------------
>>>> #! /usr/bin/perl
>>>>
>>>> use strict;
>>>> use Net::SSH::Perl;
>>>>
>>>> # Username, password and IP address have been altered since this is
>>>> # being posted in a public forum.
>>>> my $cmd = "uname -a; exit";
>>>> my $host= "192.168.244.26";
>>>> my $ssh = Net::SSH::Perl->new($host,
>>>>                                protocol=>'2',
>>>>                                debug=>'true',
>>>>                                #interactive=>'false',
>>>>                                options=>["BatchMode yes"]);
>>>>
>>>> $ssh->login("myusername","mypassword");
>>>> my ($stdout, $stderr, $exit) = $ssh->cmd($cmd);
>>>> if ($exit == 0)
>>>>    {
>>>>      print "$stdout\n\n";
>>>>    }
>>>> else
>>>>    {
>>>>      warn("Unable to access ${host}: ${stderr}\n");
>>>>    }
>>>>
>>>> -----------------------------End Script-----------------------------
>>>>
>>>>
>>>> When I run the script with "interactive=>'false'" commented out (as
>>>> shown above), I get the following output:
>>>>
>>>> ----------------------------Start Output----------------------------
>>>>
>>>> user@desktop: ~/development/perl $ myscript.pl
>>>> desktop: Reading configuration data /home/user/.ssh/config
>>>> desktop: Reading configuration data /etc/ssh_config
>>>> desktop: Connecting to 192.168.244.26, port 22.
>>>> desktop: Remote protocol version 2.0, remote software version
>>>> OpenSSH_5.2
>>>> desktop: Net::SSH::Perl Version 1.34, protocol version 2.0.
>>>> desktop: No compat match: OpenSSH_5.2
>>>> desktop: Connection established.
>>>> desktop: Sent key-exchange init (KEXINIT), wait response.
>>>> desktop: Algorithms, c->s: 3des-cbc hmac-sha1 none
>>>> desktop: Algorithms, s->c: 3des-cbc hmac-sha1 none
>>>> desktop: Entering Diffie-Hellman Group 1 key exchange.
>>>> desktop: Sent DH public key, waiting for reply.
>>>> desktop: Received host key, type 'ssh-dss'.
>>>> desktop: Host '192.168.244.26' is known and matches the host key.
>>>> desktop: Computing shared secret key.
>>>> desktop: Verifying server signature.
>>>> desktop: Waiting for NEWKEYS message.
>>>> desktop: Send NEWKEYS.
>>>> desktop: Enabling encryption/MAC/compression.
>>>> desktop: Sending request for user-authentication service.
>>>> desktop: Service accepted: ssh-userauth.
>>>> desktop: Trying empty user-authentication request.
>>>> desktop: Authentication methods that can continue:
>>>> publickey,keyboard-interactive.
>>>> desktop: Next method to try is publickey.
>>>> desktop: Publickey: testing agent key ''
>>>> desktop: Authentication methods that can continue:
>>>> publickey,keyboard-interactive.
>>>> desktop: Next method to try is publickey.
>>>> desktop: Next method to try is keyboard-interactive.
>>>> Password:
>>>> ^C
>>>> user@desktop: ~/development/perl $
>>>>
>>>> -----------------------------End Output-----------------------------
>>>>
>>>>
>>>> On the other hand, if I leave "interactive=>'false'" in the script,
>> I
>>>> get...:
>>>>
>>>> ----------------------------Start Output----------------------------
>>>>
>>>> user@desktop ~/development/perl $ ./myscript.pl
>>>> desktop: Reading configuration data /home/user/.ssh/config
>>>> desktop: Reading configuration data /etc/ssh_config
>>>> desktop: Connecting to 192.168.244.26, port 22.
>>>> desktop: Remote protocol version 2.0, remote software version
>>>> OpenSSH_5.2
>>>> desktop: Net::SSH::Perl Version 1.34, protocol version 2.0.
>>>> .ikemachine: No compat match: OpenSSH_5.2
>>>> desktop: Connection established.
>>>> desktop: Sent key-exchange init (KEXINIT), wait response.
>>>> desktop: Algorithms, c->s: 3des-cbc hmac-sha1 none
>>>> desktop: Algorithms, s->c: 3des-cbc hmac-sha1 none
>>>> desktop: Entering Diffie-Hellman Group 1 key exchange.
>>>> desktop: Sent DH public key, waiting for reply.
>>>> desktop: Received host key, type 'ssh-dss'.
>>>> desktop: Host '192.168.244.26' is known and matches the host key.
>>>> desktop: Computing shared secret key.
>>>> desktop: Verifying server signature.
>>>> desktop: Waiting for NEWKEYS message.
>>>> desktop: Send NEWKEYS.
>>>> desktop: Enabling encryption/MAC/compression.
>>>> desktop: Sending request for user-authentication service.
>>>> desktop: Service accepted: ssh-userauth.
>>>> desktop: Trying empty user-authentication request.
>>>> desktop: Authentication methods that can continue:
>>>> publickey,keyboard-interactive.
>>>> desktop: Next method to try is publickey.
>>>> desktop: Publickey: testing agent key ''
>>>> desktop: Authentication methods that can continue:
>>>> publickey,keyboard-interactive.
>>>> desktop: Next method to try is publickey.
>>>> desktop: Next method to try is keyboard-interactive.
>>>> Password:
>>>> desktop: Login completed, opening dummy shell channel.
>>>> desktop: channel 0: new [client-session]
>>>> desktop: Requesting channel_open for channel 0.
>>>> desktop: channel 0: open confirm rwindow 0 rmax 32768
>>>> desktop: Got channel open confirmation, requesting shell.
>>>> desktop: Requesting service shell on channel 0.
>>>> desktop: channel 1: new [client-session]
>>>> desktop: Requesting channel_open for channel 1.
>>>> desktop: Entering interactive session.
>>>> desktop: Sending command: uname -a; exit
>>>> desktop: Sending command: uname -a; exit
>>>> desktop: Requesting service exec on channel 1.
>>>> desktop: channel 1: open confirm rwindow 0 rmax 32768
>>>> desktop: channel 1: rcvd eof
>>>> desktop: channel 1: output open -> drain
>>>> desktop: input_channel_request: rtype exit-status reply 0
>>>> desktop: channel 1: rcvd close
>>>> desktop: channel 1: input open -> closed
>>>> desktop: channel 1: close_read
>>>> desktop: channel 1: obuf empty
>>>> desktop: channel 1: output drain -> closed
>>>> desktop: channel 1: close_write
>>>> desktop: channel 1: send close
>>>> desktop: channel 1: full closed
>>>> Linux desktop.uui-alaska.com 2.6.29-gentoo-r5 #2 SMP PREEMPT Wed Jun
>>> 10
>>>> 09:50:55 AKDT 2009 i686 Genuine Intel(R) CPU T2600 @ 2.16GHz
>>>> GenuineIntel GNU/Linux
>>>>
>>>>
>>>> user@desktop ~/development/perl $
>>>>
>>>> -----------------------------End Output-----------------------------
>>>>
>>>>
>>>> I don't understand why Net::SSH::Perl isn't using the scripted
>>> password
>>>> to login in at least one of these variations.  Does anyone know what
>>> it
>>>> is I am doing wrong?
>>>>
>>>> Thanks!
>>>>
>>>> --Mike Wallette
>>>>    Assistant Network Administrator, United Utilities, Inc.
>>>>
>>>> --
>>>> On time, under budget.  Now with 98% uptime!
>>>>
>>>>
>>> ---------------------------------------------------------------------
>> --
>>>> -------
>>>> Enter the BlackBerry Developer Challenge
>>>> This is your chance to win up to $100,000 in prizes! For a limited
>>>> time,
>>>> vendors submitting new applications to BlackBerry App World(TM) will
>>>> have
>>>> the opportunity to enter the BlackBerry Developer Challenge. See
>> full
>>>> prize
>>>> details at: http://p.sf.net/sfu/Challenge
>>>> _______________________________________________
>>>> Ssh-sftp-perl-users mailing list
>>>> Ssh...@li...
>>>> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
>> --
>> On time, under budget.  Now with 98% uptime!

-- 
On time, under budget.  Now with 98% uptime!

[Ssh-sftp-perl-users] login using scripted password?

[Mike W. <mwa...@uu...>]

Hello!

I am trying to write a script using the Net::SSH:Perl module to 
automatically login to several remote machines on my network.  I 
understand the security implications of this; the script is a one-off to 
automate what would be a really tedious job to do by hand.

Unfortunately, the $ssh->login($username, $password) portion of the 
script seems to be ignoring the $password.  Here's the script:


----------------------------Start Script----------------------------
#! /usr/bin/perl

use strict;
use Net::SSH::Perl;

# Username, password and IP address have been altered since this is
# being posted in a public forum.
my $cmd = "uname -a; exit";
my $host= "192.168.244.26";
my $ssh = Net::SSH::Perl->new($host,
                               protocol=>'2',
                               debug=>'true',
                               #interactive=>'false',
                               options=>["BatchMode yes"]);

$ssh->login("myusername","mypassword");
my ($stdout, $stderr, $exit) = $ssh->cmd($cmd);
if ($exit == 0)
   {
     print "$stdout\n\n";
   }
else
   {
     warn("Unable to access ${host}: ${stderr}\n");
   }

-----------------------------End Script-----------------------------


When I run the script with "interactive=>'false'" commented out (as 
shown above), I get the following output:

----------------------------Start Output----------------------------

user@desktop: ~/development/perl $ myscript.pl
desktop: Reading configuration data /home/user/.ssh/config
desktop: Reading configuration data /etc/ssh_config
desktop: Connecting to 192.168.244.26, port 22.
desktop: Remote protocol version 2.0, remote software version OpenSSH_5.2
desktop: Net::SSH::Perl Version 1.34, protocol version 2.0.
desktop: No compat match: OpenSSH_5.2
desktop: Connection established.
desktop: Sent key-exchange init (KEXINIT), wait response.
desktop: Algorithms, c->s: 3des-cbc hmac-sha1 none
desktop: Algorithms, s->c: 3des-cbc hmac-sha1 none
desktop: Entering Diffie-Hellman Group 1 key exchange.
desktop: Sent DH public key, waiting for reply.
desktop: Received host key, type 'ssh-dss'.
desktop: Host '192.168.244.26' is known and matches the host key.
desktop: Computing shared secret key.
desktop: Verifying server signature.
desktop: Waiting for NEWKEYS message.
desktop: Send NEWKEYS.
desktop: Enabling encryption/MAC/compression.
desktop: Sending request for user-authentication service.
desktop: Service accepted: ssh-userauth.
desktop: Trying empty user-authentication request.
desktop: Authentication methods that can continue: 
publickey,keyboard-interactive.
desktop: Next method to try is publickey.
desktop: Publickey: testing agent key ''
desktop: Authentication methods that can continue: 
publickey,keyboard-interactive.
desktop: Next method to try is publickey.
desktop: Next method to try is keyboard-interactive.
Password:
^C
user@desktop: ~/development/perl $

-----------------------------End Output-----------------------------


On the other hand, if I leave "interactive=>'false'" in the script, I 
get...:

----------------------------Start Output----------------------------

user@desktop ~/development/perl $ ./myscript.pl
desktop: Reading configuration data /home/user/.ssh/config
desktop: Reading configuration data /etc/ssh_config
desktop: Connecting to 192.168.244.26, port 22.
desktop: Remote protocol version 2.0, remote software version OpenSSH_5.2
desktop: Net::SSH::Perl Version 1.34, protocol version 2.0.
.ikemachine: No compat match: OpenSSH_5.2
desktop: Connection established.
desktop: Sent key-exchange init (KEXINIT), wait response.
desktop: Algorithms, c->s: 3des-cbc hmac-sha1 none
desktop: Algorithms, s->c: 3des-cbc hmac-sha1 none
desktop: Entering Diffie-Hellman Group 1 key exchange.
desktop: Sent DH public key, waiting for reply.
desktop: Received host key, type 'ssh-dss'.
desktop: Host '192.168.244.26' is known and matches the host key.
desktop: Computing shared secret key.
desktop: Verifying server signature.
desktop: Waiting for NEWKEYS message.
desktop: Send NEWKEYS.
desktop: Enabling encryption/MAC/compression.
desktop: Sending request for user-authentication service.
desktop: Service accepted: ssh-userauth.
desktop: Trying empty user-authentication request.
desktop: Authentication methods that can continue: 
publickey,keyboard-interactive.
desktop: Next method to try is publickey.
desktop: Publickey: testing agent key ''
desktop: Authentication methods that can continue: 
publickey,keyboard-interactive.
desktop: Next method to try is publickey.
desktop: Next method to try is keyboard-interactive.
Password:
desktop: Login completed, opening dummy shell channel.
desktop: channel 0: new [client-session]
desktop: Requesting channel_open for channel 0.
desktop: channel 0: open confirm rwindow 0 rmax 32768
desktop: Got channel open confirmation, requesting shell.
desktop: Requesting service shell on channel 0.
desktop: channel 1: new [client-session]
desktop: Requesting channel_open for channel 1.
desktop: Entering interactive session.
desktop: Sending command: uname -a; exit
desktop: Sending command: uname -a; exit
desktop: Requesting service exec on channel 1.
desktop: channel 1: open confirm rwindow 0 rmax 32768
desktop: channel 1: rcvd eof
desktop: channel 1: output open -> drain
desktop: input_channel_request: rtype exit-status reply 0
desktop: channel 1: rcvd close
desktop: channel 1: input open -> closed
desktop: channel 1: close_read
desktop: channel 1: obuf empty
desktop: channel 1: output drain -> closed
desktop: channel 1: close_write
desktop: channel 1: send close
desktop: channel 1: full closed
Linux desktop.uui-alaska.com 2.6.29-gentoo-r5 #2 SMP PREEMPT Wed Jun 10 
09:50:55 AKDT 2009 i686 Genuine Intel(R) CPU T2600 @ 2.16GHz 
GenuineIntel GNU/Linux


user@desktop ~/development/perl $

-----------------------------End Output-----------------------------


I don't understand why Net::SSH::Perl isn't using the scripted password 
to login in at least one of these variations.  Does anyone know what it 
is I am doing wrong?

Thanks!

--Mike Wallette
   Assistant Network Administrator, United Utilities, Inc.

-- 
On time, under budget.  Now with 98% uptime!

[Ssh-sftp-perl-users] CPAN install directory usage

[Perl P. <per...@gm...>]

Hi All,

     I have one doubt, about usage of CPAN install diretory at Windows side.
I have found that TK module is install at "*C:/Perl/site/lib
C:/Perl/lib" .* but
confuse with the usage part.
Please find the sanpshot from the screen as below.

V:\view_MAIN\vob_verif>perl -MTk -e 1
Can't locate Tk.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .).
BEGIN failed--compilation aborted.

V:\view_MAIN\vob_verif>perl -e "print qq(@INC)"
*C:/Perl/site/lib C:/Perl/lib .*
I tried, different ways to embed the above installed directory path in my
script, but I am getting the result as Can't locate Tk.pm in @INC.

Please find my script as below, made this one very short for debuging
pupose.

#!/usr/bin/perl -w
use lib "C\:\\Perl\\site\\lib";

#use lib "C:\/Perl\/site/lib C:\/Perl\/lib";
use Tk;

Please find the error message,

*V:\aec_MAIN\platform_verif>perl Test.pl
Can't locate Tk.pm in @INC (@INC contains: C:\Perl\site\lib C:/Perl/site/lib
C:/
*Perl/lib .) at Test.pl line 5.
BEGIN failed--compilation aborted at Test.pl line 5.

This is at Windows OS. Could you please help me to overcome this?

-- 
--
Regards,
Mujju

[Ssh-sftp-perl-users] Show transfer speed?

[Fredrik S. <str...@gm...>]

Hi,
Is there a fancy way to report the speed (kb/sec or w/e) of download/upload
after a file transfer?

Regards
Fred