SimpleSite - Простой пример

Что это? | Пример | Документация

Рассмотрим на примере простой скрипт для генерации сайта на подобие этого.

Скрипт начинается с инициализации и подключения необходимых модулей

#!/usr/bin/perl

use lib qw(../../script /home/kola/lib);
# место, где находятся модули SS
use CGI::WebOut;
use CGI::WebIn;
use SS::SS;
use SS::Parser;

Далее, в зависимости от настроек в config.pl генерируется и отдается заговок (Content-type: text/html...). В качестве параметра можно указать кодировку, например 'utf-8'или 'windows-1251'.

start_headers(); # 'windows-1251', 'utf-8'

Обрабатываем строку запроса

parse_param($GET{c1},$tph);

Загружаем файл основного шаблона

$maintext = loadfile($blank);

Загружаем файл контента и обрабатываем его со всеми тегами SS

$data{text} = parse(make_me_happy(loadfile($file1)));

Проходимся по тексту, заменяя все переменные на их значения.

$maintext = parse($maintext);

Отдаем клиенту получившийся результат

print $maintext;

Всё!

exit; # That's all. ;-)