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

Re: PerlDL: RE: [Ssh-sftp-perl-users] 'new' breaks if using PDL.

[Sean Q. <se...@qu...>]

W00T!!

Thanks Christian! That patch does seem to have fixed the problem. :) It
has moved past that point on to another bug! I'll look over the
UNIVERSAL fix Steve referred to JIK I need that later anyway. But unless
PDL starts to fail because of this patch (I'll let you know immediately
if it does), I seem to be back to debugging our own code.

Thanks everyone!

On Thu, 2005-02-24 at 12:31 +1300, Christian Soeller wrote:
> With that info the following patch might fix things. Please try it (I=20
> assume the 'use UN...' is not really needed).
>=20
>    Christian
>=20
> Index: Basic/Core/Core.pm.PL
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> RCS file: /cvsroot/pdl/PDL/Basic/Core/Core.pm.PL,v
> retrieving revision 1.58
> diff -u -r1.58 Core.pm.PL
> --- Basic/Core/Core.pm.PL       10 Jan 2005 03:38:39 -0000      1.58
> +++ Basic/Core/Core.pm.PL       24 Feb 2005 00:10:59 -0000
> @@ -515,7 +515,7 @@
>   ####################### Overloaded operators #######################
>=20
>   { package PDL;
> -  use UNIVERSAL 'isa'; # need that later in info function
> +  # use UNIVERSAL 'isa'; # need that later in info function
>     use Carp;
>=20
>     use overload (
>=20
>=20
>=20
>=20
--=20
Sean Patrick Quinlan
se...@qu...

Tired of spyware? Wish there was a better, more secure way to browse
the internet? There is, Firefox! And it's free!
http://www.getfirefox.com

RE: [Ssh-sftp-perl-users] 'new' breaks if using PDL.

[Sean Q. <se...@qu...>]

Thanks Steve. I'll review the thread more closely tomorrow.

On Wed, 2005-02-23 at 19:25 -0500, Steve Sapovits wrote:
> I don't remember the details -- it's been a while since I patched
> it.  What I do remember is that trying to patch the modules reporting
> the error just kept moving it to new modules and that only making the
> UNIVERSAL.pm change fixed it.  I believe once I fixed it in the Crypt
> modules, it moved to something entirely unrelated.  In part of the 
> thread I referenced, there is a simple fix to UNIVERSAL.pm that fixes
> it for everyone. 
> 
> If you have more issues I'll see if I can find any remains of what I
> did in email threads, etc.
> 
> ----
> Steve Sapovits
> 
> 
-- 
Sean Patrick Quinlan
se...@qu...

Tired of spyware? Wish there was a better, more secure way to browse
the internet? There is, Firefox! And it's free!
http://www.getfirefox.com

RE: [Ssh-sftp-perl-users] 'new' breaks if using PDL.

[Steve S. <sap...@gs...>]

I don't remember the details -- it's been a while since I patched
it.  What I do remember is that trying to patch the modules reporting
the error just kept moving it to new modules and that only making the
UNIVERSAL.pm change fixed it.  I believe once I fixed it in the Crypt
modules, it moved to something entirely unrelated.  In part of the 
thread I referenced, there is a simple fix to UNIVERSAL.pm that fixes
it for everyone. 

If you have more issues I'll see if I can find any remains of what I
did in email threads, etc.

----
Steve Sapovits

RE: [Ssh-sftp-perl-users] 'new' breaks if using PDL.

[Sean Q. <se...@qu...>]

On Wed, 2005-02-23 at 18:45 -0500, Steve Sapovits wrote:
> This is (I think) actually a more general issue related to the=20
> UNIVERSAL package that comes with Perl.  It's discussed here:
>=20
> http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2003-10/msg00163.h=
tml
>=20
> I had to modify UNIVERSAL.pm on my system to get rid of these
> errors. =20

:( Why that is causing a problem just sailed right over my head. I'll
look at it more closely in the morning. I notice that Crypt::Random uses
*import      =3D \&Exporter::import;

Which is mentioned in the docs the email your referred to quotes. Is
that what is the source of the error? I'd never seen that before. Do you
have a guess why that conflicts with PDL when PDL doesn't seem to have a
'makerandom'? Personally I'd rather patch the modules than mess with
UNIVERSAL, but if you could provide you patch so I could test it (rather
than poke around myself for a bit ;) I'd appreciate it.

Thanks!
--=20
Sean Patrick Quinlan
se...@qu...

Tired of spyware? Wish there was a better, more secure way to browse
the internet? There is, Firefox! And it's free!
http://www.getfirefox.com

RE: [Ssh-sftp-perl-users] 'new' breaks if using PDL.

[Steve S. <sap...@gs...>]

This is (I think) actually a more general issue related to the 
UNIVERSAL package that comes with Perl.  It's discussed here:

http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2003-10/msg00163.html

I had to modify UNIVERSAL.pm on my system to get rid of these
errors.  

----
Steve Sapovits

RE: [Ssh-sftp-perl-users] 'new' breaks if using PDL.

[Sean Q. <se...@qu...>]

On Wed, 2005-02-23 at 16:22 -0500, Sean Quinlan wrote:
> On Wed, 2005-02-23 at 15:51 -0500, David Robins wrote:
> > I've reduced it to "perl -MPDL::Core -MCrypt::Random -e ''" and I still=
 get the error in Crypt::Random, so it isn't Net::SSH::Perl related.  That'=
s not to say that I or someone else on the list won't help you figure it ou=
t, of course; I'll keep looking into it.

In case it helps anyone, reversing the order here causes both to load
without error:
perl -MCrypt::Random -MPDL::Core -e ''

And this works:
perl -MNet::SSH::Perl -MPDL -e ''

But unfortunately changing the order in which modules are use'd in my
programs doesn't help (I tried before and just double checked). I
suspect this is because I use mod_perl, so I'd need to force NSP to load
first at startup - I'm going to give that a try.

--=20
Sean Patrick Quinlan
se...@qu...

Tired of spyware? Wish there was a better, more secure way to browse
the internet? There is, Firefox! And it's free!
http://www.getfirefox.com

RE: [Ssh-sftp-perl-users] 'new' breaks if using PDL.

[Sean Q. <se...@qu...>]

On Wed, 2005-02-23 at 15:51 -0500, David Robins wrote:
> I've reduced it to "perl -MPDL::Core -MCrypt::Random -e ''" and I still get the error in Crypt::Random, so it isn't Net::SSH::Perl related.  That's not to say that I or someone else on the list won't help you figure it out, of course; I'll keep looking into it.

Many many thanks! I've CC'd the author of Crypt::Random JIK.

> It looks like the issue involves Exporter (possibly the export cache), perhaps PDL is doing evil things?

Having now read the source for Crypt::Random, that's looking more likely
to be the case. I'm trying to find anything in PDL that might indicate
culpability. I didn't grep any instances of 'makerandom' in the PDL
source, which is too bad. I was really hoping it might be some odd
namespace clash that could be found relatively easily.

I did find this:
/usr/local/lib/perl5/site_perl/5.8.3/alpha-dec_osf-thread-multi/auto/Crypt/Random/.packlist:/usr/local/bin/makerandom

But I don't see how that would be the source of conflict.

> -----Original Message-----
> From:	ssh...@li... on behalf of Sean Quinlan
> Sent:	Wed 2/23/2005 2:35 PM
> To:	ssh...@li...
> Cc:	pe...@ja...
> Subject:	[Ssh-sftp-perl-users] 'new' breaks if using PDL.
> I have a function in a module which executes a long process (blast) on a
> remote server via Net::SSH::Perl (NSP). This function is used by a
> number of different programs quite successfully (thanks!). However it
> recently started failing spectacularly in a program after I started
> using a module based on PDL (pdl.perl.org). The Perl version, OS and
> errors are below. I'm using NSP version 1.27 and PDL version 2.4.0.
> 
> I've confirmed this as best I can by first stripping out use of my PDL
> based modules, then adding them back piece by piece. The error below
> doesn't occur until I have to add C<use PDL;> back in. I've also done a
> trial case by adding C<use PDL;> to a program that uses the blast
> function without error, and adding just the use statement causes the
> same errors as below.
> 
> My first guess is this is from a namespace conflict of some kind? I'm
> hoping someone on these lists can help narrow down and resolve this
> issue with far more alacrity than I, although I am digging.
> 
> Thanks!
> Sean
> 
> 234: 1:57pm % perl -v
> 
> This is perl, v5.8.3 built for alpha-dec_osf-thread-multi
> 
> 235: 1:58pm % uname -a
> OSF1 huxley V5.1 1885 alpha
> 
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: "makerandom" is not exported by the
> Crypt::Random module
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl:  "makerandom_itv" is not exported by the
> Crypt::Random module
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl:  "makerandom_octet" is not exported by
> the Crypt::Random module
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: Can't continue after import errors
> at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random/Generator.pm line
> 12
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
> at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random/Generator.pm line
> 12, <GEN0> line 1.
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: Compilation failed in require
> at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random.pm line 18, <GEN0>
> line 1.
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
> at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random.pm line 18, <GEN0>
> line 1.
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: Compilation failed in require
> at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/DH.pm line 6, <GEN0> line
> 1.
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
> at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/DH.pm line 6, <GEN0> line
> 1.
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: Compilation failed in require
> at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex/DH1.pm line 13,
> <GEN0> line 1.
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
> at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex/DH1.pm line 13,
> <GEN0> line 1.
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: Compilation failed in require
> at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex.pm line 6,
> <GEN0> line 1.
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
> at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex.pm line 6,
> <GEN0> line 1.
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: Compilation failed in require
> at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/SSH2.pm line 6,
> <GEN0> line 1.
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
> 2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
> at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/SSH2.pm line 6,
> <GEN0> line 1.
> [Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: Compilation failed
> in require at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl.pm line
> 51.
> 
-- 
Sean Patrick Quinlan
se...@qu...

Tired of spyware? Wish there was a better, more secure way to browse
the internet? There is, Firefox! And it's free!
http://www.getfirefox.com

RE: [Ssh-sftp-perl-users] 'new' breaks if using PDL.

[David R. <dr...@at...>]

I've reduced it to "perl -MPDL::Core -MCrypt::Random -e ''" and I still =
get the error in Crypt::Random, so it isn't Net::SSH::Perl related.  =
That's not to say that I or someone else on the list won't help you =
figure it out, of course; I'll keep looking into it.

It looks like the issue involves Exporter (possibly the export cache), =
perhaps PDL is doing evil things?


-----Original Message-----
From:	ssh...@li... on behalf of Sean =
Quinlan
Sent:	Wed 2/23/2005 2:35 PM
To:	ssh...@li...
Cc:	pe...@ja...
Subject:	[Ssh-sftp-perl-users] 'new' breaks if using PDL.
I have a function in a module which executes a long process (blast) on a
remote server via Net::SSH::Perl (NSP). This function is used by a
number of different programs quite successfully (thanks!). However it
recently started failing spectacularly in a program after I started
using a module based on PDL (pdl.perl.org). The Perl version, OS and
errors are below. I'm using NSP version 1.27 and PDL version 2.4.0.

I've confirmed this as best I can by first stripping out use of my PDL
based modules, then adding them back piece by piece. The error below
doesn't occur until I have to add C<use PDL;> back in. I've also done a
trial case by adding C<use PDL;> to a program that uses the blast
function without error, and adding just the use statement causes the
same errors as below.

My first guess is this is from a namespace conflict of some kind? I'm
hoping someone on these lists can help narrow down and resolve this
issue with far more alacrity than I, although I am digging.

Thanks!
Sean

234: 1:57pm % perl -v

This is perl, v5.8.3 built for alpha-dec_osf-thread-multi

235: 1:58pm % uname -a
OSF1 huxley V5.1 1885 alpha

[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: "makerandom" is not exported by the
Crypt::Random module
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl:  "makerandom_itv" is not exported by the
Crypt::Random module
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl:  "makerandom_octet" is not exported by
the Crypt::Random module
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Can't continue after import errors
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random/Generator.pm line
12
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random/Generator.pm line
12, <GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Compilation failed in require
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random.pm line 18, <GEN0>
line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random.pm line 18, <GEN0>
line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Compilation failed in require
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/DH.pm line 6, <GEN0> line
1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/DH.pm line 6, <GEN0> line
1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Compilation failed in require
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex/DH1.pm line 13,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex/DH1.pm line 13,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Compilation failed in require
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex.pm line 6,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex.pm line 6,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Compilation failed in require
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/SSH2.pm line 6,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/SSH2.pm line 6,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: Compilation failed
in require at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl.pm line
51.

--=20
Sean Patrick Quinlan
se...@qu...

Tired of spyware? Wish there was a better, more secure way to browse
the internet? There is, Firefox! And it's free!
http://www.getfirefox.com



-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=3D6595&alloc_id=3D14396&op=3Dclick
_______________________________________________
Ssh-sftp-perl-users mailing list
Ssh...@li...
https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users

[Ssh-sftp-perl-users] 'new' breaks if using PDL.

[Sean Q. <se...@qu...>]

I have a function in a module which executes a long process (blast) on a
remote server via Net::SSH::Perl (NSP). This function is used by a
number of different programs quite successfully (thanks!). However it
recently started failing spectacularly in a program after I started
using a module based on PDL (pdl.perl.org). The Perl version, OS and
errors are below. I'm using NSP version 1.27 and PDL version 2.4.0.

I've confirmed this as best I can by first stripping out use of my PDL
based modules, then adding them back piece by piece. The error below
doesn't occur until I have to add C<use PDL;> back in. I've also done a
trial case by adding C<use PDL;> to a program that uses the blast
function without error, and adding just the use statement causes the
same errors as below.

My first guess is this is from a namespace conflict of some kind? I'm
hoping someone on these lists can help narrow down and resolve this
issue with far more alacrity than I, although I am digging.

Thanks!
Sean

234: 1:57pm % perl -v

This is perl, v5.8.3 built for alpha-dec_osf-thread-multi

235: 1:58pm % uname -a
OSF1 huxley V5.1 1885 alpha

[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: "makerandom" is not exported by the
Crypt::Random module
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl:  "makerandom_itv" is not exported by the
Crypt::Random module
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl:  "makerandom_octet" is not exported by
the Crypt::Random module
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Can't continue after import errors
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random/Generator.pm line
12
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random/Generator.pm line
12, <GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Compilation failed in require
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random.pm line 18, <GEN0>
line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/Random.pm line 18, <GEN0>
line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Compilation failed in require
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/DH.pm line 6, <GEN0> line
1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Crypt/DH.pm line 6, <GEN0> line
1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Compilation failed in require
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex/DH1.pm line 13,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex/DH1.pm line 13,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Compilation failed in require
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex.pm line 6,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/Kex.pm line 6,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: Compilation failed in require
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/SSH2.pm line 6,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: [Wed Feb 23 13:30:04
2005] profile-request-cgi.prl: BEGIN failed--compilation aborted
at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl/SSH2.pm line 6,
<GEN0> line 1.
[Wed Feb 23 13:30:04 2005] profile-request-cgi.prl: Compilation failed
in require at /usr/local/lib/perl5/site_perl/5.8.3/Net/SSH/Perl.pm line
51.

-- 
Sean Patrick Quinlan
se...@qu...

Tired of spyware? Wish there was a better, more secure way to browse
the internet? There is, Firefox! And it's free!
http://www.getfirefox.com

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

[Chris r <lit...@ya...>]

I've got a script that connects to various servers to
run some admin commands. It works for the most part,
but upon hitting certain servers it seems to hang
waiting for the command to finish.
im just using the standard syntax... 

$ssh = Net::SSH::Perl->new($BACKSERVER, port => '22');
$ssh->login("$user", "$pass");
($out, $err, $exit) = $ssh->cmd("somecommand");

I've tried piping and sending the command output to
the background and null, it helps on one server but
not another and my script hangs unable to finish.

($out, $err, $exit) = $ssh->cmd("somecommand &");
($out, $err, $exit) = $ssh->cmd("somecommand >
/dev/null &");

Any workarounds on how to get the command to return
and continue on with execution would help.
Thanks.

[Ssh-sftp-perl-users] Bug reporting, and CPAN forums

[David R. <dr...@at...>]

Just as a reminder: when reporting a problem with =
Net::SFTP/Net::SSH::Perl, please report your Perl and =
Net::SFTP/Net::SSH::Perl version(s) and if possible include a minimal =
piece of code that duplicates the problem, as well as any =
differentiating circumstances (e.g. "it works on Linux and Solaris, but =
not BSD").

The maintainers use rt.cpan.org for bug tracking; that's the best place =
to report a bug (and post a tracking # to the list if you like).  You =
can also check if a similar bug has already been reported.

Before reporting a bug, please upgrade the modules and their =
dependencies to the latest versions and see if that fixes it; I =
understand that isn't always possible; on the other hand, none of us =
want to be investigating problems that have already been fixed (for =
example, someone recently found that version 2.01 of one of the Digest =
modules produced an error, but that 2.10 worked fine [so I'm going to =
change the version requirement in Makefile.PL]).  Also, sometimes it =
helps if you enable debug mode and include/attach a debug dump (or the =
relevant sections thereof).

If you provide a patch, that's even better (but still report in detail =
what it fixes).

Gabor Szabo (excluse lack of accents) has recently set up something =
called CPAN forum, for discussing any and all perl modules =
(http://www.cpanforum.com).  It looks pretty decent; it may even be =
worth using it in place of this mailing list.  Opinions?

Thanks,

--=20
Dave (co-maintainer)
Isa. 40:31

[Ssh-sftp-perl-users] Help needed: Connection drops...

[CG <cg...@ya...>]

I'm having problems sending and receiving files to and from a server running
the commercial WinSSHD when I use Net::SFTP ... I can transfer the files using
OpenSSH's sftp client, though. I printed out the debug log, but everything
looks great until the end when it drops. It never gets to the end of the file,
even though it says that it received an eof. After the drop, the $sftp
connection is dead for the remainder of the script.

Here's the log...

server: Reading configuration data /usr/local/appdir/.ssh/config
server: Reading configuration data /etc/ssh_config
server: Connecting to XXX.XXX.XXX.XXX, port 22.
server: Remote protocol version 2.0, remote software version 1.43 sshlib:
WinSSHD 3.28d
server: Net::SSH::Perl Version 1.27, protocol version 2.0.
server: No compat match: 1.43 sshlib: WinSSHD 3.28d
server: Connection established.
server: Sent key-exchange init (KEXINIT), wait response.
server: Algorithms, c->s: 3des-cbc hmac-sha1 none
server: Algorithms, s->c: 3des-cbc hmac-sha1 none
server: Entering Diffie-Hellman Group 1 key exchange.
server: Sent DH public key, waiting for reply.
server: Received host key, type 'ssh-dss'.
server: Host 'XXX.XXX.XXX.XXX' is known and matches the host key.
server: Computing shared secret key.
server: Verifying server signature.
server: Waiting for NEWKEYS message.
server: Enabling incoming encryption/MAC/compression.
server: Send NEWKEYS, enable outgoing encryption/MAC/compression.
server: Sending request for user-authentication service.
server: Service accepted: ssh-userauth.
server: Trying empty user-authentication request.
server: Authentication methods that can continue: publickey,password.
server: Next method to try is publickey.
server: Trying pubkey authentication with key file
'/usr/local/appdir/.ssh/id_dsa'
server: Authentication methods that can continue: publickey,password.
server: Next method to try is publickey.
server: Next method to try is password.
server: Trying password authentication.
server: Login completed, opening dummy shell channel.
server: channel 0: new [client-session]
server: Requesting channel_open for channel 0.
server: channel 0: open confirm rwindow 16384 rmax 16384
server: Got channel open confirmation, requesting shell.
server: Requesting service shell on channel 0.
server: channel 1: new [client-session]
server: Requesting channel_open for channel 1.
server: Sending subsystem: sftp
server: Requesting service subsystem on channel 1.
server: channel 1: open confirm rwindow 16384 rmax 16384
server: sftp: Sending SSH2_FXP_INIT
server: sftp: Remote version: 2
server: sftp: Sent message T:16 I:0
server: sftp: Sent message T:11 I:1
server: sftp: Sent message T:11 I:2
server: sftp: Sent message T:12 I:3
server: sftp: Received reply T:104 I:3
server: sftp: Received 9 SSH2_FXP_NAME responses
server: sftp: Sent message T:12 I:4
server: sftp: Received reply T:101 I:4
server: sftp: Received SSH2_FXP_STATUS 1
server: sftp: Sent message T:4 I:5
server: sftp: Sent message T:17 I:6
server: sftp: Received stat reply T:105 I:6
server: sftp: Sent SSH2_FXP_OPEN I:7 P:/filename.tar.gz
server: sftp: Sent message SSH2_FXP_READ I:8 O:0
server: sftp: Received reply T:103 I:8
server: sftp: In read loop, got 8192 offset 0
server: sftp: Sent message SSH2_FXP_READ I:9 O:8192
server: channel 1: window 15123 sent adjust 17645
server: sftp: Received reply T:103 I:9
server: sftp: In read loop, got 8192 offset 8192
server: sftp: Sent message SSH2_FXP_READ I:10 O:16384
server: sftp: Received reply T:103 I:10
server: sftp: In read loop, got 8192 offset 16384
server: sftp: Sent message SSH2_FXP_READ I:11 O:24576

[removed for brevity...]

server: channel 1: window 16358 sent adjust 16410
server: sftp: Received reply T:103 I:213
server: sftp: In read loop, got 8192 offset 1679360
server: sftp: Sent message SSH2_FXP_READ I:214 O:1687552
server: sftp: Received reply T:103 I:214
server: sftp: In read loop, got 8192 offset 1687552
server: sftp: Sent message SSH2_FXP_READ I:215 O:1695744
server: channel 1: window 16358 sent adjust 16410
server: sftp: Received reply T:103 I:215
server: sftp: In read loop, got 8192 offset 1695744
server: sftp: Sent message SSH2_FXP_READ I:216 O:1703936
server: sftp: Received reply T:103 I:216
server: sftp: In read loop, got 8192 offset 1703936
server: sftp: Sent message SSH2_FXP_READ I:217 O:1712128
server: channel 1: window 16358 sent adjust 16410
server: sftp: Received reply T:103 I:217
server: sftp: In read loop, got 8192 offset 1712128
server: sftp: Sent message SSH2_FXP_READ I:218 O:1720320
server: sftp: Received reply T:103 I:218
server: sftp: In read loop, got 8192 offset 1720320
server: sftp: Sent message SSH2_FXP_READ I:219 O:1728512
server: channel 1: window 16358 sent adjust 16410
server: sftp: Received reply T:103 I:219
server: sftp: In read loop, got 8192 offset 1728512
server: sftp: Sent message SSH2_FXP_READ I:220 O:1736704
server: sftp: Received reply T:103 I:220
server: sftp: In read loop, got 6015 offset 1736704
server: sftp: Sent message SSH2_FXP_READ I:221 O:1742719
server: channel 1: rcvd eof
server: channel 1: output open -> drain
server: channel 1: rcvd close
server: channel 1: input open -> closed
server: channel 1: close_read
server: channel 1: obuf empty
server: channel 1: output drain -> closed
server: channel 1: close_write
server: channel 1: send close
server: channel 1: full closed

What other information would you need to help troubleshoot this?



		
__________________________________ 
Do you Yahoo!? 
Yahoo! Mail - now with 250MB free storage. Learn more.
http://info.mail.yahoo.com/mail_250

[Ssh-sftp-perl-users] RELEASE: Net::SSH::Perl 1.27

[David R. <dr...@at...>]

Summary: clean up Makefile.PL for CPANPLUS/sudo; fix "can't find =
F_SETFL" error; default to port 22 if all else fails; add "BindAddress" =
option support; better handling of SSH2 protocol names.

This release contains a set of small fixes, which I wanted to get in =
before tacking some of the larger issues logged in rt.cpan.org: channels =
(e.g. with SSH2 cmd() should reuse channels) and gratuitous use of STDIN =
(STDIN/STDOUT/STDERR should never be touched unless an interactive =
session is explicitly requested).  If those issues can be fixed it =
should take care of a number of rt.cpan.org tickets (e.g. problems =
manifesting only when a script is run under cron); if anyone else has =
patches/suggestions in these areas they'd be appreciated.  In cases =
where I don't have the system to test an issue (e.g. the NetScreen =
issue) will try to get in touch with reporters and get them a =
pre-release version to check if the bug was addressed.

Changelog:

1.27  2005.02.06
    - Set socket to non-blocking in more portable manner (rt.cpan.org =
#6728).
    - Default port to 22 in case service list is not available =
(rt.cpan.org
      #5924, Gavin Brock).
    - Allow Net::SSH::Ciphers::supported to take a protocol option to =
get
      SSH2 ciphers (rt.cpan.org #4648, dan at midstream.com), and also =
change
      Net::SSH::Perl::Kex to map SSH1 names to SSH2 names.
    - Support BindAddress (bind to specific IP) (rt.cpan.org #6725, =
patch from
      matt at katipo.co.nz).
    - Have Makefile.PL only generate the prerequisites list, and not try =
to
      install any (let the install shell handle it); this allows =
compatibility
      with CPANPLUS and sudo installs (rt.cpan.org #6835, Michael =
Schwern).

Thanks,

--=20
Dave
Isa. 40:31

RE: [Ssh-sftp-perl-users] does LocalForward work?

[David R. <dr...@at...>]

Unfortunately LocalForward isn't one of the supported directives, so =
it's  ignored.  You can see a list of supported directives in =
Net::SSH::Perl::Config (find the file or use perldoc -m) in the =
%DIRECTIVES hash.

Patches are welcome, or you can add a ticket to the rt.cpan.org for =
Net::SSH::Perl.  It's a fairly large and involved change, since it would =
require listening on the requested port and patching traffic over the =
SSH connection.  My opinion now is that I wouldn't want to add that sort =
of complexity to the module myself (but if you do add a ticket I may get =
to it), but I'd accept a minimally-interfering patch with sufficient =
tests.

(Description of LocalForward from the man page if anyone's interested:)

LocalForward
	     Specifies that a TCP/IP port on the local machine be forwarded
	     over the secure channel to the specified host and port from the
	     remote machine.  The first argument must be a port number, and
	     the second must be host:port.  IPv6 addresses can be specified
	     with an alternative syntax: host/port.  Multiple forwardings may
	     be specified, and additional forwardings can be given on the com-
	     mand line.	 Only the superuser can forward privileged ports.


-----Original Message-----
From:	ssh...@li... on behalf of =
at...@ia...
Sent:	Thu 2/3/2005 3:06 PM
To:	ssh...@li...
Cc:=09
Subject:	[Ssh-sftp-perl-users] does LocalForward work?

I am trying to use LocalForward.  Here is a basic script with my =
attempt.
The local port does not seem to get opened.  Can you please let me know
how to do this?  I didn't see anything in the documents or archives.

Thanks,
Drew

$ cat LocalForward.pl
#!/usr/bin/perl -w

use Net::SSH::Perl;
use Net::Telnet;

$connection_time=3D60; # seconds
$tunnelhost=3D"someHost";
$localhost=3D"someLocalHost";
$tunnelhost_login=3D"THLogin";
$tunnelhost_pwd=3D"THPass";
$localhost_login=3D"LHLogin";
$localhost_pwd=3D"LHPass";
$localhost_prompt=3D"/[\\#\\\$] \$/";
$local_port=3D9999;

my $ssh =3D Net::SSH::Perl->new($tunnelhost,
            debug =3D> "yes",
            options =3D> [
               "LocalForward $local_port $localhost:23" ]);
$ssh->login($tunnelhost_login,$tunnelhost_pwd);

$pid=3Dfork;

if (!$pid) {
  my($stdout, $stderr, $exit) =3D $ssh->cmd("sleep $connection_time");
#  my($stdout, $stderr, $exit) =3D $ssh->cmd("who");
#  print $stdout;
} else {
  sleep(1);
  my $tel =3D new Net::Telnet (Port =3D> $local_port,
                             Timeout =3D> 30,
                             Prompt =3D> $localhost_prompt);
  $tel->open("localhost");
  $tel->login($localhost_login,$localhost_pwd);
  @lines=3D$tel->cmd("who");
  print @lines;
}

exit(0);

$ ./LocalForward.pl
currentHost: Reading configuration data /home/user/.ssh/config
currentHost: Reading configuration data /etc/ssh_config
currentHost: Connecting to someHost, port 22.
currentHost: Remote protocol version 2.0, remote software version
OpenSSH_3.1p1
currentHost: Net::SSH::Perl Version 1.26, protocol version 2.0.
currentHost: No compat match: OpenSSH_3.1p1.
currentHost: Connection established.
currentHost: Sent key-exchange init (KEXINIT), wait response.
currentHost: Algorithms, c->s: 3des-cbc hmac-sha1 none
currentHost: Algorithms, s->c: 3des-cbc hmac-sha1 none
currentHost: Entering Diffie-Hellman Group 1 key exchange.
currentHost: Sent DH public key, waiting for reply.
currentHost: Received host key, type 'ssh-dss'.
currentHost: Host 'someHost' is known and matches the host key.
currentHost: Computing shared secret key.
currentHost: Verifying server signature.
currentHost: Waiting for NEWKEYS message.
currentHost: Enabling incoming encryption/MAC/compression.
currentHost: Send NEWKEYS, enable outgoing
encryption/MAC/compression.
currentHost: Sending request for user-authentication service.
currentHost: Service accepted: ssh-userauth.
currentHost: Trying empty user-authentication request.
currentHost: Authentication methods that can continue:
publickey,password,keyboard-interactive.
currentHost: Next method to try is publickey.
currentHost: Next method to try is password.
currentHost: Trying password authentication.
currentHost: Login completed, opening dummy shell channel.
currentHost: channel 0: new [client-session]
currentHost: Requesting channel_open for channel 0.
currentHost: channel 0: open confirm rwindow 0 rmax 32768
currentHost: Got channel open confirmation, requesting shell.
currentHost: Requesting service shell on channel 0.
currentHost: channel 1: new [client-session]
currentHost: Requesting channel_open for channel 1.
currentHost: Entering interactive session.
currentHost: Sending command: sleep 60
currentHost: Requesting service exec on channel 1.
currentHost: channel 1: open confirm rwindow 0 rmax 32768
problem connecting to "localhost", port 9999: Connection refused at
./LocalForward.pl line 33

Re: [Ssh-sftp-perl-users] Error handling - eval{}

[Jacob S. <tre...@re...>]

Please ignore - I got it ;)

Jacob Steinberger wrote:

> I'm trying to do some error handling with SSH::Perl and I'm having a 
> rough time with it. I've tried using eval{} warn, but the script still 
> dies if the user/pass is incorrect. Are there any other suggestions?
> 
> Thanks,
> 
> Jacob
> 
> 
> -------------------------------------------------------
> This SF.Net email is sponsored by: IntelliVIEW -- Interactive Reporting
> Tool for open source databases. Create drag-&-drop reports. Save time
> by over 75%! Publish reports on the web. Export to DOC, XLS, RTF, etc.
> Download a FREE copy at http://www.intelliview.com/go/osdn_nl
> _______________________________________________
> Ssh-sftp-perl-users mailing list
> Ssh...@li...
> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
> 
> 

[Ssh-sftp-perl-users] Error handling - eval{}

[Jacob S. <tre...@re...>]

I'm trying to do some error handling with SSH::Perl and I'm having a 
rough time with it. I've tried using eval{} warn, but the script still 
dies if the user/pass is incorrect. Are there any other suggestions?

Thanks,

Jacob

[Ssh-sftp-perl-users] does LocalForward work?

[<at...@ia...>]

I am trying to use LocalForward.  Here is a basic script with my attempt.
The local port does not seem to get opened.  Can you please let me know
how to do this?  I didn't see anything in the documents or archives.

Thanks,
Drew

$ cat LocalForward.pl
#!/usr/bin/perl -w

use Net::SSH::Perl;
use Net::Telnet;

$connection_time=3D60; # seconds
$tunnelhost=3D"someHost";
$localhost=3D"someLocalHost";
$tunnelhost_login=3D"THLogin";
$tunnelhost_pwd=3D"THPass";
$localhost_login=3D"LHLogin";
$localhost_pwd=3D"LHPass";
$localhost_prompt=3D"/[\\#\\\$] \$/";
$local_port=3D9999;

my $ssh =3D Net::SSH::Perl->new($tunnelhost,
            debug =3D> "yes",
            options =3D> [
               "LocalForward $local_port $localhost:23" ]);
$ssh->login($tunnelhost_login,$tunnelhost_pwd);

$pid=3Dfork;

if (!$pid) {
  my($stdout, $stderr, $exit) =3D $ssh->cmd("sleep $connection_time");
#  my($stdout, $stderr, $exit) =3D $ssh->cmd("who");
#  print $stdout;
} else {
  sleep(1);
  my $tel =3D new Net::Telnet (Port =3D> $local_port,
                             Timeout =3D> 30,
                             Prompt =3D> $localhost_prompt);
  $tel->open("localhost");
  $tel->login($localhost_login,$localhost_pwd);
  @lines=3D$tel->cmd("who");
  print @lines;
}

exit(0);

$ ./LocalForward.pl
currentHost: Reading configuration data /home/user/.ssh/config
currentHost: Reading configuration data /etc/ssh_config
currentHost: Connecting to someHost, port 22.
currentHost: Remote protocol version 2.0, remote software version
OpenSSH_3.1p1
currentHost: Net::SSH::Perl Version 1.26, protocol version 2.0.
currentHost: No compat match: OpenSSH_3.1p1.
currentHost: Connection established.
currentHost: Sent key-exchange init (KEXINIT), wait response.
currentHost: Algorithms, c->s: 3des-cbc hmac-sha1 none
currentHost: Algorithms, s->c: 3des-cbc hmac-sha1 none
currentHost: Entering Diffie-Hellman Group 1 key exchange.
currentHost: Sent DH public key, waiting for reply.
currentHost: Received host key, type 'ssh-dss'.
currentHost: Host 'someHost' is known and matches the host key.
currentHost: Computing shared secret key.
currentHost: Verifying server signature.
currentHost: Waiting for NEWKEYS message.
currentHost: Enabling incoming encryption/MAC/compression.
currentHost: Send NEWKEYS, enable outgoing
encryption/MAC/compression.
currentHost: Sending request for user-authentication service.
currentHost: Service accepted: ssh-userauth.
currentHost: Trying empty user-authentication request.
currentHost: Authentication methods that can continue:
publickey,password,keyboard-interactive.
currentHost: Next method to try is publickey.
currentHost: Next method to try is password.
currentHost: Trying password authentication.
currentHost: Login completed, opening dummy shell channel.
currentHost: channel 0: new [client-session]
currentHost: Requesting channel_open for channel 0.
currentHost: channel 0: open confirm rwindow 0 rmax 32768
currentHost: Got channel open confirmation, requesting shell.
currentHost: Requesting service shell on channel 0.
currentHost: channel 1: new [client-session]
currentHost: Requesting channel_open for channel 1.
currentHost: Entering interactive session.
currentHost: Sending command: sleep 60
currentHost: Requesting service exec on channel 1.
currentHost: channel 1: open confirm rwindow 0 rmax 32768
problem connecting to "localhost", port 9999: Connection refused at
./LocalForward.pl line 33

[Ssh-sftp-perl-users] RELEASE: Net::SSH::Perl 1.26 and Net::SFTP 0.09

[David R. <dr...@at...>]

Summary: minor leak fix to Net::SSH::Perl (fixes 'ls' leak in =
Net::SFTP), larger overhaul to Net::SFTP (error handling, documentation, =
new test).  Files have been uploaded to CPAN but are probably not =
indexed yet.

I'll try to get to the items logged for each module in rt.cpan.org too =
(patches, as always, are welcome).

I believe Mihai Secasiu is still interested in co-maintaining these =
modules (but is busy at the moment); Dave Rolsky is too busy with other =
responsibilities to maintain these modules but has offered us his help =
with general maintenance issues.

Changelogs:

Net::SSH::Perl:
1.26  2005.01.18
    - New co-maintainer, David Robins (DBROBINS).
    - Fix Math::Pari large integer leak in Net::SSH::Perl::Util::SSH2MP =
bin2mp
      function (has been brought to the attention of the Math::Pari =
maintainer
      since it's probably a Math::Pari problem, but fixed here because =
it's a
      big win for a small change and the same "fix" is already in =
mp2bin).
        - Require perl 5.6 in Makefile.PL (was '5.0006' change to =
'5.006').

Net::SFTP:
0.09  2005.01.16
    - New co-maintainer, David Robins (DBROBINS).
    - Adds a 'warn' argument to the constructor to allow supression or
      redirection of warnings.
    - Allows the 'ssh_args' constructor argument to be either a hash ref =
or an
      array ref.
    - Adds a 'status' method which returns the last SSH2_FX_* status =
value, or
      (status value, text) in list context (only useful after last =
failure).
    - Adds brief summary comments to some methods.
    - Returns failure if the remote open fails for 'get' (previous code =
ignored
      it); also moves the remote open before the local open so that we =
don't
      create empty local files if the remote file can't be opened.
    - Changes 'ls' to return an array reference in scalar context.
    - Documents: the fact that we die on protocol/local errors; the new =
option
      and method; changes to 'get'/'put' (formerly 'put' didn't return =
anything
      useful, and 'get's actual return values are the same, just better
      documented).
    - Adds a comprehensive remote test, but to use it one has to =
manually go in
      and configure a server a certain way, so it defaults to skipping
      everything; I'm including it as a base since there are currently =
no remote
      tests at all.

Thanks,

--=20
Dave
Isa. 40:31

[Ssh-sftp-perl-users] Net::SFTP from Windows redux

[Roderick A. A. <raa...@ts...>]

Well after solving a bunch of little Windows problems I finally got 
Net::SFTP to attempt a connection.  Logs on remote system looked the 
same as when I used WinSCP to connect -- though from a different system. 
(I just tested it off the system I'm trying to get Net::SFTP to work on 
and it did.)

To make sure it wasn't a module problem I set it all up on a Linux box 
and banged right into the remote systems.

So my question is:  Has anyone got Net:SFTP working from a W2K server? 
If so did you have to use any other special incantations I'm might be 
missing?


TIA,
Rod
-- 
---
[This E-mail scanned for viruses by Declude Virus]

Re: [Ssh-sftp-perl-users] non-blocking command execution

[Mark F. <mar...@ea...>]

I think you'd have to do is fork a child for each and manage a pipe. You'd
have to manage your own read from the pipe, timeout, move to the next one,
etc. You should look at the Expect.pm module. It will do all this for you,
acting directly against the ssh binary (or an ssh-perl script that you
write). It creates pipes from the child to your controlling process. You can
have multiple processes that you are controlling at one time. If you need a
quick start, search the archives. I posted an example of using Expect.pm 3-4
months ago.

Mark

----- Original Message ----- 
From: "Ofer Nave" <on...@sh...>
To: <ssh...@li...>
Sent: Tuesday, January 11, 2005 2:12 PM
Subject: [Ssh-sftp-perl-users] non-blocking command execution


> Is there a way to use Net::SSH::Perl to execute commands remotely in a
> non-blocking fashion?  I'm developing a distributed application and want
> to be able to execute a command on ten remote machines, and be able to
> manage the connections in a single process.
>
> -ofer
>
>
> -------------------------------------------------------
> The SF.Net email is sponsored by: Beat the post-holiday blues
> Get a FREE limited edition SourceForge.net t-shirt from ThinkGeek.
> It's fun and FREE -- well, almost....http://www.thinkgeek.com/sfshirt
> _______________________________________________
> Ssh-sftp-perl-users mailing list
> Ssh...@li...
> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users

[Ssh-sftp-perl-users] non-blocking command execution

[Ofer N. <on...@sh...>]

Is there a way to use Net::SSH::Perl to execute commands remotely in a 
non-blocking fashion?  I'm developing a distributed application and want 
to be able to execute a command on ten remote machines, and be able to 
manage the connections in a single process.

-ofer

Re: [Ssh-sftp-perl-users] Error message when running perl scripts as root...

[Robert L. <rla...@ao...>]

On Thu, Jan 06, 2005 at 11:28:37AM -0800, CG wrote:
> Running a script as root fails, wheile running a script as a "normal" user
> succeeds:
> 
> Can't locate object method "_session_channel" via package
> "Net::SSH::Perl::SSH1" at /usr/lib/perl5/site_perl/5.8.2/Net/SFTP.pm line 52.
> 


Might want to check to see what version of perl you're using with each user.
I know I ran into a similar problem where root worked and user didn't
because root was using a newer perl than the user.

If that fails, you might try dumping %INC to see which versions of
modules you're using...

perl -MData::Dumper -MNet::SFTP -e 'print Dumper \%INC'

And maybe it could be a simple problem with @INC.

perl -MData::Dumper -MNet::SFTP -e 'print Dumper \@INC';

Good luck,

Rob

-- 
Robert Landrum
Systems Programmer

[Ssh-sftp-perl-users] Error message when running perl scripts as root...

[CG <cg...@ya...>]

I'm new around here, and I'm not certian if this is expected behavior or not...

Running a script as root fails, wheile running a script as a "normal" user
succeeds:

# cat test_conn.pl

#!/usr/bin/perl

use Net::SFTP;

my $remhost = 'ssh.server.com';
my $username = 'myuser';
my $password = 'myuser';

my $sftp = Net::SFTP->new($remhost, user=>"$username", password=>"$password",
   debug=>True);

# perl test_conn.pl
server: Reading configuration data /root/.ssh/config
server: Reading configuration data /etc/ssh_config
server: Allocated local port 1023.
server: Connecting to ssh.server.com, port 22.
server: Remote protocol version ., remote software version
server: Net::SSH::Perl Version 1.25, protocol version 1.5.
server: No compat match: .
server: Connection established.
Can't locate object method "_session_channel" via package
"Net::SSH::Perl::SSH1" at /usr/lib/perl5/site_perl/5.8.2/Net/SFTP.pm line 52.

# su - user
$ perl test_conn.pl
server: Reading configuration data /home/user/.ssh/config
server: Reading configuration data /etc/ssh_config
server: Connecting to ssh.server.com, port 22.
server: Remote protocol version 1.99, remote software version OpenSSH_3.5p1
server: Net::SSH::Perl Version 1.25, protocol version 2.0.
server: No compat match: OpenSSH_3.5p1.
server: Connection established.
server: Sent key-exchange init (KEXINIT), wait response.
server: Algorithms, c->s: 3des-cbc hmac-sha1 none
server: Algorithms, s->c: 3des-cbc hmac-sha1 none
server: Entering Diffie-Hellman Group 1 key exchange.
server: Sent DH public key, waiting for reply.
server: Received host key, type 'ssh-dss'.
server: Host 'ssh.server.com' is known and matches the host key.
server: Computing shared secret key.
server: Verifying server signature.
server: Waiting for NEWKEYS message.
server: Enabling incoming encryption/MAC/compression.
server: Send NEWKEYS, enable outgoing encryption/MAC/compression.
server: Sending request for user-authentication service.
server: Service accepted: ssh-userauth.
server: Trying empty user-authentication request.
server: Authentication methods that can continue:
publickey,password,keyboard-interactive.
server: Next method to try is publickey.
server: Trying pubkey authentication with key file '/home/user/.ssh/id_dsa'
server: Authentication methods that can continue:
publickey,password,keyboard-interactive.
server: Next method to try is publickey.
server: Next method to try is password.
server: Trying password authentication.
server: Login completed, opening dummy shell channel.
server: channel 0: new [client-session]
server: Requesting channel_open for channel 0.
server: channel 0: open confirm rwindow 0 rmax 32768
server: Got channel open confirmation, requesting shell.
server: Requesting service shell on channel 0.
server: channel 1: new [client-session]
server: Requesting channel_open for channel 1.
server: Sending subsystem: sftp
server: Requesting service subsystem on channel 1.
server: channel 1: open confirm rwindow 0 rmax 32768
server: sftp: Sending SSH2_FXP_INIT
server: sftp: Remote version: 3

Is something wrong?



	
		
__________________________________ 
Do you Yahoo!? 
Yahoo! Mail - You care about security. So do we. 
http://promotions.yahoo.com/new_mail

Re: [Ssh-sftp-perl-users] Net::SFTP on Windows 2k Server

[Roderick A. A. <raa...@ts...>]

Roderick A. Anderson wrote:
> Your vendor has not defined Fcntl macro F_SETFL, used at 
> D:/Perl/site/lib/Net/SSH/Perl.pm line 214.
> Fcntl::AUTOLOAD() called at D:/Perl/site/lib/Net/SSH/Perl.pm line 214

I kept at it and hit it with a big hammer.  I went through 
D:/Perl/site/lib/Net/SSH/Perl.pm and changed all ( including some in the 
documentation ) Net::SSH:Perl to Net::SSH:W32Perl.

I then got a couple of missing module errors which were easy to fix.

>     my $sftp = Net::SFTP->new( 'host.domain.tld', \%args );

After fixing the \%args to be %args I now see the connection in the 
remote server's logs but this line never returns.  These log entries are 
similar to the messages I see when I connect using WinSCP3 so I'm 
guessing I'm close.

I now suspect WinSCP3 is doing something _not_-sftp, perhaps scp.

I installed vsftp in the Linux box I'm trying to move files to but still 
no joy -- maybe a configuration or firewall issue.

So after all this and lots of Google searches I'm running out of ideas? 
  I'm close to offering money to get scp ( with password support ) added 
to Net::SSH::Perl since I doubt I'm up to the programming required to do 
it myself and I've found scp to be *there*.

Any suggestions where to go from here?


Rod
-- 
---
[This E-mail scanned for viruses by Declude Virus]

Re: [Ssh-sftp-perl-users] Net::SFTP on Windows 2k Server

[Roderick A. A. <raa...@ts...>]

Vladimir Parkhaev wrote:
> Find 'services' file (c:\windows\system32\drivers\etc ?)
> and add a line:
> 
> ssh             22/tcp                         

This fixed the previous error.

Now for todays error.

Your vendor has not defined Fcntl macro F_SETFL, used at 
D:/Perl/site/lib/Net/SSH/Perl.pm line 214.
Fcntl::AUTOLOAD() called at D:/Perl/site/lib/Net/SSH/Perl.pm line 214

Looking around I find F_SETFL exported in Fcntl.pm and referenced ( 
documentation-wise ) in several other files but nothing that looks like 
a defined macro or otherwise.

Here is the test script I'm using in case I missed something or made a 
bad assumption about what I assumed was an example in the CPAN 
documentation.

The error is always coming from the Net::SFTP->new .

	use Net::SFTP;

	my %args;
	$args{ username } = 'root';
	$args{ password } = '#######';

	my $sftp = Net::SFTP->new( 'host.domain.tld', \%args );

	$sftp->put("printertest", "printertest");



Rod
-- 

---
[This E-mail scanned for viruses by Declude Virus]