Re: [apache-talk] Безопасная автогенерация конфига для Apache

["Ilya Basalaev [Scarab]" <scarab@asplinux.ru>]

On Thu, 10 Jul 2003, Dmitry Belyavsky wrote:

> Вопрос: как в скрипте (желательно перловом) проверить, что Apache может
> начать слушать на данной паре IP/порт?

А просто попробовать повиснуть на этом сокете не получится?

use IO::Socket;
$sock = new IO::Socket::INET (LocalHost => '127.0.0.1',
                              LocalPort => 80,
                              Proto     => 'tcp',
                              Listen    => 5,
                              Reuse     => 1                             
                             );
die "Socket could not be created. Reason: $!" unless $sock;


(пример взят из O'Reilly-вского "Advanced Perl Programming")
Соответственно, скрипт надо пускать из-под рута.


wbr.,
 Ilya "Scarab" Basalaev, IAB22-RIPE
 SWsoft Inc.,  System Administrator