книги хакеры / журнал хакер / специальные выпуски / Специальный выпуск 2_compressed

X/WEB

0045 69

lit /&/, $data;

(@_) {

/;

)/pack(“c”,hex($1

CGI. И включили в стандарт правила передачи

($key, $value) = split /=

шестнадцатиричное значение, соответствую-

как все необходимые данные и параметры по-

параметров скриптам. То есть не нужно писать

щее символу в стандартной таблице оных. Плю-

сылаются прямо в строке с адресом шлюза. Ес-

$params{lc $key} = $v

много-много скриптов для того, чтобы просто

сы заменяются на пробелы. Таким образом,

тественно, что уже для гостевой книги и фору-

перелистывать страницы в гостевой книге -

вместо “Я тут!” получится “%FF+%F2%F3%F2!”.

ма такая форма не годится - слишком большое

достаточно указать соответствующие парамет-

Некоторые браузеры автоматически преобразо-

сообщение, запхнутое в строку браузера, убьет

ры, и все будет “на ура”. Передача параметров

вывают введенные строки с пробелами в такой

и браузер, и желание юзера заходить на этот

осуществляется через тот же урл, которым вы-

формат. Но в любом скрипте это нужно будет

сайт еще когда-нибудь, так что это не приколь-

зывается скрипт. Для этого сам урл отделяется

преобразовывать самостоятельно. :-( Ну да это

ный метод, и к любви не располагает. Второй

от параметров знаком вопроса “?”, параметры

не проблема, не парься. Ничего страшного.

метод (“POST”) позволяет передавать большие

пишутся в виде “имя=значение”, а между ними

Чтобы скрипту было не скучно, пока он рабо-

объемы данных, ведь для этого не использует-

ставится знак амперсанд “&”:

тает, сервачок устанавливает “переменные ок-

ся буфер браузера. Передача осуществляется

ружения”. С их помощью можно, например,

через файловые дескрипторы стандартных ус-

http://vasya . pupkin . org/cgi -

попробовать узнать, откуда пришел факин юз-

тройств. Звучит как заупокойная, но на самом

bin/guestbook.cgi?mycoolparame-

верь (его IP - если он, конечно, не пользуется

деле все просто как мертвая лошадь. Чтобы по-

ter=thiscoolvalue&pagetoshow=1

анонимными прокси), метод, которым был пос-

лучить данные, нужно узнать их размер (из од-

лан запрос (их всего два - см. ниже), собствен-

ной из переменных окружения) и просто счи-

Есть еще некоторые ограничения, с которыми

но передаваемые данные и их длину (в случае,

тать с консоли (INPUT в бейсике, blockread в

нужно бороться - нельзя указывать никакие

когда используется метод передачи “POST”).

Pascal, fread в C) нужное их количество. Это

символы, кроме аглицких букв, цифр да знака

Методов, которыми можно запросить данные

прикольно, удобно и, несмотря на сложность

подчеркивания. Плюсы, минусы, русские буквы

через шлюз, всего два. Их называют “GET” и

изложения, легко осваивается - как два байта

и т.д. представляются в виде %xx, где xx - это

“POST”. Первый метод более компактный, так

перекачать.

70

0046

X/WEB

Доктор, я буду жить? - А зачем?

Здесь /usr/local/bin - это каталог, в котором на-

Иногда очень удобно, в зависимости от какого-

ходится интерпретатор Perl`а. Обычно, что в ка-

то события, либо выдавать страничку, либо пе-

К чему все эти описания стандартов и спосо-

ком каталоге находится, можно узнать из FAQ,

ренаправлять пользователя на другой сайт

бов передачи параметров без, собственно,

который предоставляет место под твою хоум-

(или другую страничку). Для этого можно вос-

практики?! Но для начала скажу немного о хле-

пагу. Дальше, чтобы что-то вывести - отдать

пользоваться заголовком Location:

бе насущном. Большинство фришных хостов,

браузеру, нужно сначала вывести специальный

где юзерам без разбора выдают халявные

заголовок, по которому браузер или еще какой

print “Location: http://www.another

странички и позволяют работать со своими

юзерский клиент определит, что именно ему

site.com\n\n”;

собственными CGI-скриптами, поддерживают

отдают:

только скрипты, написанные на Perl`е, реже -

И сервер просто перекинет браузер на другой

на Python`е. Да и писать на этих языках, спе-

print “Content-type: text/html\n\n”;

сервер. Можно указать также какой-то доку-

циально предназначенных для работы с тек-

мент “поблизости”. Тогда просто будет обра-

стом, гораздо удобнее, чем на Pascal или C.

Это означает, что скрипт будет отдавать HTML-

ботан он - без переброски:

Кроме того, не существует Perl и Python ком-

страничку. Например, вот так:

пиляторов, поэтому все скрипты будут хра-

print “Location:

ниться в своем исходном виде, что иногда бы-

#!/usr/local/bin/perl

/../pages/index.htm\n\n”;

вает удобно (не нужно разделять исходники и

бинарники). :-) Из этих двух лэнгвичей пока

print “Content-type: text/html\n\n”;

Можно отдавать не только странички и тексто-

что, видимо, стоит выбрать Perl. Почему?

print “<html><body>\n”;

вые файлы, но и бинарники - архивы, Mp3-шки

Просто большинство хостов обеспечивает дос-

print “<h1>Это скрипт!</h1>\n”;

и так далее. Для этого тоже нужно указать свой

туп к Perl`у по умолчанию и только некоторые

print “</body></html>”;

заголовок:

(правда, их число растет) дополнительно поз-

Результат налицо - то есть на лице браузера.

воляют использовать скрипты, написанные на

Можно отдавать просто текстовые файлы - для

print “Accept-Ranges: bytes\n”;

Python`å.

этого в “Content-type” нужно указать не

print “Content-Length: $size\n”;

Итак, готовься! Держись крепче, не расплес-

“text/html”, à “text/plain”:

print “Content-Disposition: file-

кай пиво. Собственно скрипты (бурные апло-

name=$filename\n”;

дисменты в зале, чей-то нервный кашель, ха-

print

“Content-type:

print “Content-type: bin/bin\n\n”;

рактерная отрыжка и сигаретная вонь)! CGI-

printtext/plain\“Content\n”;-type: text/plain\n\n”;

программа в виде *.cgi должна начинаться со

строки, указывающей, на каком именно языке

В этом примере в переменной $size находится

она написана. Для этого пишут примерно та-

Здесь же можно указать кодировку документа:

размер файла, а в $filename - точное располо-

кую строчку:

жение файла, который нужно скормить браузе-

print “Content-type: text/plain;

ру. Что, тяжко идет? Ничего, пельмень, немно-

#!/usr/local/bin/perl

charset=ISO-8859-4\n\n”;

го практики, и все будет круто.

X/WEB

0047 71

Параметры

Приведу небольшой пример, как правильно об-

работать параметры в Perl`е. Если что непонят-

но - милости прошу читать Learning Perl, писать

мне письма (расскажу ЕЩЕ подробней, что к

чему) или посещать www.citforum.ru - там же,

кстати, есть и подробное описание “специфи-

кации клиент-сервер шлюзов CGI”:

if ($ENV{“REQUEST_METHOD”} eq “GET”) {

$data = $ENV{“QUERY_STRING”}

}

else {

read(STDIN, $data, $ENV{“CONTENT_LENGTH”});

}

@_ = split /&/, $data;

foreach (@_) {

tr/+/ /;

s/%(..)/pack(“c”,hex($1))/ge;

($key, $value) = split /=/, $_;

$params{lc $key} = $value;

точно запустить скрипт:

:-) проверить скрипт. Я советую поставить

}

Apache 1.3.6 - он наиболее устойчивый (у меня

}

#!/usr/local/bin/perl

за почти полгода не упал ни разу) и ставится

буквально за 20 минут. Доку про то, что и где

print “Content-type: text/plain\n\n”;

крутить и откуда качать, можно взять на

После отработки этого фрагмента в $params

for (keys %ENV) {

www.apache.ru.

{имя параметра} будет стоять соответственное

print “$_ = ${ENV{$_}}\n”;

Кроме установки веб-сервера есть также и спе-

значение. Если в урле просто указать имя пара-

}

циальные программы, которые это дело эмули-

метра, не указывая значения, то наличие тако-

руют, подготавливая переменные окружения и

го параметра можно проверить так:

Как я уже говорил, с помощью переменных ок-

запросы. Но это уже изврат. :-)

