30.12.2007, 06:14 | #1 |
Новичок
Регистрация: 30.12.2007
Сообщений: 6
Вес репутации: 0
|
Помогите с Perl-ом
У меня сайт на HTML, но использует PERL: <!--#include virtual="/cgi-bin/скрипт.cgi" -->
Естественно, в .htaccess уже прописано: AddHandler server-parsed htm Если я туда еще AddHandler application/x-httpd-php .htm вставлю, работать не будет. Итак, скопировал папку, содержащую файл SAPE.pm, в корень сайта, и поставил ей атрибуты 777. В /cgi-bin/ создал файл reklama.cgi: #!/usr/local/bin/perl print "Content-type: text/html\n\n"; "$ENV{DOCUMENT_ROOT}/имя_папки/SAPE.pm" =~ /^(.+)$/; require $1; my $sape = new SAPE(user => 'имя_папки'); print $sape->get_links; А в ту страницу, которую хочу продать, поставил: <!--#include virtual="/cgi-bin/reklama.cgi" --> Открыл страницу браузером - все ок, никаких ошибок 500. Теперь говорю "добавить сайт" - ругается: "Укажите полный УРЛ любой страницы сайта, на которой заведомо установлен код!". Ок, указываю УРЛ продаваемой страницы. Говорит: "Проверьте корректность установки кода и попробуйте ещё раз!". Что системе не нравится? |
30.12.2007, 16:41 | #2 |
Новичок
Регистрация: 25.11.2007
Сообщений: 30
Вес репутации: 206
|
Попробуй скрипт делать так:
#!/usr/bin/perl use warnings; use strict; print "Content-type: text/html; charset=windows-1251\n\n"; require "Полный путь до SAPE.pm"; my $uri = $ENV{REQUEST_URI} || ""; my $sape = new SAPE( user => 'Имя папки', uri => $uri, force_show_code => '1', filename => 'Полный путь до links.db', host => 'http://твой_сайт.ru' ); print $sape->get_links; И в нужном месте смотри появления комментария, вместо кода сапы. Если коммент есть - значит код установлен верно. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с установкой кода на Perl | bakabek | Установка кода на различные движки | 5 | 26.02.2008 11:51 |
Не срабатывает Perl код. | zooloo | Вопросы от новичков | 4 | 18.12.2007 15:51 |
PHP + PERL | KF-WEB | Установка кода на различные движки | 5 | 25.11.2007 14:59 |
PHP и Perl одновременно | i58 | Вопросы по работе системы | 0 | 05.09.2007 19:55 |
Код системы на Perl | saga | Пожелания пользователей системы | 5 | 17.01.2007 13:31 |
Часовой пояс GMT +3, время: 18:51.