Построение Web-сайта
Остальные страницы будут выглядеть примерно так же, кроме формы для контактов /var/ www/html/contact/index.html. Форма для контактов реализуется следующим исходным кодом.
<HTML> <TITLE>On the Web Publishers</TITLE> </HEAD> <BODY BGCOLOR=lightcyan TEXT=midnightblue> <DIV ALIGN=CENTER> <A HREF="/"> <IMG SRC="/images/ldgo.gif" BORDER=0></A> <TABLE BORDER=0 CELLPADDING=5 CELLSPACING=5 BGCOLOR= 1 ightp ink> <TR> <TD ALIGN=CENTER><A HREF="/about">ABOUT US</A></TD> <TD ALIGN=CENTER><A HREF="/books">OUR BOOKS</A></TD> <TD ALIGN=CENTER BGCOLOR=yellow>CONTACT US</TD> <TD ALIGN=CENTER><A HREF="/authors">JUST FOR AUTHORS</A></TD> </TR> </TABLE> <Hl>Drop Us A Line…</H1> </DIV> <TABLE ALIGN=CENTER><TR><TD> <FORM METHOD=POST ACTION="/cgi-bin/formmail"> <INPUT TYPE=TEXT WIDTH=30 NAME=name> Name<BR> <INPUT TYPE=TEXT WIDTH=30 NAME=address> Address<BR> <INPUT TYPE=TEXT WIDTH=30 NAME=city> City<BR> <INPUT TYPE=TEXT WIDTH=30 NAME=state> State<BR> <INPUT TYPE=TEXT WIDTH=30 NAME=zip> Zip/Post Code<BR> <INPUT TYPE=TEXT WIDTH=30 NAME=country> Country<BR> <INPUT TYPE=TEXT WIDTH=30 NAME=email> E-mail<BR> Comments:<BR> <TEXTAREA ROWS=10 COLS=30 NAME=commentS WRAP=HARD></TEXTAREA><BR> <INPUT TYPE=SUBMIT VALUE="Send Comments"> </FORM> </TD></TR></TABLE> </BODY> </HTML>
Эта страница содержит форму и ссылку на CGI-программу, которая обрабатывает данные из формы. В нашем случае используется программа f ormmail (бесплатно распространяемый сценарий CGI, написанный на Perl), которая считывает содержимое формы и отправляет его по почте на предопределенный почтовый адрес. В рассматриваемом примере контактная информация из формы отправляется по почте на главный почтовый адрес книжного магазина.
Forramail написал Matthew M. Wright. Эта программа доступна по адресу http://www.worldwideniart.com/scripts/formmail.shtml. Несмотря на то, что в главе не затрагивалось программирование на Perl и CGI, мы приводим исходный код программы. Можно заметить, что создание несложных CGI-программ не требует особых усилий.
#!/usr/bin/perl ################################ # FonriMail Version 1.6 # # Copyright 1995-1997 Matt Wright mattw@worldwidemart.com # # Created 06/09/95 Last Modified 05/02/97 # # Matt's Script Archive, Inc.: http://www.worldwidemart.com/scripts/ ###################################### # COPYRIGHT NOTICE # #Copyright 1995-1997 Matthew M. Wright All Rights Reserved. # # # # FormMail может быть использована и свободно модифицирована любым # пользователем, при условии сохранности авторских прав и # комментариев, приведенных выше. Используя этот код, вы # соглашаетесь не требовать от автора возмещения убытков при любых # обстоятельствах, которые могут возникнуть при ее использовании. # # Продажа кода этой программы без предварительного письменного согласия # категорически запрещена. Прежде чем получить деньги за мою программу, # спросите меня. # # Получите разрешение перед распространением этого программного # обеспечения в пределах Internet и любого другого окружения. Во всех # случаях знаки авторского права и заголовок должны быть сохранены ###################################### # Определение переменных # # Более подробную информацию можно найти в файле README. # # $mailprog определяет местонахождение программы sendmail в системе unix. # $mailprog = Vusr/lib/sendmail'; # @referers разрешает формам находиться только на серверах, определенных # в этом поле. Это корректировка безопасности по сравнению с предыдущей # версией, которая позволяла любому пользователю на любом сервере # использовать сценарий FormMail на своем Web-сайте. # referers = Clinux.juxta.com'); # Конец