Форум SAPE.RU - Контекстные ссылки в движках на Perl

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

Цитата:

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

А чем не подойдёт тот, что в Сапе? Любопытно ).

В сапе сейчас блокирующий интерфейс. А мне нужен интерфейс без блокировок.

Может быть есть тесты для модуля по которым можно все воспроизвести? А лучше примеры разных результатов dispenser-01.sape.ru/code.php?user=&host=&as_xml=true&charset=utf-8 или где там брать данные

Цитата:

Сообщение от alexbyk (Сообщение 1256343)

Есть только исходный код модуля, вполне хорошо читаемый глазом. Ну и support@sape.ru, которые могут дать контакты разработчиков САПЕ.

Ааа, сори, только щас всю тему перечитал. Я думал вы сотрудник Сапы

У меня сайт на CMS написал на Perl. я скачал папку с sape.pm закинул в корень сайт, поставил атрибут на папку 777. а вот код для страницы у меня не работает, просто отображается текстом на странице, и не выполняется.как правильно надо настроить код на странице html?

Цитата:

Сообщение от jo937 (Сообщение 1261079)

А что за CMS. Полагаю, с этим вопросом нужно обратиться к ее разработчикам, так как есть вероятность, что установить его самостоятельно вам не удастся

хм.точно не скажу. а тут файлы выкладывать нельзя??? а давайте я сейчас сюда код страницы главной опубликую, там сами всё поймёте, она не сложная.
а вот этот код я хочу внедртить
"$ENV{DOCUMENT_ROOT}/******************/SAPE.pm" =~ /^(.+)$/;
require $1;
my $sape = new SAPE::Client(
user => '****************************',
host => '<ИМЯ_ХОСТА>', # необязательно, по умолчанию: $ENV{HTTP_HOST}
charset => 'windows-1251', # необязательно, по умолчанию: windows-1251
);
print $sape->get_links;

а это код страницы
<HTML><HEAD>
<TITLE>Доска объявлений "Кипит работа" - система поиска надомной работы. Бесплатное размещение объявлений о работе на дому. Резюме, вакансии, предложения.</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1251">
<meta name="author" content="КИПИТРАБОТА.РФ">
<meta name="generator" content="DOGEN zinet.ru">
<meta name="description" content="Доска объявлений о работе на дому КИПИТ РАБОТА РФ - модерируемые публикации наиболее выгодных предложений. Вакансии, резюме, коммерческие предложения.">
<meta name="keywords" content="доска объявлений КИПИТ РАБОТА РФ работа на дому надомная поиск вакансия">
<link rel="SHORTCUT ICON" href="ico.ico">
<link rel="stylesheet" type="text/css" href="style.css">
</HEAD>
<body bgcolor="#ffffff" text="#000000" link="#9400D3" alink="#000099" vlink="#1E90FF" leftmargin="12" topmargin="0" marginwidth="12" marginheight="0" rightmargin="12" bottommargin="0">

<body bgcolor=white>

<table width="100%" border=0 cellspacing=0 cellpadding=0>
<tr>
<td>
<IMG SRC="logo.gif" WIDTH=1055 HEIGHT=60 BORDER=0>
</td>
<td align=center class=ub> 
</td>
</tr>
</tab

<div id="PC_Teaser_Block_60380" class="PC_TBlock">загрузка...</div>



</td>

<td>

<STRONG>
   Здесь могла быть ваша реклама ( очень дёшево)<br><br>
<script src="/bookmarks/book.js" type="text/javascript"></script><noscript><a href="http://кипитработа.рф"><img src="/bookmarks/button.gif" width="136" height="40" alt="КИПИТРАБОТА.РФ" border="0"></a></noscript>

   реклама

</STRONG>

</td>

</tr>
</table>

<h1>Доска БЕСПЛАТНЫХ объявлений о работе на дому "КИПИТРАБОТА.РФ". Просмотр рубрик.</h1>

<table width="100%" border=0 cellspacing=0 cellpadding=0>
<tr>
<td class=path align=right><a href="" class=ns>Добавить объявление</a></td>
</tr>
</table>

<table width="100%" border=0 cellspacing=0 cellpadding=21>
<tr>
</td><td valign="top" class=left-column><IMG SRC="logotip.gif">
<td valign="top" width="33%" class=ind>



</td><td valign="top" width="33%" class=ind>



</td><td valign="top" width="33%" class=ind>



</td>
</td><td >

</td>

</tr>
</table>
<BR>
<hr size=5 noshade>
<center>
РЕКЛАМНЫЙ БЛОК
</center>
<BR>
<hr size=5 noshade>
<table width="100%" border=0 cellspacing=0 cellpadding=0>
<tr>
<td class=path>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><nobr>© <a href="">www.кипитработа.рф - система поиска работы на дому</a> 2012 г. | <a href="https://manager.host-food.ru/">Хостинг для нашего сайта предоставлен Host-food</a></nobr>

<br><br>
Портал "Кипит работа" -частный некоммерческий сайт, созданный для предложения и поиска удаленной и надомной работы. Все объявления на сайте публикуются бесплатно, являются узкотематическими и обязательно проходят модерацию.
<br><br>

<br><br><script type="text/javascript"></script><br><br>

</td>
</tr>
</table>
</td>
<td class=path align=right>
<nobr>


<script id="top100Counter" type="text/javascript" src="http://counter.rambler.ru/top100.jcn?2745685"></script>
<noscript>
<a href="http://top100.rambler.ru/navi/2745685/">
<img src="http://counter.rambler.ru/top100.cnt?2745685" alt="Rambler's Top100" border="0" />
</a>

</noscript>

 </nobr></td>
</tr>
</table>







<script type="text/javascript">var PC_CId = 60380;</script>
<script type="text/javascript" src="http://st.pc.adonweb.ru/js/adv_out.js"></script>

</BODY></HTML>

Добавлено через 1 минуту
надо мне это код в неё внедрить и что бы он работать начал естествкенно
"$ENV{DOCUMENT_ROOT}/**************************/SAPE.pm" =~ /^(.+)$/;
require $1;
my $sape = new SAPE::Client(
user => '**************************',
host => '<мой сайт>', # необязательно, по умолчанию: $ENV{HTTP_HOST}
charset => 'windows-1251', # необязательно, по умолчанию: windows-1251
);
print $sape->get_links;

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

HTML шаблон страницы ни о чем не говорит) Код модуля необходимо вставить в исполняемый файл с кодом Perl. Скорее всего, в вашем случае самостоятельно это будет сделать затруднительно, как и помочь вам из форума. Полагаю, вам необходимо обратиться к разработчикам с просьбой добавить Sape модуль. Или, если разработчиков вашей CMS не найти - к программисту, который бы попробовал разобраться

Ну в крайнем случае тогда уже выложить весь код всего сайта, хотя я бы этого делать не советовал :)

в скрипт что ли? index.cgi например, сейчас попробую

#!/usr/bin/perl
use CGI
$indat = new CGI;
"$ENV{DOCUMENT_ROOT}/******************/SAPE.pm" =~ /^(.+)$/;
require $1;
my $sape = new SAPE::Client(
user => '*****************************',
host => '<кипитработа.рф>', # необязательно, по умолчанию: $ENV{HTTP_HOST}
charset => 'windows-1251', # необязательно, по умолчанию: windows-1251
);
print $sape->get_links;
require '$config.pl';

# ::::::::::::::::::::::::::: Получение данных переданных скрипту

$I_a=$indat->param('a');
chomp($I_a);

ну вот начала кусочка скрипта главной страницы моего сайта. эффекта нуль

Спасиб, а то голову ломал как на сайт на perl сапу ставить