Форум SAPE.RU - Официальный клиент Perl - установка кода на сайт с поддержкой Perl

Форум SAPE.RU (http://forum.sape.ru/index.php)

- Установка кода на различные движки (http://forum.sape.ru/forumdisplay.php?f=26)

Официальный клиент Perl - установка кода на сайт с поддержкой Perl

Скачать клиент можно отсюда или со страницы добавления новой площадки в систему.

Изменения в новой версии
1. добавлена поддержка блочных ссылок
2. улучшена поддержка контекстных ссылок
3. добавлена возможность вывода счётчика Sape (для подсчёта SapeRank)

Внимание! Если ваш сайт имеет большое количество страниц и/или ссылок, то для эффективной работы клиентского кода и избежания замедления работы сайта нужно установить CPAN-модуль JSON::XS на сервере. В противном случае страницы могут формироваться долго и сайт может выпасть в ERROR.

Внимание, описанные ниже способы вывода ссылок доступны начиная с версии клиенткого кода 1.2.3

Подключение модуля (обязательный шаг)

Для подключения модуля SAPE необходимо разместить в исходном коде вашего сайта следующий Perl-код:

Код:

"$ENV{DOCUMENT_ROOT}/ХЕШ_ПОЛЬЗОВАТЕЛЯ/SAPE.pm" =~ /^(.+)$/;

require $1;

Сразу после этого становятся доступны классы SAPE::Client и SAPE::Context, отвечающие за вывод, соответственно, гипертекстовых ссылок (в том числе в блочном формате) и контекстных ссылок.

Вывод гипертекстовых ссылок

Для работы с гипертекстовыми ссылками используется класс SAPE::Client:1

Код:

my $sape = new SAPE::Client;

Список допустимых аргументов конструктора класса (все аргументы необязательные):

Код:

my $sape = new SAPE::Client (

   user => '', # хэш пользователя, по умолчанию определяется из пути к модулю

   host => '', # имя хоста сайта, по умолчанию $ENV{HTTP_HOST}

   request_uri => '', # адрес запрашиваемой страницы, по умолчанию $ENV{REQUEST_URI}

   multi_site => 1, # включить поддержку нескольких сайтов в одной директории

   verbose => 1, # выводить ошибки в HTML-код

   charset => '', # кодировка: windows-1251 (по умолчанию), utf8, koi8-r и т.д.

   socket_timeout => 6, # таймаут при получении данных от сервера SAPE

   force_show_code => 1, # всегда показывать код SAPE (иначе видно только роботу)

   db_dir => '', # директория для файлов данных, по умолчанию директория с модулем

   ignore_case => 1, # регистронезависимый режим работы - на свой страх и риск!

   show_counter_separately => 1, # показывать ли JS-код отдельно от ссылок

);

Вывод ссылок в обычном формате

Для получения простого (не блочного) списка ссылок следует вызывать метод return_links():

Код:

my $links = $sape->return_links; # сохранить HTML-код ссылок в переменную $links

                                 # для использования, например, в шаблонизаторе

или, к примеру:

Код:

print $sape->return_links; # вывести HTML-код ссылок

Список допустимых аргументов метода return_links (все аргументы необязательные):

Код:

$sape->return_links(

   $n, # число выводимых ссылок, undef - все ссылки

   as_block => 1, # вызвать return_block_links с теми же параметрами

);

Пример 1: вывод всех ссылок

Код:

$sape->return_links(undef); # то же, что и $sape->return_links, - вывести все ссылки

Пример 2: вывод нескольких ссылок

Код:

$sape->return_links(1); # вернуть только 1 ссылку

$sape->return_links(3); # вернуть ещё 3 ссылки

$sape->return_links; # вернуть оставшиеся ссылки

Пример 3: вывод ссылок в блочном формате (см. ниже)

Код:

$sape->return_links(undef, as_block => 1); # аналог вызова метода return_block_links

Вывод ссылок в блочном формате

Внимание! Если вы уже используете вывод ссылок с помощью старого формата вызова, то изменять код вызова необязательно – достаточно лишь обновить модуль SAPE.pm и изменить настройки сайта, включив блочный формат вывода.

Для вывода ссылок в блочном виде используется метод return_block_links() (вызывается автоматически из return_links(), если в настройках сайта установлено блочное отображение или передан параметр as_block => 1).
Список допустимых аргументов метода return_block_links() (все аргументы необязательные):

Код:

$sape->return_block_links(

   $n, # число выводимых ссылок, undef - все ссылки

   block_no_css => 1, # запретить автоматический вывод CSS в коде страницы

   block_orientation => 1, # ориентация блока: 1 - горизонтальная, 0 - вертикальная

   block_width => 'auto', # ширина блока в CSS: 'auto', '[?]px', '[?]%' и т.д.

);

Пример 4: вывод всех ссылок в блочном формате

Код:

$sape->return_block_links; # все ссылки в виде одного блока

Пример 5: вывод ссылок в нескольких блоках

Код:

$sape->return_block_links(1); # вернуть только 1 ссылку в первом блоке

$sape->return_block_links; # вернуть оставшиеся ссылки во втором блоке

Пример 6: вывод блока ссылок с изменёнными параметрами

Код:

$sape->return_block_links(2, block_orientation => 0, block_width => '120px');

     # вернуть блок из 2 ссылок вертикальной ориентации шириной 120 пикселей

Вывод контекстных ссылок

Для работы с контекстными ссылками используется класс SAPE::Context:

Код:

my $sape_ctx = new SAPE::Context;

Список допустимых аргументов конструктора класса – тот же, что и у SAPE::Client.

Ссылки в конкретном фрагменте текста

Для вывода контекстных ссылок в определённом фрагменте текста следует вызывать метод replace_in_text_segment(), передавая в качестве параметра либо ссылку (ref) на переменную с текстом (оптимально для экономии памяти, замена будет произведена прямо внутри переменной), либо просто переменную с текстом (в этом случае текст с заменой будет возвращён в качестве результата вызова функции):

Код:

$sape_ctx->replace_in_text_segment(\$text); # все изменения - внутри переменной

или

Код:

$new = $sape_ctx->replace_in_text_segment($text); # изменения - в новую переменную

Рекомендуется использовать первый способ, если есть такая возможность.

Ссылки в коде страницы

Для вывода контекстных ссылок в пределах всей страницы, в том числе в нескольких местах на странице, следует вручную расставить в исходном коде страницы теги <sape_index> ... </sape_index>, заключив в них фрагменты страницы для вывода ссылок, либо ссылки будут выводиться внутри тега <body> ... </body>.

Существует два режима работы метода replace_in_page(), используемого для вывода ссылок.

1. Рекомендуется! Вызов метода с параметром аналогично вызову replace_in_text_segment() (ссылка на переменную для экономии памяти или просто переменная). Поиск тегов <sape_index> или <body> и вывод ссылок происходит в тексте, переданном в качестве параметра.

Код:

$sape_ctx->replace_in_page(\$html); # все изменения - внутри переменной

или

Код:

$new = $sape_ctx->replace_in_page($html); # изменения - в новую переменную

Разница между методами replace_in_text_segment() и replace_in_page() в том, что в первый передаются фрагменты текста для установки контекстных ссылок в них, а во второй – полностью HTML-документ с блоками <sape_index> ... </sape_index> или <body> ... </body>, причём автоматический вывод счётчика производится только в функции replace_in_page() (см. ниже).

2. Только для сайтов с CGI. Вызов метода без параметров. Переопределяется системная Perl-функция print, весь выводимый в ходе работы кода вашего сайта контент накапливается в буфере, происходит размещение ссылок внутри буфера и их вывод системными средствами.

Код:

$sape_ctx->replace_in_page; # переопределить print

print $html; # вывод кода страницы со ссылками - после окончания работы скрипта

Этот формат вызова реализован по аналогии с официальным клиентским кодом для платформы PHP, однако с ограничениями:

не работает в mod_perl,
может не работать в FastCGI,
выводит полученный текст только по окончании работы скрипта, а не порциями, – этот режим не рекомендуется и реализован лишь для совместимости с модулем на PHP.

Вывод обязательного JavaScript-контента

Оба класса – SAPE::Client и SAPE::Context – поддерживают автоматический или принудительный вывод JavaScript-контента, поставляемого Sape (cчётчик Sape для подсчёта SapeRank, пользовательские счётчики). По умолчанию код JS выводится вместе со ссылками в методах класса SAPE::Client и только в методе replace_in_page() класса SAPE::Context. Однако если передан параметр show_counter_separately => 1 в конструктор класса, то счётчик необходимо выводить явным вызовом функции return_counter():

Код:

$counter_html = $sape->return_counter; # код счётчика - в переменной $counter_html

или

Код:

$counter_html = $sape_ctx->return_counter; # аналогично

Готов ответить на вопросы в этой теме.

Цитата:

Сообщение от Meneldor (Сообщение 1416968)

Готов ответить на вопросы в этой теме.

Здравствуйте!
А на Joomla! 2.5.14 работать будет?
И как его устанавливать для блочных ссылок?

Цитата:

Сообщение от vismuth (Сообщение 1417411)

Здравствуйте!
А на Joomla! 2.5.14 работать будет?
И как его устанавливать для блочных ссылок?

Joomla написана на PHP, т.е. вам нужен официальные PHP-клиент SAPE, а эта тема посвящена Perl-клиенту.

Цитата:

Сообщение от Meneldor (Сообщение 1417414)

Joomla написана на PHP, т.е. вам нужен официальные PHP-клиент SAPE, а эта тема посвящена Perl-клиенту.

ааааа, понятно, спасибо...

Добавился небольшой багфикс, версия модуля 1.2.4 будет по ссылке в первом посте с 12:00 сегодняшнего дня :)

Новый код не работает. Никаких ошибок не выдаёт, просто не показывает ссылки. Ссылки, разумеется все вылетают в Error. Где искать проблему, что проверять? Со старым кодом никаких проблем нет.

assedo, постучитесь ко мне в скайп mnmldr

А можно какой-то более доступный вариант, без установки дополнительных приложений? Ну или телефон дайте в личку, я наберу.

Скайп - оперативнее всего. Телефон не поможет - наверняка нужно будет куски кода смотреть. Напишите в почту, давайте через неё попробуем. meneldor@metallibrary.ru

А чего писать то? Я уже всё написал: меняю библиотеку - ссылки перестают отображаться. Возвращаю старую на место - всё работает. Коды все копирую из кабинета вебмастера. Какие куски кода смотреть нужно?

Цитата:

"$ENV{DOCUMENT_ROOT}/хеш/SAPE.pm" =~ /^(.+)$/;
require $1;
my $sape = new SAPE::Client(
user => 'хеш',
host => '<ИМЯ_ХОСТА>', # необязательно, по умолчанию: $ENV{HTTP_HOST}
charset => 'windows-1251', # необязательно, по умолчанию: windows-1251
);
print $sape->return_links;

М-да... <ИМЯ_ХОСТА> так и оставляете?

Замените это всё просто на код:

"$ENV{DOCUMENT_ROOT}/хеш/SAPE.pm" =~ /^(.+)$/;
require $1;
my $sape = new SAPE::Client(
user => 'хеш',
);
print $sape->return_links;

"хеш", конечно же, нужно заменить сами знаете на что.

Если не получится, добавляйте параметр:

verbose => 1,

в вызов new() – и смотрите в исходном коде страницы, какую ошибку выводит модуль выводит в том месте, где должны быть ссылки.

Если же в папке с модулем файл с расширением .json не появляется вообще, тогда нужно смотреть в error_log вашего веб-сервера – наверняка не хватает каких-то модулей.

Цитата:

Сообщение от Meneldor (Сообщение 1421413)

М-да... <ИМЯ_ХОСТА> так и оставляете?

Не нужно считать других глупее себя. ;)

Цитата:

Сообщение от Meneldor (Сообщение 1421413)

добавляйте параметр:

verbose => 1,

Эффекта - ноль. Выводит только пробел.

Я не сомневаюсь, что вы все очень талантливые программисты, но, к сожалению, подвержены их типичной болезни - хамству, по отношению к "непрограммистам".

Цитата:

Сообщение от Meneldor (Сообщение 1421413)

Если же в папке с модулем файл с расширением .json не появляется вообще, тогда нужно смотреть в error_log вашего веб-сервера

Вот она - вершина хамского отношения к пользователям. Если бы скрипт дох через die, был бы повод лезть в лог и смотреть, от чего он сдох. Но ведь ни в инструкции, ни в ответе программы, ни в подразумеваемых действиях программы этого нет. Зато есть 100500 ответов не по теме.

Вобщем вопрос решен, спасибо всем за многобукв. Проблема была в некорректной установке модуля JSON::XS из-за глюка в cPanel'и. Модуль был, но не работал как надо, программа это никак не отражала.

Для нетелепатов: смотрите логи ошибок сервера и будет вам удача. Талантливые программисты с этим не заморачиваются. Им пофигу на макетинг и на бабло, они выше этого. ;)

assedo, я вам предложил помощь (скайп) - вас моё предложение не устроило. Затем вы привели неправильный пример кода, каким его, как ни смешно, устанавливает чуть ли не половина людей, - и оскорбились на то, что я переспросил? Вам просто для информации: я перловый модуль по доброте душевной пишу, и помогаю людям с проблемами я на тех же условиях - ибо в САПЕ не работаю и никогда не работал. Держите сердечное "пожалуйста" на так и не прозвучавшее от вас "спасибо". И извините, что не смог повлиять на то, как ваш кривой JSON::XS рапортует об ошибках, - если можете научить его "дохнуть через die", научите. Очень рад, что вы достаточно умный и смогли разобраться в проблеме сами (почти).

Цитата:

Сообщение от Meneldor (Сообщение 1422356)

я вам предложил помощь (скайп)

Работа одной системы не должна зависеть от наличия другой. В данном случае от скайпа.

Цитата:

Сообщение от Meneldor (Сообщение 1422356)

вы привели неправильный пример кода

я привел правильный пример, который сейчас и работает. Только без указания хеша и домена (по понятным причинам).

Цитата:

Сообщение от Meneldor (Сообщение 1422356)

просто для информации: я перловый модуль по доброте душевной пишу

Вы невнимательно читаете, я об этом написал выше:

Цитата:

Сообщение от assedo (Сообщение 1422352)

Им пофигу на макетинг и на бабло, они выше этого.

Кто мешает брать деньги? :)

Цитата:

Сообщение от Meneldor (Сообщение 1422356)

так и не прозвучавшее от вас "спасибо".

Я понимаю, что все гении невнимательны к мелочам, но всё же:

Цитата:

Сообщение от assedo (Сообщение 1422352)

вопрос решен, спасибо всем

Вроде, кроме Вас персонально тут никого не было. Но мне не жалко повторить: спасибо, Meneldor.

Цитата:

Сообщение от Meneldor (Сообщение 1422356)

ваш кривой JSON::XS рапортует об ошибках