ружения можно узнать многое - только на паро-

if (exists $params{имя параметра})

ли на Инет не рассчитывай. ;-) Например, если

{

кто-то зашел на страничку, можно узнать его

Примеры

такой параметр есть.

IP-шник - достаточно посмотреть на содержи-

}

мое ENV{“REMOTE_ADDR”}. А если он, редиска,

Замечательные скрипты можно взять со мно-

else {

заюзал прокси, то можно попытаться опреде-

жества сайтов совершенно бесплатно - приме-

не задан

лить, какой - смотри $ENV{“HTTP_VIA”} (некото-

ром может служить www.scripts.com. Там мож-

}

рые прокси еще добавляют строчку “,via [prox-

но найти и гостевые книги, и чаты, и много че-

yaddr]” ê $ENV{“HTTP_USER_AGENT”}. À åñëè

го еще практически на всех популярных ныне в

Исходник одинаково хорошо скушает и GET-

прокси не анонимный, то можно и IP похакать -

народе языках программирования. Там есть

метод (применяемый для кодировки введенных

$ENV{“HTTP_X_FORWARDED_FOR”}.

даже примеры на командном языке юнихового

урлов), и POST-метод (которым обычно поль-

шелла. :-o

зуются, когда отправляют данные, полученные

из форм - см. HTML тэг <form>). Здесь, в ме-

Тестирование скриптов

тоде POST, используется уже описанное мной

Вот парочка примеров, взятых

чтение параметров с помощью read:

После того как скрипт написан, его бы надо оп-

оттуда:

робовать - но лезть каждый раз в Инет, качать

read(STDIN, $data, $ENV{“CON-

его на сервер, запускать оттуда... Мягко гово-

TENT_LENGTH”});

ря, неудобно. Но есть способ лучше! (с) Твикс

- две палочки хрустящих тампонов Тампакс! :-)

Доступ ко всем переменным окружения в Perl`е

Можно поставить себе свой маленький веб

можно получать из $ENV{имя переменной ок-

сервер, который не будет иметь доступа

ружения}. Чтобы узнать, какие вообще пере-

Инет, а будет лишь сподручным средством,

менные установлены - имеют значения, доста-

позволяющим быстренько (не отходя от кассы)

72

0048

X/WEB

#!/usr//bin/perl

ГОСТЕВАЯ КНИГА:

use Fcntl;

{

use CGI;

use AnyDBM_File;

use FreezeThaw qw(freeze thaw);

my $page = CGI->new;

my %comments;

= $ENV{“Q

umask 0;

$my $file = data$page->param(‘file’) || ‘guest’;

X/WEB

0049

73

74

004A

X/WEB

СЧЕТЧИК:

read(S# This script creates a file showing the number

IN, $data

#!/bin/ksh

X/WEB

004D 77

возможность импортировать в HTML готовую

Большой рисунок лучше сделать составным,

Про стандартные объекты

таблицу из EXEL.

тогда он будет выводиться намного быстрее.

чуть подробнее

Только тебе придется все очень хорошо

просчитать, чтобы рисунок не разваливался.

По ГОСТу (Государственному Стандарту) рас-

Про применение таблиц и про

При этом нужно использовать таблицу с ну-

стояние между яичками не должно превышать

совместимость

левыми (невидимыми) отступами между

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

ячейками. Т.е. саму таблицу будет не видно,

“обычные” правого меню ты можешь быстро

После того, как дедка применил бабку, от него уш-

но все объекты в ней будут упорядочены, и

вставить стандартные объекты (хе-хе, Бивис,

ла даже Жучка... Старайся задавать все размеры в

края частей составного рисунка будут сли-

он сказал “вставить” - прим. Холода). После то-

пикселях, а не в процентах, поскольку браузеры

ваться. На разные части составного рисунка

го как вставил картинку, можно использовать

понимают проценты по-разному. Лучше задавать

можно поставить разные ссылки, по такому

карту. Т.е. на разные области одной картинки,

ширину таблицы жестко, а высоту не задавать

принципу делают графическую панель нави-

которые ты выделишь, можно сделать разные

вообще. Таблица, габариты которой не заданы,

гации.

ссылки. Это еще один способ сделать графи-

будет резиновой. Т.е. объекты будут растягивать

После того как страничка готова, нужно протес-

ческую навигацию. И не надо мучиться с сос-

ее границы. Если ты помещаешь рисунок в жес-

тировать ее на совместимость. Дримувер мо-

тавными рисунками. Только имей в виду: карты

ткую таблицу, то его габариты должны соответ-

жет автоматически проверить эту страничку в

не поддерживаются ранними версиями браузе-

ствовать габаритам ячейки. Иначе некоторые

разных браузерах. Нужно добиться того, чтобы

ров. Здесь же есть ссылка на почтовый ящик.

браузеры такой рисунок просто не будут выводить.

пага выглядела более-менее одинаково.

Кроме картинок есть возможность внедрения в