WebMaster/Programming/Perl/
Генерация вопросов и ответов.
Большую часть того что нужно знать о генерации ответа,я
сказал в разделе Заголовки запросов и ответов.Нет,не угадали!
Я не буду сдесь говорить о всяком дизайне того что вы выдаете.Этому
вы успели напрактиковатся на HTML -страничках.
Я поговорю о MIME (Multipurpose Internet Mail Extension).И о разных
браузерах.
Стандарт MIME появился в электронной почте (e-mail) потому что
остро стала проблемма пересылки по e-mail различных данных в различных
форматах.Так как HTTP тоже работает с различными типами данных
то поэтому тоже использует MIME для своих нужд. Типы MIME состоят
из Типа и подтипа (например text/plain,где text-указывает на наличие
текстового содержимого,а plain-уточняет его как простой текст)
приведеный ниже список (он далеко не полн,типов MIME огромное
количество) описывает некоторые часто встречающиеся типы.: text/html
text/plain text/richtext image/gif image/jpeg image/tiff audio/basic
audio/32kadpcm audio/ video/mpeg video/quicktime multipart/mixed
multipart/alternate multipart/ application/octet-stream application/msword
application/postscript message/digest
Информация о MIME больше возможно пригодится вам в том случае
если вы собираетесь работать из ваших скриптов с электронной почтой,но
и для WWW она не повредит. Особенно знание Content-Type:
Content-Type:
Состоит из типа и подтипа типы могут быть как стандартные так
и экспериментальные начинающиеся с префикса 'x-':
text
Текстовые данные.Первым подтипом который включен сюда это plain,что
значит простой текст. сюда же включен самый ходовой формат html
.У типа text как и у многих типов могут быть параметры,главным
из них является charset он как раз и указывает на раскладку символов,
которая применена в тексте, так что если вы хотите указать браузеру
какую раскладку применять, то просто укажите charset:
Content-Type: text/plain; charset=us-ascii
Content-Type: text/html; charset=iso-8859-1
Content-Type: text/html; charset=koi8-r
multipart
Данные которые могут состоять из нескольких частей,различных типов
данных.Поэтому параметром multipart служит boundary, позволяюший
указать разделитель.Каждый фрагмент в многочастевом сообщении
имеет свой Content-Type: (Он может быть также multipart,т.е. допускаются
вложеные multipart,главное чтоб boundary были разными).В электронной
почте применяется больше multipart/mixed (основной подтип) и multipart/alternative
(Он отличается тем что показывается одна из альтернатив,например
сообщение шлется в простом и HTMLом форматах,и почтовая программа
показывает либо часть,которую она способна отобразить). В WWW
-програмировании распостранен x-mixed-replace ,который означает
что следующая часть должна заменить предыдущую после подгрузки,
что применяется для анимации(см.Пример с анимацией).
Теперь о разделителе,его надо выбирать так,чтоб он не встретился
где-то в данных (т.е. что-то вроде "diUr344rnmvforgefvrg923rghyj2").Когда
вы задали разделитель,например boundary="boundary" то
когда закончилась одна часть,вы должны выдать строку --boundary,последн
часть --boundary--,причем эти разделители должны быть на отдельной
строке,а не сливаться с текстом:
Пример:
MIME-Version: 1.0
Content-Type: multipart/alternative; boundary="w23renff491nc4rth56u34-9449"
--w23renff491nc4rth56u34-9449
Content-Type: text/plain; charset="koi8-r"
Hello,World!!
--w23renff491nc4rth56u34-9449
Content-Type: text/html; charset="us-ascii"
<H1>Hello,Word!!</H1>
<HR>
<FONT size=+1 color=red>Hello people!</FONT>
--w23renff491nc4rth56u34-9449--
message
Представляет инкапсулированое почтовое сообщение.Используется
в e-mail ,а не в WWW.
image
Некоторое Графическое изображение.(чаще всего image/gif и image/jpeg)
audio
Аудиоданные.
video
Видеоданные.
application
бинарные данные какого-нибудь приложения.В том случае если данное
приложение может быть запущено,Браузер запускает его.Например
при поступлении данных application/msword Браузер спросит,нужно
ли запустить Word для просмотра досумента.При отсутствии нужного
приложения браузер спросит в каком файле сохранить данные.Подтип
octet-stream как раз и означает поток байт информации,который
и используется по умолчанию.(К сожалению не все так гладко,известен
глюк в Netscape Navigator'е который вместо того чтоб сохранить
application/octet-stream пытается его показать как text/plain
что если это сгенерировано из CGI,ни к чему хорошему не приводит
;(()
Что касается application ,то Вы можете тут смело извращатся,используя
x- типы данных,
Например application/x-fuck-to-netscape-navigator. ;)))))
Часто используемый параметр name позволяет указать имя файла.Например:
Content-Type: application/msword; name="readme.doc"
Что полезно при полученнии файлов через HTTP,причем этот параметр
может применятся и для других типов таких image или audio ,Например:
Content-Type: image/gif; name="myfoto.gif"
Content-Transfer-Encoding:
Применяется больше в системе электронной почты и обозначает метод
кодирования, которым были закодированы данные при передаче сообщения.Например:
7bit 8bit quoted-printable base64 binary x-типы
MIME-Version:
Указывает версию MIME .
Теперь поговорим о разных браузерах вы знаете что браузеры бывают
разные,разных версий на разных платформах, поддерживают и не разные
тэги и глюки у них тоже разные.....;((( .
Это могло попортить много нервов WEB-дизайнерам и конечно же нам
,CGI-програмистам. Профессионально написаный сайт от просто хорошего
отличается тем что хорошо выглядит Не только на экране того браузера,которым
пользуется сам его автор,а на других тоже.
Если вы используете JavaScript для своих страничек,то вы уже наверно
использовали (или хотя бы вам в голову приходила мысль использовать)свойства
navigator.AppName navigator.AppCodeName navigator.appVersion navigator.userAgent:
<SCRIPT language="JavaScript">
if(navigator.AppName=="Netscape"){
/*Сделать чо-нибудь специфичное для Netscape*/
}
else if(navigator.AppName=="Microsoft Internet Explorer"){
/*Сделать чо-нибудь специфичное для Explorer*/
}
else{
/*Не делаем специфичных вещей-хрен его знает с каким браузером
мы имеем дело*/
}
</SCRIPT>
или
<SCRIPT language="JavaScript">
if((navigator.AppName=="Netscape")&&(parseFloat(navigator.appVersion)<3.0)){
document.writeln("Пользуетесь слишком старым браузером");
}
</SCRIPT>
Ну не волнуйтесь вы так ,мы CGI-программисты не
в самых худших условиях на этот счет. Вспомните о том что браузер
сам при запросе посылает вам данные о себе и о своей версии. И
делает он это для того,чтобы эту информацию можно было учесть.
В запросе он указывает User-Agent: которое и попадает на сервере
в переменную среды HTTP_USER_AGENT ,которую и можно использовать.
Например если в ней содержится Mozilla/3.01Gold (Win95;I) то значит
вы имеете дело с Netscape (Mozilla-кодовое название Netscape Navigator'а),версии
3.01Gold и далее после имени и версии может следовать необязательная
информация ,например как в приведеном примере о платформе Win95
и о том является ли версия U -для США (USA) или I -международной(International).
Напомню,что такая информация необязательна.(То есть если браузер
послал информацию User-Agent: то гарантировано расчитывать вы
можете только на Название/Версия).
Ну вот я слишком много развел демагогии,пора переходить к практическим
примерам.
Допустим ваш скрипт генерирует какие-то тэги,которые слишком старые
браузеры не поддерживают,причем без них не обойдешся,они составляют
всю 'изюминку' сайта.
#!/usr/bin/perl
#oldbrowser.cgi
print "Content-Type: text/html\n\n";
if(defined ($ENV{'HTTP_USER_AGENT'})){
$browser=$ENV{'HTTP_USER_AGENT'};
($vers)=($browser=~/\/(\d+\.\d+)/);
if(($browser=~/mozilla/i)&&($vers<=2.0)){
print "<HTML><HEAD><TITLE>Too old!</TITLE></HEAD>";
print "<BODY bgcolor=\"red\" text=\"black\">";
print "<CENTER><H1>Ваш Netscape Слишком старый
для этого сайта";
print "(старость не радость;))</H1></CENTER>";
print "</BODY></HTML>";
exit;
}
if(($browser=~/msie/i)&&($vers<=3.0)){
print "<HTML><HEAD><TITLE>Too old!</TITLE></HEAD>";
print "<BODY bgcolor=\"red\" text=\"black\">";
print "<CENTER><H1>Ваш Explorer устарел";
print "(а не пора ли сделать апгрейт хотя бы до 4.0 версии)</H1></CENTER>";
print "</BODY></HTML>";
exit;
}
}
print "<HTML><HEAD>.........";
Ну уже почувствовали,насколько это здорово.А вот еще примерчик.Это
из разряда того, что тэги бывают разные.Например в Explorer есть
тэг BGSOUND предназначеный для проигрывани музыки на страничке.(В
Netscape этого тега нет,и поэтому для втыкания музыки приходится
использовать подключаемые модули plugin).Мутится с этими Плугинами
Вам в облом,а хочется побаловать человека хорошей музыкой,если
браузер позволяет.
...
...
if($ENV{'HTTP_USER_AGENT'}=~/msie/i){
print "<BGSOUND src=\"jmj00.mid\">";
}
elsif($ENV{'HTTP_USER_AGENT'}=~/mozilla/i){
#Оставлю сдесь коментарий,что воткну что-нибудь типа музыки,для
Netscap'а ,
#Когда мне не будет так в облом это делать.......
}
Ну вот вы уже можете управлять этим процессом.Только не забывайте,что
если вы не получили информацию о клиенте(так может быть,если например
ваш скрипт вызвал какая-нибудь поисковая машина) то не в этом
случае не надо делать никаких предположений,а просто пусть ваш
скрипт продолжает делать то что должен был делать.
Как всегда Примерчик на последок.Этот примерчик
позволит выбирать из списка файлов. и загружать что пользователь
хочет.
#!/usr/bin/perl
#download.cgi
sub urldecode{
local($val)=@_;
$val=~s/\+/ /g;
$val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;
return $val;
}
@Filelist=qw(index.html readme.txt jmj00.mid gunshot.wav foto.gif);
@Sel_list=();
if($ENV{'REQUEST_METHOD'} eq 'GET'){$query=$ENV{'QUERY_STRING'};}
elsif($ENV{'REQUEST_METHOD'} eq 'POST'){sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});}
if($query eq ''){
#Если никаких данных не подано на обработку,то сгенерируем форму,
#которую и предложим заполнить пользователю.
print "Content-Type: text/html\n\n";
print "<HTML><HEAD><TITLE>File Downloading</TITLE></HEAD>";
print "<BODY bgcolor=\"white\">";
print "Выберите файлы которые вы хотите загрузить:<BR>";
print "<FORM METHOD=\"POST\">";
print "<SELECT NAME=\"file\" size=4 multiple>";
foreach(@Filelist){
print "<OPTION value=\"$_\">$_";
}
print "</SELECT><BR>";
print "<INPUT TYPE=\"Submit\" value=\"Download!\">";
print "</FORM>";
print "</BODY></HTML>"
}
else{
@formfields=split(/&/,$query);
foreach(@formfields){
if(/^file=(.*)/){push(@Sel_list,urldecode($1));}
}
unless(@Sel_list){
print "Content-Type: text/html\n\n";
print "<HTML><BODY><CENTER><H1>Вы
должны выбрать что-то из списка";
print "</H1></CENTER></BODY></HTML>";
}
else{
print "Content-Type: multipart/mixed;";
print "boundary=\"bhy3e23r4t34tnehtpo7678nneu4232y213vdg\"\n\n";
print "--bhy3e23r4t34tnehtpo7678nneu4232y213vdg\n";
foreach(@Sel_list){
print "Content-Type: application/x-qwerty; name=\"$_\"\n\n";
open(F,"$_");
print <F>;
close(F);
print "\n--bhy3e23r4t34tnehtpo7678nneu4232y213vdg\n";
}
print "Content-Type: text/html\n\n";
print "<HTML><H1>Thats all folks!</H1></HTML>";
print "\n--bhy3e23r4t34tnehtpo7678nneu4232y213vdg--\n";
}
}
