Проблема с Apache

archy · Отправлено: **14:42, 25-06-2005** | #2

Надо первой строкой отдать браузеру заговок:

Код:

print "Content-Type: text/html\n\n";

mar · Отправлено: **17:13, 25-06-2005** | #3

и еще:
где лежит Perl-скрипт и какие права на него выставлены?

SantaXP · Отправлено: **22:29, 25-06-2005** | #4

Спасибо, я попросту забыл прописать эту строку в скрипте. Всем спасибо, как говориться - отбой!

SantaXP · Отправлено: **23:53, 26-06-2005** | #5

Разобравшись с отображением скриптов в браузере и при изучении в тоё же книги ("Разработка CGI-приложений на PERL") я столкнулся с новой проблемой...
---
И так. В одном из первых примеров скриптов в книге даётся ведение статистики пользователей. А именно занесение информации о пользователях, посетивших твой сайт в таблицу acess_log базы данных visitors на сервере mysqlhost. Сервер apache носит имя localhost. Занеся SetENV visitors@mysqlhost для создания новой переменной окружения в httpd.conf я понял, что по какой то причине переменная не создаётся. Посему слегка модифицировал код своего модуля LogConnect.pm до такого состояния:

Цитата:

package LogConnect
use DBI;
use strict;
sub connect {
my $log_dsn = "DBI:mysql:database=visitors;host=mysqlhost";
my $log_dbh = DBI->connect($log_dsn, "root", "123456");
if (!defined($log_dbh)) {
print "\nerror: \u041f\u0440\u043e\u0431\u043b\u0435\u043c\u0430 \u0441 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435\u043c \u043a \u0434\u0430\u043d\u043d\u044b\u0445 MySQL:\n";
print DBI->errstr;
print "-" x 25 "\n';
return;
}
}
1;

---
Далее, я написал два скрипта, первый (vislog.cgi) для ведения статистики, а второй (viewlog.cgi) для её отображения. Вот их код:

Цитата:

#!/usr/local/bin/perl5 -wT
#vislog.cgi
use strict;
use POSIX;
use Socket;
use lib qw(.);
use LogConnect;

my $dbh = LogConnect->connect;
my $ip = $ENV{'REMOTE_ADDR'};
my $browser = $ENV{'HTTP_USER_AGENT'};
my $refer = $ENV{'HTTP_REFERER'};
my $here = $ENV{'REQUEST_URI'};

my @digits = split(/\./, $ip);
my $adress = pack("C4", @digits);
my $host = gethostbyaddr($address, AF_INET);

my $time = strftime("%Y-%m-%d %H:%M:%S",gmtime);

my $query = qq(
insert into acess_log values
('$ip','$host','$browser','$here','$referer','$time'));
my $sth = $dbh->prepare($query);
$sth->execute;
$dbh->disconnect;

Цитата:

#!/usr/local/bin/perl5 -wT
#viewlog.cgi
use strict;
use lib qw(.);
use LogConnect;

print "Content-Type: text/html\n\n";

my $dbh = LogConnect->connect;
my $query = qq(select CLIENT from acess_log);
my $sth = $dbh->prepare($query);
$sth->execute;
my %clients;
while (x$_ = $sth->fetchrow) {
$clients{$_}++;
}
$dbh->disconnect;
my @clients = sort {$clients{$b} <=> $clients{$a}};
keys %clients;
print <<HTML;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=KOI8-R">
<title>\u041f\u0440\u043e\u0441\u0442\u043e\u0439 \u043e\u0442\u0447\u0451\u0442</title>
</head>
<body bgcolor="white">
<center><h2>\u041f\u0440\u043e\u0441\u0442\u043e\u0439 \u043e\u0442\u0447\u0451\u0442</h2></center>
<center><h3>\u0421\u0442\u0430\u0442\u0438\u0441\u0442\u0438\u043a\u0430 Web-\u043a\u043b\u0438\u0435\u043d\u0442\u043e\u0432</h3></center>
<hr noshade>
<center>
<table border=1 cellpadding=3 cellspacing=3>
HTML
foreach (@clients) {
print qq(<td align=center>$_</td><td align=center>
$clients{$_}</td><tr>);
}
print <<HTML;
</table>
</center>
</body>
</html>
HTML

---
Однако при запуске любого из этих скриптов выдаётся сообщение:
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, santaxp@localhost and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

Apache/1.3.20 Server at localhost Port 80

SantaXP · Отправлено: **16:59, 27-06-2005** | #6

