Нужна помощь Perl + SSI

AS
На сайте с 07.04.2004
Offline
66
508

Госпада народ помогите. На PHP программирую, а вот Perl совсем не знаю. Начал делать систему Perl + SSI для ссылкообменки по аналогии вот что получилось, НО не получается передать параметр url скрипту cgi. Помогите кто может.

Из SSI расположенных на HTML страницах идет вызов cgi скрипта с параметром значение которого url данной страницы

<!--#set var="url" value="HTTP_HOST"-->

<!--#include virtual="/cgi-bin/links.cgi?url"-->

сам скрипт cgi должен выдать результат выполнение другого скрипта расположенного на другом сервере. Данному скрипту нужно передать значение url - как это сделать? И вообще как пограмотрее написать это. (Я это переделал с линкаторского скрипта)

#!/usr/bin/perl

use CGI;

use LWP::Simple;

use URI::Escape;

my $q = new CGI;

print $q->header (

-'Type'=>'text/html',

-'Charset'=>'Windows-1251',

-'Expires'=>'-2d',

-'Content-Language'=>'ru',

-'Pragma'=>'no-cache',

-'Cache-Control'=>'private, no-cache'

);

my $source = "http://www.bannerov.net/link.php?url=$url";

print get($source);

Прозреваю ... режет глаза ... страшно ...
[Удален]
#1

AlexStudio, вот так, примерно:

<!--#include virtual="/cgi-bin/links.cgi"-->

а в скрипт вставьте строчку:

$url=$ENV{'HTTP_HOST'};

В переменной url окажется адрес страницы, которая вызвала скрипт. Полный перечень переменных окружения: http://www.webcode.ru/cgi/envlist/

По поводу передачи данных от одного скрипта другому рекомендую посмотреть, как это реализовано здесь: http://members.rb1.design.ru/instructions.html

AS
На сайте с 07.04.2004
Offline
66
#2
Как писал Scaramush
AlexStudio, вот так, примерно:



а в скрипт вставьте строчку:

$url=$ENV{'HTTP_HOST'};

В переменной url окажется адрес страницы, которая вызвала скрипт. Полный перечень переменных окружения: http://www.webcode.ru/cgi/envlist/

По поводу передачи данных от одного скрипта другому рекомендую посмотреть, как это реализовано здесь: http://members.rb1.design.ru/instructions.html

$url=$ENV{'HTTP_HOST'}.$ENV{'REQUEST_URI'};

так получается - работает! Скоро запустим в производство :)

Спасибо.

Григорий Селезнев
На сайте с 25.09.2001
Offline
298
#3

на хостинге зенона с мультидоменами не сработает на вспомогательных хостах ...

AS
На сайте с 07.04.2004
Offline
66
#4
Как писал Professor
на хостинге зенона с мультидоменами не сработает на вспомогательных хостах ...

Что делать? Что подскажите?

[Удален]
#5

AlexStudio, хостинг найти нормальный.

Просто прикиньте, что будет, если у Вас допустим получится хотя бы 100.000 вызовов скрипта в сутки?

AS
На сайте с 07.04.2004
Offline
66
#6
Как писал Scaramush
AlexStudio, хостинг найти нормальный.
Просто прикиньте, что будет, если у Вас допустим получится хотя бы 100.000 вызовов скрипта в сутки?

На счет этого я думал и расчитывал. Скрипт сделел максимально легким. Так что обращений 10 в секунду он выдержит. 10*60*60*24= достаточно много. А когда обращений будет больше, думаю уже можно будет себе позволить и выделеный сервер.

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий