-
Использование готовых скриптов
Если у вас уже есть написанные CGI-скрипты, то прежде чем скопировать
их на сервер, вы должны сделать следующие действия:
- Убедиться, что в скриптах указан правильный путь к интерпретатору:
Perl: /usr/bin/perl
Python: /usr/local/bin/python
Теперь вы можете скопировать свои скрипты на сервер.
Загружать файлы необходимо в каталог ваш_домен/cgi.
Файлы из данного каталога будут доступны по адресу http://ваш_домен/cgi-bin/имя_файла.
Для того чтобы CGI-скрипты запускались из корневого каталога сайта ваш_домен/docs,
необходимо создать в нем файл .htaccess со следующим содержимым:
AddHandler cgi-script .cgi .pl .py
Options +ExecCGI
На скрипты необходимо установить права доступа 755 или -rwxr-xr-x.
Права доступа можно изменить с помощью
файлового менеджера
панели управления.
-
Написание простейшего CGI-скрипта
Рассмотрим написание простого CGI скрипта на Perl.
Если вы работаете под управлением ОС «Windows», то для работы с кодом
скриптов вам необходимо использовать специализированный текстовый редактор, например, Notepad++.
Стандартную для Windows программу «Блокнот» лучше не использовать.
Для демонстрации работы CGI скрипта необходимо создать два файла.
Первый файл представляет собой html-документ с формой ввода текста:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<title> Пример работы с Perl</title>
</head>
<body>
<form method='post' action='/cgi-bin/hello.pl'>
Введите ваше имя: <input type='text' name='name'>
<input type='submit'>
</form>
</body>
</html>
Второй файл является CGI-скриптом
#!/usr/bin/perl
use CGI;
print "Content-type: text/html\n\n";
$my_cgi = new CGI;
$your_name = $my_cgi->param('name');
print "Hello $your_name!!!";
Первый файл вы можете разместить в каталоге ваш_домен/docs.
Второй файл вы должны разместить в директории ваш_домен/cgi.
Обязательно проверьте права на ваш CGI-скрипт.
Они должны быть установлены в значение -rwxr-xr-x или 755.
-
Просмотр установленных модулей PERL
Для проверки установленных PERL-модулей необходимо последовательно выполнить следующие действия:
vim modules.pl
Таким образом будет создан файл modules.pl
- Теперь необходимо его отредактировать, для этого нажмем Insert, напишем следующее:
#!/usr/bin/perl -w
use ExtUtils::Installed;
$installed = ExtUtils::Installed->new();
foreach $module ($installed->modules()){
printf "Module: %s\t\tVersion: %s\n", $module, $installed->version($module);
}
Для выхода из редактора с сохранением только что набранного текста, нажимаем Esc и затем :wq
- Можем посмотреть установленные модули:
perl ./modules.pl
-
Установка дополнительных модулей PERL
Вы можете установить на хостинг дополнительные модули PERL из исходных кодов.
Прежде чем приступать к установке, подключите последнюю версию PHP в разделе
Управление веб-сервером -> Управление модулем PHP панели управления хостингом,
при этом будет подключен обновленный набор программного обеспечения,
который может включать в себя нужный вам модуль Perl.
Перед установкой требуется задать переменные окружения,
чтобы установленные модули были доступны интерпретатору.
cat >> ~/.bashrc << "EOF"
PERL5LIB=$HOME/PERL/lib:$HOME/PERL/lib/perl5
export PERL5LIB
MANPATH=$HOME/PERL/share/man
export MANPATH
EOF
- Чтобы изменения вступили в силу, выполните команду:
Для того чтобы установить выбранный модуль для PERL, необходимо
выполнить следующую последовательность команд:
-
на странице http://search.cpan.org/ найдите нужный модуль,
например, Net::SMPP и скопируйте ссылку для загрузки архива с исходными кодами модуля
- подключитесь к хостингу по SSH и перейдите в каталог для временных файлов
- загрузите архив на хостинг по найденной ссылке с помощью wget
wget http://search.cpan.org/CPAN/authors/id/S/SA/SAMPO/Net-SMPP-1.12.tar.gz
- распакуйте архив и перейдите в каталог с исходными кодами модуля
tar -xf Net-SMPP-1.12.tar.gz
cd Net-SMPP-1.12
Установку необходимо выполнять в отдельный каталог, например, /home/login/PERL, где login
— идентификатор услуги хостинга, указав переменную INSTALL_BASE.
- Для установки модуля с помощью файла Makefile.PL используйте команды:
perl Makefile.PL INSTALL_BASE=$HOME/PERL
make
make install
- Для установки модуля с помощью файла Build.PL используйте команды:
perl Build.PL
./Build --install_base $HOME/PERL
./Build install --install_base $HOME/PERL
Для использования установленных модулей в perl-скрипте нужно их подключить,
добавив следующие строки в файл скрипта:
use lib "/home/login/PERL/lib";
use lib "/home/login/PERL/lib/perl5";
use Net::SMPP;
Для того чтобы веб-сервер Apache мог работать с дополнительными модулями,
необходимо в панели управления хостингом включить модуль env_module и добавить следующие строки
в файл .htaccess в корневом каталоге сайта или в каталоге с CGI-скриптами:
SetEnv PERL5LIB /home/login/PERL/lib:/home/login/PERL/lib/perl5
где login — идентификатор услуги хостинга.
-
Установка дополнительных модулей PERL
Ошибка 403
Если при обращении к скрипту вы видите сообщение об ошибке 403, это значит, что на скрипт установлены
некорректные права доступа. На CGI-скрипты необходимо установить атрибут исполнения (права доступа 755 или -rwxr-xr-x).
Атрибуты можно изменить с помощью файлового менеджера панели управления.
Ошибка 500
Если во время запуска своего скрипта вы видите сообщение о 500-ой ошибке, это значит, что в скрипте
есть ошибка из-за которой транслятор Perl'а не может успешно завершить свою работу.
Ошибка может быть как синтаксическая (например, вы забыли где-то закрыть кавычку или фигурную скобку),
так и логическая, например, в результате каких-либо ваших действий происходит деление на ноль.
Для того, чтобы понять причину ошибки, вам необходимо посмотреть лог-файлы веб-сервера, которые хранятся в каталоге /var/log/.