Добрый день!
переношу самописные скрипты perl с freebsd на centos7 и те которые используют Net::Telnet и Net::Telnet::Cisco отказываются работать через apache
если запускать скрипт из коммандной стройки то все рабоатет но при запуске через апач вылезают ошибки
[:error] [pid 4002] problem connecting to "10.17.0.1", port 23: Permission denied at /var/www/perl/lanmgmt/backup.pl line 5\n\n
сам скрипт
[root@perl conf.d]# cat /var/www/perl/lanmgmt/backup.pl
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use Net::Telnet::Cisco;
my $session=Net::Telnet::Cisco->new(Host => '10.17.0.1');
$session->login('login', 'pass');
$session->enable('pass');
print "<html>";
my @res=$session->cmd("copy system:/running-config tftp://10.17.0.7/r1_c7301_cfg\n\n\n");
print @res;
$session->close;
print "</html>";
вот конфиг апача
root@perl conf.d# cat /etc/httpd/conf.d/perl.conf
PerlSwitches -w
PerlSwitches -T
Alias /perl /var/www/perl
<Directory /var/www/perl>
SetHandler perl-script
# PerlResponseHandler ModPerl::Registry
PerlResponseHandler ModPerl::PerlRun
PerlSendHeader On
PerlOptions +ParseHeaders
Options +ExecCGI
allow from all
</Directory>
на 11 фре все работает безупречно
