1

我正在使用 Web 前端使用 Net::OpenSSH 执行远程命令。我的命令在命令行上没有失败地返回，但我在网络浏览器中什么也得不到。我做了几个小时的研究无济于事——有什么想法吗？

这里有一些代码给你一个例子（一些明显的原因被删除了）。 

#!/usr/bin/perl -w
use strict;
use CGI ':standard';
use Net::OpenSSH;
# Here in the code is just the header and standard tags
print "1";
print "2"; # both display
my $ssh = Net::OpenSSH->new($host, user => $uname, key_path => $key); # all works
$ssh- error and die "Can't ssh to host" . $ssh->error;
print "3";
$ssh->system("uname -a") or
die "remote command failed: " . $ssh->error;
my @lsa = $ssh->capture("ls -a");
$ssh->error and
die "remote ls command failed: ". $ssh->error;

print "4";
print "5"; 
print @lsa; # won't display in browser, just terminal/CLI

干杯!

4

3 回答 3

1

我维护 CGI.pm。我建议将这些添加到您的简单脚本中：

  1. 在打印任何其他内容之前，请打印标准 HTTP 标头print header()：
  2. 在以下行之后添加use CGI：use CGI::Carp qw(fatalsToBrowser);... 这将在浏览器中显示任何运行时问题。如果在这些更改后您没有得到任何输出，请检查脚本是否与perl -cw script.pl
于 2012-08-08T19:22:22.157 回答
0

也许您的错误会指向标准错误，而不是标准输出。在这种情况下，它们通常会出现在服务器日志中，而不是浏览器窗口中。也许你可以使用POSIX::dup2来避免这种情况：

use POSIX;

# Make sure to send HTTP headers before redirecting streams!

POSIX::close(2);  # close original stderr stream. No more output to apache logs!!!
POSIX::dup2(1,2); # redirect error stream to standard output, so errors will appear in browser.

perl 启动的进程，例如一些 ssh 二进制文件，将继承这些流。

于 2012-08-09T12:28:25.750 回答
0

下面是关于在 Debian 机器上为我工作的最小 Perl 代码。我建议您仔细阅读它并将其与您的实际代码进行比较。

但是，它在我的 Debian 上并没有开箱即用，我做出了一些决定，其中大部分可能不是很安全，但这更多的是关于特定环境：

  • 为服务器运行可写的用户创建主页 (/var/www)
  • 预先将主机添加到 ~/.ssh/known_hosts
  • 使用strict_mode => 0绕过Net::OpenSSH的安全检查，而不是找到正确的 ctl_dir（Net::OpenSSH要求文件夹和所有以上文件夹都是 0755 或更严格，所以我使用的 /tmp 通常不够好）

我相信有比这更安全的做法，但正如我所说，这是特定于环境的。

所以代码：

#!/usr/bin/perl
use strict;
use warnings;

use Net::OpenSSH;
use File::Temp qw/ tempdir /;

# necessary minimum for CGI
print "Content-type: text/plain\n\n";

# prepare temp dir
my $temp = tempdir("/tmp/sshme.pl-XXXXXXXX", CLEANUP => 1);

# open SSH session
my %opts = (
    user        => "user",
    password    => "password",
    ctl_dir     => $temp,
    strict_mode => 0            ## NOT recommended - see my comments
);
my $ssh = Net::OpenSSH->new("host", %opts);
$ssh->error
    and die "Couldn't establish SSH connection: ". $ssh->error;

# perform command and print output
my @lines = $ssh->capture("ls")
    or die "remote command failed: " . $ssh->error;
print @lines;
于 2012-08-08T20:20:35.983 回答