换了OpenSSH, 又有新问题。。。

niannian

刚才的一个问题里，一个朋友提醒我舍弃Net::SSH:erl， 改用OpenSSH
我装了OpenSSH,写了个简单的脚本，在shell下可以正常运行，得到远程机器目录下的列表。

#! /usr/bin/perl
use Net::OpenSSH;


print "Content-type:text/html\n\n";

my $ssh = Net::OpenSSH->new("systemdirector.sit.ibm.com", user => "root";
my $stdout = $ssh->capture("ls -l /";
print $stdout;


但是如果我把这个脚本用作cgi程序，从网页上调用的时候，就得不到任何返回， 这是为什么呢？是和时间有关系么？

jason680

回复 1# niannian

maybe you need check with error

1. new
  my $ssh = Net::OpenSSH->new($host);
  $ssh->error and
    die "Couldn't establish SSH connection: ". $ssh->error;

2. capture
  my @ls = $ssh->capture("ls");
  $ssh->error and
    die "remote ls command failed: " . $ssh->error;
   

niannian

#! /usr/bin/perl
use Net::OpenSSH;


print "Content-type:text/html\n\n";

my $ssh = Net::OpenSSH->new("systemdirector.sit.ibm.com", user => "root");
print $ssh->capture("ls /");
$ssh->error and die "remote ls command failed: " . $ssh->error;


我从一个网页上调用的这个script， 关键就是什么输出都没有。。。奇怪了。。。。

niannian

执行Net::OpenSSH->new("systemdirector.sit.ibm.com", user => "root"; 后，用Data:umper打印出来$ssh的内容发现是没有权限在/var/www/cgi-bin目录下创建ctl文件，把ctl_dir加入到脚本中，
变成
my $ssh = Net::OpenSSH->new("systemdirector.sit.ibm.com", user => "root", ctl_dir => "../datafile/";
然后还是报错，再次打印发现
$VAR1 = \bless( { '_default_stdout_fh' => undef, '_vars' => {}, '_scp_cmd' => undef, '_proxy_command' => undef, '_home' => '/var/www', '_master_stdout_fh' => undef, '_port' => undef, '_login_handler' => undef, '_ssh_cmd' => 'ssh', '_default_stdin_fh' => undef, '_default_ssh_opts' => undef, '_kill_ssh_on_timeout' => undef, '_ctl_path' => '../datafile/root-systemdirector.-2579-709233', '_target_os' => 'unix', '_master_stderr_fh' => undef, '_wfm_bout' => '', '_default_stream_encoding' => undef, '_gateway_args' => undef, '_batch_mode' => undef, '_default_stderr_fh' => undef, '_master_opts' => [], '_passphrase' => undef, '_default_argument_encoding' => undef, '_error' => 'unable to establish master SSH connection: master process exited unexpectedly', '_host' => 'systemdirector.sit.ibm.com', '_key_path' => undef, '_pid' => 2580, '_user' => 'root', '_master_stderr_discard' => undef, '_master_stdout_discard' => undef, '_host_squared' => 'systemdirector.sit.ibm.com', '_thread_generation' => 0, '_ssh_opts' => [ '-l', 'root' ], '_timeout' => undef, '_error_prefix' => [], '_rsync_cmd' => 'rsync', '_external_master' => undef, '_expand_vars' => undef, '_passwd' => undef, '_perl_pid' => 2579 }, 'Net::OpenSSH' );

终于有了不一样的错误，但是这个错误'_error' => 'unable to establish master SSH connection: master process exited unexpectedly' ， 我查了一下。。目前还是不知道如何fix？
我是用linux去连AIX..

laputa73

你的path中是否包含了ssh的路径？
我都是用expect模块的。没有问题

niannian

[root@httpServer cgi-bin]# ssh -V
OpenSSH_5.3p1, OpenSSL 1.0.0-fips 29 Mar 2010

我本机的openSSH已经是5.3了呀。。。为啥不行呢？

niannian

my $ssh = Net::OpenSSH->new("systemdirector.sit.ibm.com", ssh_cmd => "/usr/bin/ssh", user => "root", ctl_dir => "../datafile/");
楼上的你是说这样么？
可是还是一样的错误，我在想，是不是因为从网页执行这个脚本是以apache用户的身份执行的。。所以没有权限去run /usr/bin/ssh这个命令？
但是如果是没有权限的话，apache应该报个permission denied之类的错误吧？

niannian

而且，如果我单独run这个脚本（不从网页中调用），那么即使不加入ssh的路径，也是可以运行成功的。。。

laputa73

所以我怀疑是apache的运行环境变量的影响。
你可以把%ENV打出来看看
ctl_path用..这个也不太可靠。

niannian

已经搞定了。。
还是和apache的运行环境有关系。我直接用脚本运行，是root身份run的。但是从网页调用，是apache用户。。而root用户已经能通过不输入密码就登录到远程机器。所以我在程序里没有写入密码
但是用apache用户登录的时候，还是要输入密码才可以。