Старый 30.12.2007, 06:14   #1
Новичок
 
Регистрация: 30.12.2007
Сообщений: 6
Вес репутации: 0
MikeS на пути к лучшему
Question Помогите с 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.

Теперь говорю "добавить сайт" - ругается: "Укажите полный УРЛ любой страницы сайта, на которой заведомо установлен код!". Ок, указываю УРЛ продаваемой страницы. Говорит: "Проверьте корректность установки кода и попробуйте ещё раз!". Что системе не нравится?
MikeS вне форума   Ответить с цитированием
Старый 30.12.2007, 16:41   #2
Новичок
 
Регистрация: 25.11.2007
Сообщений: 30
Вес репутации: 199
alex_bu на пути к лучшему
По умолчанию

Попробуй скрипт делать так:

#!/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;

И в нужном месте смотри появления комментария, вместо кода сапы. Если коммент есть - значит код установлен верно.
alex_bu вне форума   Ответить с цитированием
Старый 08.01.2008, 09:39   #3
Новичок
 
Регистрация: 30.12.2007
Сообщений: 6
Вес репутации: 0
MikeS на пути к лучшему
Thumbs up

Месье, снимаю шляпу. Все заработало
MikeS вне форума   Ответить с цитированием
Старый 08.01.2008, 17:49   #4
Новичок
 
Регистрация: 25.11.2007
Сообщений: 30
Вес репутации: 199
alex_bu на пути к лучшему
По умолчанию

Цитата:
Сообщение от MikeS Посмотреть сообщение
Месье, снимаю шляпу. Все заработало
Всегда пожалуйста.
alex_bu вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с установкой кода на 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, время: 01:19.