Так, я залез в логи и нашёл ошибку в синтаксисе. Немного подредактировал LogConnect.pm и теперь он выглядит так:

Цитата:

package LogConnect;
use DBI;
use strict;
use CGI::Carp qw(fatalsToBrowser);
sub connect {
my $log_dsn = "DBI:mysql:database=visitors;host=localhost";
my $log_dbh = DBI->connect($log_dsn, "root", "123456");
if (!defined($log_dbh)) {
print "Content-Type: text/html\n\n";
print qq(
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=KOI8-R">
<title>Ошибка!</title>
</head>
<body bgcolor="white">);
print "<p><font color='red'>error: Проблема с подключением к данных MySQL:</font></p>";
print "<p><font color='blue'>";
print DBI->errstr;
print "</font></p>";
print "-" x.25."\n";
return;
}
}
1;

Потом он выдал мне ошибку из vislog.cgi, что, мол:

Цитата:

Global symbol "$address" requires explicit package name at /usr/local/apache/cgi-bin/system/vislog.cgi line 27.
Execution of /usr/local/apache/cgi-bin/system/vislog.cgi aborted due to compilation errors.

Хм... Вот здесь мне и нужна ваша помощь. Ибо когда я пишу:
my $host = gethostbyaddr(my $address, AF_INET);
Он больше не жалуется по этому поводу, однако я не уверен, что так писать правильно...
Далее, он пожаловался, что нет модуля mysql.pm Посему я через CPAN установил его. Были проблемы с исходниками и их пришлось немного подправить, правда пока всё работает, слава богу.
Далее я опять запускаю vislog.cgi и вот, что он мне выдаёт:

Цитата:

error: Проблема с подключением к данных MySQL:

Unknown database 'visitors'
Content-type: text/html
Software error:

Can't call method "prepare" on an undefined value at /usr/local/apache/cgi-bin/system/vislog.cgi line 34.

For help, please send mail to the webmaster (santaxp@localhost), giving this error message and the time and date of the error.

(Раньше у меня была база данных visitors, однако когда переустонавливал во FreeBSD MySQL свсё стёр.)
И это ещё не всё!

После mysql стала глючить, ибо он якобы не видел созданный мною mysqlhost и пришлось в LogConnect заменить это на localhost. Однако теперь при попытке в mysqlcc создать новый MySQL Server, скажем, localhost он пишет мне вот это:

Цитата:

[localhost] ERROR 1250: Client does not support authentication protocol requested by server; consider
upgrading MySQL client

----
Ужас! Что мне со всем этим делать???

mar · Отправлено: **18:51, 27-06-2005** | #7

SantaXP
версия mysql? у них с переходом на 4.1 были некоторые довольно существенные изменения. Посмотрите тему "MySQL4.0->MySQL4.1 проблемы миграции". В частности:

Цитата:

(4.1)... использует несколько другой протокол авторизации, несовместимый с PHP 4.3.10. Служебные таблицы, хранящие пароли пользователей, изменили свой формат.

SantaXP · Отправлено: **22:32, 27-06-2005** | #8

Версия 5.0.0_2.
Однако ничего похожего в теме не нашёл. Блин, мне бы расшифровать данную фигню, которую мне пишет MySQL, точнее mysqlcc, а то очень надо.

SantaXP · Отправлено: **23:32, 27-06-2005** | #9

Опытным путём, я выяснил, что MySQL отказывается принимать пользователся root, как верховного (если можно так сказать

), но зато прекрасно даёт доступ ко всему пользователю mysql. Однако, при попытке подключения к серверу, если установить пароль на него командой: mysqladmin -u root password 123456 (скажем, такой простой и идеальный в домашних условиях пароль

) MySQL выдаёт сообщение:
----
[localhost] ERROR 1250: Client does not support authentication protocol requested by server; consider
upgrading MySQL client
----
Посему, без пароля всё работает чётко, однако каким образом этого избежать не ясно. Даже, если не учитывать данную "мелкую" придирчивость MySQL к паролям (может даже всвязи с неопытностью по отношению к ней) так, без пароля, можно жить и дальше.
Но вопрос:
----
Software error:

Can't call method "prepare" without a package or object reference at /usr/local/apache/cgi-bin/system/vislog.cgi line 34.

For help, please send mail to the webmaster (santaxp@localhost), giving this error message and the time and date of the error.
----
Остаётся неразрешённым...

Ещё раз спасибо всем за внимание и терпение...

archy · Отправлено: **15:42, 29-06-2005** | #10

Сказано же, обновите mysql клиент, потому как не поддерживается данный протокол аутентификации