Он не мой. Это тоже самое, как сказать "ваш кривой мерседес|лада калина". Едем на том, что есть|можем позволить себе.

Цитата:

Сообщение от Meneldor (Сообщение 1422356)

вы достаточно умный и смогли разобраться

Система не должна зависеть от того, умный кто-то или дурак, но это уже не вам. Налицо отсутствие нормальной поддержки кода на Perl. :( Абсолютно необоснованное, на мой взгляд.

assedo, имеете полное право взять эту обязанность на себя - вы ведь явно понимаете, как сделать всё правильно. Надеюсь, проблем с модулем у вас больше не будет.

Добрый день.

На несколько сайтов на хостинге nic.ru вытаюсь установить Perl-код.
Система пишет "Код на сайте не установлен".
При попытке открыть файл, например, http://tookan.ru/cgi-bin/sape.cgi -
500 ошибка.

Внутри файла:
#!/usr/bin/perl

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

"$ENV{DOCUMENT_ROOT}/****d2c644f0fdd7354740510ab36712/SAPE.pm" =~ /^(.+)$/;
require $1;
my $sape = new SAPE::Client(
user => '****d2c644f0fdd7354740510ab36712',
charset => 'windows-1251', # необязательно, по умолчанию: windows-1251
);

print $sape->get_links;

**** - естествено другое, но заменил, чтобы не смущало.

На других площадках этого же хостера даже и 500 ошибки нет. Просто пустота
Например вот тут http://www.on33.ru/cgi-bin/sape.cgi

В логах ничего. Что делать?

Kenjik

Если есть 500 ошибка, то в error_log точно должны быть сообщения. Посмотрите ещё раз, пожалуйста.

На тех же площадках, где просто пустота, проверьте, создаётся ли файл links.json в папке с модулем?

Проверьте права на папку ****d2c644f0fdd7354740510ab36712 - должны быть 0777.

Добавьте в вызов new параметры:

my $sape = new SAPE::Client(
user => '****d2c644f0fdd7354740510ab36712',
charset => 'windows-1251',
force_show_code => 1,
verbose => 1,

);

И после этого проверьте, не появляется ли вместо "пустоты" какой-то код (только смотрите исходники, т.к. код выводится в виде HTML-комментариев).

Здравствуйте!
Служба поддержки рекомендовала здесь задать вопрос разработчику по Коду счетчика на Perl.

Версия последняя. Количестов уникальных хостов в панеле плавно скатилось в 50 тыс до 1 тыс. Реальная посещаемость примерно 3тыс. в день.

Куда можно копнуть? В Linux Gentoo недавно обновлял все пакеты до последней сборки, сам в Perl в том числе.

Добавлено через 1 час 16 минут
Добавлю, ситуация прояснилась. Сайт работает в режиме FastCGI.
Если отключить этот режим и поставить обычный CGI, то код счетчика появляется нормально.
Для справки, FastCGI - это повторное использование загруженного в память модуля. То есть часть переменных, если они были изменены, при повторном запуске будет содержать измененные значение, а не такие, как если бы модуль запускался первый раз. Их нужно проинициализировать. Исправьте пожалуйста, готов дать доступ к клиенту. Хотя вы сами можете легко сэмулировать ситуацию, запуская модуль несколько раз в цикле.

Здравствуйте!

Для очистки совести хотел бы подчеркнуть, что работа этого модуля никогда не гарантировалась в persistent-средах, таких как FastCGI, mod_perl, PSGI и т.п. :)

