Question

使用perl脚本连接在localhost上运行的Java服务，传递加密的cookie并返回解密的数据。当我从命令行运行脚本时，它工作正常。甚至给apache用户一个shell，并从命令行运行该用户，这也工作正常。如果脚本从apache作为CGI运行，则socket new返回undef和$！设置为“权限被拒绝”。 ???

在此服务器上运行CentOS 6.3，并禁用IPtables。

#!/usr/bin/perl

use strict;

use CGI;
use IO::Socket;
use JSON;

my $cgi = CGI->new();

my $cookie = $cgi->cookie('attESSec') || shift (@ARGV) || undef;
my $data = JSON::false;

if($cookie){
  my $socket = IO::Socket::INET->new(
    'PeerHost' => '127.0.0.1',
    'PeerPort' => '1500',
    'Proto'    => 'tcp'
  );
  if($socket){
    $socket->send($cookie . "\r\n");
    $socket->recv(my $auth,1024);
    $socket->close();
    chomp($auth);
    if($auth){
      $data = (split(/\|/,$auth))[5];
    }
  }
  else{
    $data = $!;
  }
}

print($cgi->header('application/javascript'));
print(JSON->new()->allow_nonref()->utf8()->encode($data));

exit();

Answer 1

我找到了答案。问题是SElinux。默认情况下，它不会让httpd进程（或从它产生的任何东西，如CGI脚本）建立网络套接字。因此，只需使用命令“setsebool -P httpd_can_network_connect 1”启用该特定功能。现在它完美无缺。

Perl IO :: Socket :: INET权限被拒绝

1 个答案: