Re^4: Net::SSH::Perl script in windows - getpwuid is unimplemented

is that required to use in cygwin environment. also im not calling getpwuid function. here is my code

use strict;
use warnings;
use Net::SSH::W32Perl;

my $host = 'host';
my $pass = 'pwd';
my $user = 'userid';
my $cmd  = 'command';

my $ssh = new Net::SSH::W32Perl(
          $host, 
          debug => 1,
          protocol => 2
);
$ssh->login($user, $pass);

my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print $stdout, "\n";
[download]

I am running this script in windows activestate perl environment. the script trace is

Reading configuration data /.ssh/config
Reading configuration data /etc/ssh_config
Connecting to <hostname>, port 22.
Socket created, turning on blocking...
Remote protocol version 2.0, remote software version OpenSSH_5.2
Net::SSH::Perl Version 1.34, protocol version 2.0.
The getpwuid function is unimplemented at C:/Perl/site/lib/Net/SSH/Per
+l/SSH2.pm
line 39, <GEN0> line 1.
[download]

Comment on Re^4: Net::SSH::Perl script in windows - getpwuid is unimplemented Select or Download Code

Replies are listed 'Best First'.
Re^5: Net::SSH::Perl script in windows - getpwuid is unimplemented by Khen1950fx (Canon) on Feb 26, 2010 at 06:22 UTC
Cygwin implements getpwuid. If you are using ActiveState, which doesn't implement getpwuid, then you'll probably have to go into the source at C:/Perl/site/lib/Net/SSH/Perl/SSH2.pm with your editor and change `sub _proto_init` to this `sub _proto_init { my $ssh = shift; my $home = $ENV{HOME} \|\| $ENV{USERNAME}; unless ($ssh->{config}->get('user_known_hosts')) { defined $home or croak "Cannot determine home directory, pleas +e set the environment variable HOME"; $ssh->{config}->set('user_known_hosts', "$home/.ssh/known_host +s2"); }` [download] my $home should read: `my $home = $ENV{HOME} \|\| $ENV{USERNAME};` [download]	[reply] [d/l] [select]
Re^6: Net::SSH::Perl script in windows - getpwuid is unimplemented by Anonymous Monk on Feb 26, 2010 at 07:24 UTC
http://search.cpan.org/grep?cpanid=TURNSTEP&release=Net-SSH-Perl-1.34&string=getpwuid&i=1&n=1&C=0 `31: - If ENV{HOME} is not set, use getpwuid. If both fail and the d +ir 142: - getpwuid is now called in an eval, so on systems that do not` [download]	[reply] [d/l]
Re^7: Net::SSH::Perl script in windows - getpwuid is unimplemented by sthirumalai (Novice) on Mar 10, 2010 at 00:14 UTC
Hi thanks for the help. now i am able to run the script. This time, it is stopping at the login method... leaving me at `... ... Computing shared secret key. Verifying server signature. Waiting for NEWKEYS message. Send NEWKEYS. Enabling encryption/MAC/compression. Sending request for user-authentication service. Service accepted: ssh-userauth. Trying empty user-authentication request. Trying password authentication. Authentication methods that can continue: publickey,gssapi-with-mic,pa +ssword. Next method to try is publickey. Next method to try is password. Permission denied at win32.pl line 11` [download] I am able to connect to target system through putty ssh interface. but with script im stopped at this login... Any comments why this is happening... Appreciate your help. Thanks, Thiru	[reply] [d/l]
Re^5: Net::SSH::Perl script in windows - getpwuid is unimplemented by Anonymous Monk on Jun 21, 2010 at 16:25 UTC
I have fixed this problem on windows, I have defined a enviroment variable HOME.	[reply]
Re^6: Net::SSH::Perl script in windows - getpwuid is unimplemented by Anonymous Monk on Mar 12, 2012 at 20:58 UTC
could you explain how did you set it? You mean you have set the Windows Home variable, but with what path?	[reply]