Однако, видимо, основной функционал работает, и это хорошо. Готов предложить решение описанной проблемы, которые вы можете применить самостоятельно.

1. Инициализацию SAPE::Client в каждой итерации рабочего цикла придётся делать заново. Это, конечно, снижает ценность FastCGI, но без приличного перелопачивания модуля другого решения нет.

2. Прямо перед вызовом SAPE::Client->new следует вставить такую строку:

Код:

$SAPE::page_obligatory_output_shown = 0;

Да, это не очень красивое решение, но, опять же, поможет решить проблему локально и быстро.

Цитата:

Сообщение от Meneldor (Сообщение 1434234)

Код:

$SAPE::page_obligatory_output_shown = 0;

Да, это не очень красивое решение, но, опять же, поможет решить проблему локально и быстро.

Да, спасибо, попробую. Поскольку вывод ссылок работает правильно в FastCGI, ожидалось, что последующий функционал тоже будет поддерживать такую возможность :)

Цитата:

Сообщение от vga (Сообщение 1434236)

В данном случае это совпадение :). Но я учту на будущее, спасибо за реальный пример! Дайте знать, пожалуйста, поможет ли решение.

Заглянул в код. Страшно подумать, что там было до версии 1.2... ;)

Цитата:

Сообщение от RXL (Сообщение 1434832)

Заглянул в код. Страшно подумать, что там было до версии 1.2... ;)

Хотите настоящий ужас - загляните на "Портал для программистов" :D

Не отображаются ссылки Perl-методом

Нужна помощь.
Сайт, для размещения ссылок: mamzon.ru, ссылки в статусе ERROR.
Я разместил PERL-код: http://mamzon.ru/cgi-bin/index_sape.cgi скрипт отрабатывает без ошибок, но ничего не выводит. Тело скрипта ниже.
Дал права 777 на папку:mamzon.ru/www/mamzon.ru/e0b22f67bec8fcce46dbc69f203174d9/ и там стал обновляться links.json
При этом links.db не появился, хотя ссылки в аккаунте уже появились, он должен появиться или нет?

Но вот ссылки на страницах не отображаются и сам метод http://mamzon.ru/cgi-bin/index_sape.cgi возвращает пустоту.

