Вот тока скачал Денвер и решил потестировать, в логах об ошибках пишет что не может толи найти толи открыть IO::Socket.pm, тестирова перл, написал скрипт для работы с irc сервером, работает но когда на CGI перевожу то сразу ошибка об IO::Socket;
| Код |
#!/usr/bin/perl
print "Content-Type: text/html\n\n";
use IO::Socket;
my $nick = "rootos";
my $ident = "rootos";
my $chanel = "#admins";
$socket = IO::Socket::INET->new(proto => "tcp", PeerPort => "6667", PeerAddr = "irc.codo-d.ru" );
$socket->send("NICK $nick", 0);
$socket->send("USER $ident localhost localhost :$nick\n", 0);
$socket->send("JOIN $chanel\n", 0);
while ($bot = <$socket>)
{
print ($bot);
if( $bot =~ /^PING(.*)$/i )
{
$socket->("PING $1\n");
}
}
|
Вот лог об ошибке:
| Код |
[Sat Jun 14 01:15:23 2008] [error] [client 127.0.0.1] Premature end of script headers: /home/localhost/cgi/run.cgi
[Sat Jun 14 01:15:23 2008] [error] [client 127.0.0.1] Can't locate IO/Socket.pm in @INC (@INC contains: .) at \\home\\LOCALH~1\\cgi\\run.cgi line 4.\n
|
|
))) а так все работает, правда еще ошибки в коде который выше поправил )))))))))))