Метод вызывается через include-директиву, index.shtml в приложении.

#!/usr/bin/perl -w
"$ENV{DOCUMENT_ROOT}/e0b22f67bec8fcce46dbc69f203174d9/SAPE.pm" =~ /^(.+)$/;
require $1;
my $sape = new SAPE::Client(
user => 'e0b22f67bec8fcce46dbc69f203174d9',
verbose => 1,
);
print "Content-Type: text/html\n\n";
print $sape->return_links;
exit(0);

Цитата:

Сообщение от WERTYK80 (Сообщение 1435711)

Метод вызывается через include-директиву, index.shtml в приложении.

Убедитесь, что внутри скрипта index_sape.cgi переменная $ENV{REQUEST_URI} содержит URL текущей страницы, а не что-то иное. SAPE->new() принимает параметр request_uri => '...', по которому и ищутся ссылки в json-файле, и по умолчанию параметр выставляется в $ENV{REQUEST_URI}. Если по какой-то причине переменная не содержит верный URL, то и ссылки возвращаться не будут.

Сам скрипт, как я вижу, отрабатывает нормально.

В json-файле есть ссылки? Если нет, то проверьте переменные $ENV{HTTP_HOST} или $ENV{HOSTNAME} - верный ли домен в них содержится (соответствует ли он тому домену, который зарегистрирован в SAPE). Если нет, то в SAPE->new() передайте параметр host с верным доменом.

Производительность перл модуля

$ time perl -e 'require "/www/htdocs/xxx01yyy32zzz3bwww45fffe8hhhb7ha/SAPE.pm";'

real 0m0.117s
user 0m0.106s
sys 0m0.016s

---

Уважаемые друзья, только на подключение (парсинг) модуля выедается 116 милисекунд. Это в 2 раза дольше, чем работает весь остальной стокилометровый код сайта.
Это никуда не годится. Давайте будем бороться с производительностью для дальнейшего сотрудничества!

Цитата:

Сообщение от mambur (Сообщение 1483700)

Уважаемые друзья, только на подключение (парсинг) модуля выедается 116 милисекунд. Это в 2 раза дольше, чем работает весь остальной стокилометровый код сайта.
Это никуда не годится. Давайте будем бороться с производительностью для дальнейшего сотрудничества!

Официальный форум поддержки клиентов функционирует? В какие сроки можно ожидать обратной связи? :confused:

Цитата:

Сообщение от mambur (Сообщение 1483715)

Официальный форум поддержки клиентов функционирует? В какие сроки можно ожидать обратной связи? :confused:

Как повысить производительность?

Цитата:

Сообщение от mambur (Сообщение 1483846)

Как повысить производительность?

Дайте обратную связь пожалуйста

Саппорт живет в кнопке "Задать вопрос" внутри сапы.

саппорт Sape не осуществляется поддержку клиента Perl ля установки кода.

Цитата:

Сообщение от mambur (Сообщение 1484066)

Дайте обратную связь пожалуйста

Up!!!!!

Цитата:

Сообщение от mambur (Сообщение 1484750)

Up!!!!!

Поддержки нет :confused:

АУ! Поддержка!

Даже немного грустно...

mambur, если совсем тоскливо - пните меня в личку. Я не поддержка, но опыт установки кода на совсем странные хостинги есть, могу попробовать помочь.

Цитата:

Сообщение от qkowlew (Сообщение 1487370)

Даже немного грустно...

Почему?

Цитата:

Сообщение от zhegloff (Сообщение 1487371)

Почему?

Эпоха Перла уходит в прошлое... :)

Понял для себя, что когда непонятки, когда по непонятным причинам не показываются ссылки, нужно ставить старый SAPE.pm он показывает ошибку!!!

Два дня искал проблему почему код перестал выводить ссылки после манипуляций на VDS

даже если ставил verbose => 1 он показывал неопределенное "Ошибка парсинга JSON"

Поставил старый SAPE.pm и увидел "501 Protocol scheme 'http' is not supported"

Гугл выдал что виной тому некорректная установка LWP:Protocol:http или связанных с ним модулей

Переустановил, и вауля! Новый модуль тоже заработал!